一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： '|zrzU=  
rm,`M  
字符类型的 W8^m-B&  
strUsername = CheckInput(Request(“username“),“s“) zl|z4j'Irc  
数字类型的 y
ijP  
ID = CheckInput(Request(“id“),“i“) ro{!X,_$,  
+1!iwmch>  
下面是函数 #4msBax4  
x?+w8jSR  
:x*)o+  
Function CheckInput(str,strType) T`ibulp  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 "0P`=n  
  参数意义： str     ---- 要过滤的参数 20|`jxp  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i \xkKgI/  
Dim strTmp &Vz$0{d5  
strTmp   = %M@K(Qu  
If strType =s Then #hZ$;1.  
strTmp = Replace(Trim(str),,) YB5"i9T2  
ElseIf strType=i Then g"ev
np  
If isNumeric(str)=False Then str=0 _s=H|#l  
strTmp = str lD/9:@q\V  
Else J+u}uN@  
strTmp = str v _MQ]X  
End If esq
mj#G  
CheckInput = strTmp Fz%;_%j  
End Function e"nm<&  
b|d-vnYE  
52e>f5m.  
I+8n;I)]X  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 5I622d  
单引号捏? `@/)S^jBau  
HeRi67  
鉴定完毕.