fuction.asp

在线邮件列表抓取与发送系统SQL版

<%
'By waj2008
'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
%>