一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： xp]9Z]J1l  
^r{N^   
字符类型的 Nfmr5MU_  
strUsername = CheckInput(Request(“username“),“s“) TEC#owz  
数字类型的 }rWg']  
ID = CheckInput(Request(“id“),“i“) DMKtTt[}  
[Z!oVSCZD%  
下面是函数 +9#qNkP  
"`* >co6r  
%e+*&Z',  
Function CheckInput(str,strType) 58o&Dv6?  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 U.N&~S  
  参数意义： str     ---- 要过滤的参数 Xl>ZnI];  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i -L wz T  
Dim strTmp +.xK`_[M  
strTmp   = Lu4>C2{  
If strType =s Then 2=naPTP(  
strTmp = Replace(Trim(str),,) bPuO~#iN~  
ElseIf strType=i Then c/Li,9cT'  
If isNumeric(str)=False Then str=0 ]qEg5:yY  
strTmp = str Bc<pD?uOK  
Else ?07}\N0~  
strTmp = str q'uGB fE.  
End If LO38}w<k  
CheckInput = strTmp Y&$puiH-j  
End Function LK>;\BRe?  
&Cr4<V6-q  
CH5>u  
d?/>Qqw:#  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) [|(=15;  
单引号捏? :_o^oi7G  
oZ
i{v]4  
鉴定完毕.