一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： l\T!)Ql  
Z#OhYm+y  
字符类型的 "'z,[v50&  
strUsername = CheckInput(Request(“username“),“s“) u{OS6Ky  
数字类型的 X6LhM
 
ID = CheckInput(Request(“id“),“i“) q3AJwELXw  
9lZAa8Rxi  
下面是函数 nOA
J9  
fr}1_0DDz  
d}{LM!s  
Function CheckInput(str,strType) 7xv4E<r2  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ,]PyDq6  
  参数意义： str     ---- 要过滤的参数 `2xH7
a-  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i {) :%WnM9  
Dim strTmp #gW /qJ  
strTmp   = c-4m8Kg?L  
If strType =s Then b!'l\~`{i  
strTmp = Replace(Trim(str),,) N|!MO{sB  
ElseIf strType=i Then biK)&6|`sa  
If isNumeric(str)=False Then str=0 ;ZQ-uz  
strTmp = str 74@lo-/LY  
Else &v5G92  
strTmp = str r/NSD$-n  
End If heE}_,$|  
CheckInput = strTmp ia%z+:G  
End Function 8)^B32  
F_A%8)N  
&a%WM  
S=0"f}Jo.  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) Q~Ay8L+  
单引号捏? 2v0!` &?M{  
?e F@Q!h  
鉴定完毕.