一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ?nt6vqaV  
&Q&$J )0  
字符类型的 VJ=!0v  
strUsername = CheckInput(Request(“username“),“s“) U{ahA  
数字类型的 Q|xPm:  
ID = CheckInput(Request(“id“),“i“) G53!wIW2:  
O$&p<~  
下面是函数 {ld([  
_')KDy7  
JT_#>',
 
Function CheckInput(str,strType) 5@v!wms  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ~&yaIuW
<  
  参数意义： str     ---- 要过滤的参数 SnXYq7`t  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i w\@Anwj#L  
Dim strTmp E3gQ`+wNg?  
strTmp   = p1|@F^Q  
If strType =s Then \7/xb{z|  
strTmp = Replace(Trim(str),,) tGf  
ElseIf strType=i Then h[lh01z  
If isNumeric(str)=False Then str=0 E4{^[=}  
strTmp = str Gm6^BYCk  
Else =E,*8O]  
strTmp = str Ur@'X-  
End If `Zk?.1*2/  
CheckInput = strTmp Af -{'  
End Function |H |ewVUY  
~Aq UT]l  
z{%G  
YHAy+S  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) py,z7_Nuh  
单引号捏? gMgbqGF)  
TYB^CVSZ  
鉴定完毕.