一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： =f~<*wQ  
2^B_iyF;  
字符类型的 LGhK)]:  
strUsername = CheckInput(Request(“username“),“s“) "}3sL#|z  
数字类型的 )^(gwE  
ID = CheckInput(Request(“id“),“i“) { {\oC$  
?;l@yx  
下面是函数 JRB6T_U  
sTd@/>S?p  
iDDJJ>F26  
Function CheckInput(str,strType) sRt7.fe  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 TJv .T2|  
  参数意义： str     ---- 要过滤的参数 tl_
3 %$s  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i @g#5d|U);  
Dim strTmp +QN4hJK  
strTmp   = c+ZOC8R  
If strType =s Then s",Ea*  
strTmp = Replace(Trim(str),,) Fn5BWV  
ElseIf strType=i Then z\eQB%aM  
If isNumeric(str)=False Then str=0 ;n't:yQW  
strTmp = str f9#zV2ke]  
Else ~lV#- m*  
strTmp = str wXUR9H|0(  
End If E+Bc>xl@m  
CheckInput = strTmp ~R;/u")@e  
End Function )1 -<v);  
wNUT0+  
_WNbuk0  
S]@;`_?m{  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) V< F&\  
单引号捏? ^$'
{:i  
b"X1  
鉴定完毕.