一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： m7a#qs;,  
ryF7  
字符类型的 LEMfG~Czq  
strUsername = CheckInput(Request(“username“),“s“) VVH.2&`I  
数字类型的 Unj.f>U  
ID = CheckInput(Request(“id“),“i“) voP7"Dl[  
wN1niR'  
下面是函数 |8>3`w!  
[[PEa-992  
poGc a1  
Function CheckInput(str,strType) !tfb*@{;'  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 IW 21T  
  参数意义： str     ---- 要过滤的参数 U*Ge<(v$  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i m8'C_U^89  
Dim strTmp ];'v8
)Y  
strTmp   = \%PaceH  
If strType =s Then 1XM^8 .;  
strTmp = Replace(Trim(str),,) ku$$ 1xq  
ElseIf strType=i Then Ya>oCr}
K  
If isNumeric(str)=False Then str=0 Gj"7s8(/K|  
strTmp = str t!*+8Q!e  
Else d\x7Zw>  
strTmp = str 'WaPrCw@Mf  
End If 5` Te\H  
CheckInput = strTmp I2nF-JzD2a  
End Function g?-lk5  
|f~@8|MQP+  
.CL^BiD.D  
ee%fqVQ8P  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) Wu4Lxv]B4  
单引号捏? ml\4xp,  
G}&Sle]  
鉴定完毕.