一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： c%n%,R>  
b{e|~v6&  
字符类型的 |TBKsx8  
strUsername = CheckInput(Request(“username“),“s“) v}z{OB  
数字类型的 }<P%W~  
ID = CheckInput(Request(“id“),“i“) 6ozBU^n  
w$I$xup  
下面是函数 ?v@q&  
`jFvG\aC  
a<D]Gz^h  
Function CheckInput(str,strType) [;INVUwG^  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 MES|iB
 
  参数意义： str     ---- 要过滤的参数 5Ul=Nv]  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i f
AR0GOI  
Dim strTmp Cd'SPaR  
strTmp   = .Wci@5:3  
If strType =s Then ZZ;V5o6E  
strTmp = Replace(Trim(str),,) 5adB5)`  
ElseIf strType=i Then Zo(QU5m0  
If isNumeric(str)=False Then str=0 I03 45Hc  
strTmp = str laFF/g;sRC  
Else
myY@Wp  
strTmp = str Uw_z9ZL  
End If 9o5_QnGE  
CheckInput = strTmp lT]dj9l  
End Function i_;]UvP  
(kI@U![u  
~rU{Q>c  
d`+cNKf  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ~v<,6BS<$Z  
单引号捏? 5zBsulRt  
BK:S:  
鉴定完毕.