<!--
┌─ o91.com───────────────┐
│  動感購物商務平臺WWW.SNSN.NET版權所有  │
│  設計：模糊視線13855119911 QQ：9912515 │
└────────────────────┘
-->
<%
'模糊視線
'2003.10.31

Rem 過濾SQL非法字符
function checkFFSQLStr(str)
	if isnull(str) then
		checkFFSQLStr = ""
		exit function 
	end if
	str=replace(str," ","")
	str=replace(str,";","")
	str=replace(str,"'","''")
	checkFFSQLStr=str
end function

Rem 判斷數字是否整形
function isChkInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isChkInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isChkInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isChkInteger=false 
              exit function
           end if
       next
       isChkInteger=true
       if err.number<>0 then err.clear
end function
%>