fuction.asp

来自「这是惠州城市超市购物管理系统的源代码」· ASP 代码 · 共 47 行

<!--
┌─ 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
%>