一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： l|fb;Giq=D  
_cd=PZhI  
字符类型的 B0,C!??5  
strUsername = CheckInput(Request(“username“),“s“)
mw~$;64;a  
数字类型的 )V9wU1.  
ID = CheckInput(Request(“id“),“i“) %QQJSake|  
Xe@:Aun  
下面是函数 !XT2'6nu  
)u.%ycfeV  
PF0AU T  
Function CheckInput(str,strType) 6&6t=  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 rM)#}eZK!  
  参数意义： str     ---- 要过滤的参数 .`/6[Zp

 
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Z!I#Z2X  
Dim strTmp r~PVh?  
strTmp   = 1!
A'mkk8  
If strType =s Then APqYf<W  
strTmp = Replace(Trim(str),,)
Y >U_l:_^  
ElseIf strType=i Then E$s?)  
If isNumeric(str)=False Then str=0 $q0i=l&$&  
strTmp = str i=\`
f& B  
Else B=|m._OL]n  
strTmp = str 'h`)6{  
End If !5K5;M_Ih"  
CheckInput = strTmp 7t|011<  
End Function LteZ7e  
xk&#fW^r  
R|-!5J4h  
P@8S|#LpZ  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) Q =4~uz|  
单引号捏? lh*!f$2~  
DQ%(X&k  
鉴定完毕.