一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： \Age9iz&  
a.Rp#}f  
字符类型的 B>
p0FQ.  
strUsername = CheckInput(Request(“username“),“s“) ^H\-3/si*  
数字类型的 aowPji$H  
ID = CheckInput(Request(“id“),“i“) W[1f]w3  
PtPGi^
 
下面是函数 Dj,+t+|  
&G7)s%q  
w{:Oa7_A  
Function CheckInput(str,strType) C%95~\Ds  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 +}`O^#<qLX  
  参数意义： str     ---- 要过滤的参数 UuOLv;v  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 6'No4[F 4n  
Dim strTmp Gw\G+T?M-  
strTmp   = 'sjJSc  
If strType =s Then =7J|KoKK  
strTmp = Replace(Trim(str),,) RV#uy]  
ElseIf strType=i Then Zs3]|bUR
 
If isNumeric(str)=False Then str=0 @T,H.#bL  
strTmp = str 7fN&Q~.  
Else Vlp*'2VO  
strTmp = str L?D~~Jb  
End If iZkW+5
(  
CheckInput = strTmp ;)=zvr17  
End Function |4p<T!T  
)/+eLRN5G  
@KXz4PU  
08K.\3  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) f@;>M9)<  
单引号捏? ~Q$c!=
  
eRl?9  
鉴定完毕.