一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： =_1" d$S&  
;,A\bmC  
字符类型的 @KpzxcEoO  
strUsername = CheckInput(Request(“username“),“s“) l1:j/[B=  
数字类型的 /.?\P#9)  
ID = CheckInput(Request(“id“),“i“) DuE>KX{<!R  
f@}(<#  
下面是函数 ,
\m c.80  
@fK`l@K  
"_l[4
o[D  
Function CheckInput(str,strType) 0PfFli`2;  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 @<PL  
  参数意义： str     ---- 要过滤的参数 
4Oy c D  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i _YJwF1e+M  
Dim strTmp vLke,MKW  
strTmp   = fU}w81oe  
If strType =s Then i!HGM=f  
strTmp = Replace(Trim(str),,) #X8[g_d
/  
ElseIf strType=i Then TXaXJIp  
If isNumeric(str)=False Then str=0 4|e#b(!  
strTmp = str B'
;Ob  
Else ]@P*&FRcZ  
strTmp = str DEs?xl]zO  
End If 4mAtYm  
CheckInput = strTmp %G@aZWk Sa  
End Function _SaK]7}m!  
a9I8WQ   
meL'toaJdQ  
qa~[fORO[  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) QD<4(@c5|  
单引号捏? kMo)4Xp  
_e3'f:  
鉴定完毕.