一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 25{_x3t^  
YE{t?Y\5  
字符类型的 X~JP 1  
strUsername = CheckInput(Request(“username“),“s“) }$L63;/H  
数字类型的 q^EY?;Y  
ID = CheckInput(Request(“id“),“i“) )hj:Xpj9#  
?&~q^t?u  
下面是函数 pxd=a!
(  
+?m.uY(  
Jut&J]{h  
Function CheckInput(str,strType) B#SVN Lv  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 x6s|al  
  参数意义： str     ---- 要过滤的参数 /YF:WKr2  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i fTvm2+.nX  
Dim strTmp Cg]),S  
strTmp   = U{hu7  
If strType =s Then Op?"G  
strTmp = Replace(Trim(str),,) N6}/TbfAR  
ElseIf strType=i Then #m{*]mY@  
If isNumeric(str)=False Then str=0 Wx{E\ l  
strTmp = str ;t\h"K<,|  
Else 4<F z![>  
strTmp = str |9c~kTjK  
End If VoZ{I{>|  
CheckInput = strTmp {a:05Y  
End Function SXOAa<u5  
gaY&2
  
3 J04 $cD  
\BXzmok  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) -o6rY9\_!  
单引号捏? :OY~Q3 @  
'{,xQf*x  
鉴定完毕.