一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： )j6S<mn  
zKT \i  
字符类型的 N66jFRA;x  
strUsername = CheckInput(Request(“username“),“s“) x!I7vs~~zW  
数字类型的  |2n2  
ID = CheckInput(Request(“id“),“i“) >{m>&u;Cc  
{tWfLfzU  
下面是函数 /eIwv31  
nHZ 4):`  

WU=Os8gR  
Function CheckInput(str,strType) h!d#=.R  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 !*CL>}-,  
  参数意义： str     ---- 要过滤的参数 0CTI=<;  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i DCwldkdJN  
Dim strTmp VJ;'$SY
x  
strTmp   = u=ENf1{ $>  
If strType =s Then o &Nr5S  
strTmp = Replace(Trim(str),,) zaoZCyJT%  
ElseIf strType=i Then [fO]oTh  
If isNumeric(str)=False Then str=0 W>B:W0A  
strTmp = str , / 4}CM  
Else s[xdID^3.  
strTmp = str Bb-x1{t  
End If 7Kh+m@q.  
CheckInput = strTmp tM@TT@.t~  
End Function + FL
zK(  
N4HnW0  
q=96Ci_a  
Zqx5I~  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) z&-3H/   
单引号捏? {a(YV\^y|H  
M%$zor  
鉴定完毕.