一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： Ywcgt|  
+apn3\_  
字符类型的 1}p:]/;  
strUsername = CheckInput(Request(“username“),“s“) 5>=4$!`  
数字类型的 f3h]t0M  
ID = CheckInput(Request(“id“),“i“) 2n#H%&^?a  
$?LegX  
下面是函数 oJ#;XR  
y`/:E<fVk  
:x^e T  
Function CheckInput(str,strType) d?cCSf  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ST4[
d'|j  
  参数意义： str     ---- 要过滤的参数 [p(0g;b
x  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 89P7iSV#*  
Dim strTmp C*t0`3g d  
strTmp   = ~4] J'E >  
If strType =s Then <Skf n`).  
strTmp = Replace(Trim(str),,) c{x:'@%/s'  
ElseIf strType=i Then ld5+/"$
 
If isNumeric(str)=False Then str=0 zY-?Bv_D  
strTmp = str &b-&0rTqz  
Else !2/o]_K@+  
strTmp = str XG5T`>Y
l  
End If ^(BE_<~  
CheckInput = strTmp vo~Qo;m  
End Function w7\ \m9  
N%=,
S?b  
KmqgP`Cu  
d*@K5?O.  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) o+- 0`!yj  
单引号捏? 5 (q4o`  
"=$uv  
鉴定完毕.