一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： C#A\Rfi  
@*rED6zH  
字符类型的 b[_${in:  
strUsername = CheckInput(Request(“username“),“s“) 5};$>47m  
数字类型的 .A2u7*h&  
ID = CheckInput(Request(“id“),“i“) 'N?t=A  
3@7<e~f  
下面是函数 -d8||X[  
t[-0/-4  
HAr_z@#E  
Function CheckInput(str,strType) x6c#[:R&  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 <7%4=  
  参数意义： str     ---- 要过滤的参数 p~xrl jP$  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i :xP$iEA`G  
Dim strTmp XgmblNp1  
strTmp   = N2x!RYW  
If strType =s Then P.;S6i n  
strTmp = Replace(Trim(str),,) e;/C}sK:  
ElseIf strType=i Then IAJYD/Y&?  
If isNumeric(str)=False Then str=0 |rbl sL2?Z  
strTmp = str ax)
j$  
Else +#d}3^_]  
strTmp = str +e6c4Tw/  
End If 2!4.L&Ki  
CheckInput = strTmp \O7Vo<B&D  
End Function "<J%@  
0u"/7OU  
4JD 8w3u/  
GqrOj++>  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) M5Twulz/w  
单引号捏? k<M~
co;L  
I:qfB2tL)O  
鉴定完毕.