一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： \xnWciQ#{  
{;:/-0s  
字符类型的 u (em&M  
strUsername = CheckInput(Request(“username“),“s“) &8g?4v  
数字类型的 LQngK7>  
ID = CheckInput(Request(“id“),“i“) 6 1F(
<!  
93` AWg/T  
下面是函数 3v5%y'  
X;"Sx#U  
\ywXi~+kUv  
Function CheckInput(str,strType) iC98_o_9  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 f;xkT  
  参数意义： str     ---- 要过滤的参数 wv\w;'  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i C'o64+W^  
Dim strTmp !3 f?:M  
strTmp   = Vp3ZwS  
If strType =s Then h3z{(-~y  
strTmp = Replace(Trim(str),,) ?6fnpGX@a  
ElseIf strType=i Then ?MgUY)X  
If isNumeric(str)=False Then str=0 \\u<
S=G  
strTmp = str S&b*rA02zp  
Else YW60q0:  
strTmp = str A8oo@z68n>  
End If /7t>TY
ip!  
CheckInput = strTmp ](wvu(y\E  
End Function eFL=G%  
xx{PespNt  
H\:lxR^  
|Y[wzDYV  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) -/g B|J  
单引号捏? ak |WW]R  
z2QP)150  
鉴定完毕.