一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 7)`U%}R  
-r6cK,WVU  
字符类型的 N<|_tC+ct  
strUsername = CheckInput(Request(“username“),“s“) Cz%tk}2  
数字类型的 &G)I|mv  
ID = CheckInput(Request(“id“),“i“) .S l{m[nV8  

78}QaE  
下面是函数 8T7E.guYr  
S4m??B  
6fozc2h@x%  
Function CheckInput(str,strType) 6 K+DgNK  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 zq=X;}qYj  
  参数意义： str     ---- 要过滤的参数 >VQP,J{  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i D`?=]Ysz(  
Dim strTmp e'FBV[e  
strTmp   = !\ IgTt,  
If strType =s Then 0UJ%tPS  
strTmp = Replace(Trim(str),,) {{G`0i2KV  
ElseIf strType=i Then 8!~8:?6n  
If isNumeric(str)=False Then str=0 M7O5uW`  
strTmp = str 2qw-:  
Else Ry@QJn I<  
strTmp = str 9w^lRbn  
End If h%9>js^~  
CheckInput = strTmp cmLGMlFT  
End Function M.|cl#  
#y<KO`Es  
e7m>p\"  
0pO{{F  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ae1?8man  
单引号捏? qO;.{f  
9O8na 'w  
鉴定完毕.