一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： F_iXd/  
lf{e[!ML'  
字符类型的 ~)LH='|h\}  
strUsername = CheckInput(Request(“username“),“s“) E907fX[R~  
数字类型的 Ix@&$!'k  
ID = CheckInput(Request(“id“),“i“) e1(Q(3  
f),TO  
下面是函数 x5`br.b  
|:[tNs*,O  
+CH},@j  
Function CheckInput(str,strType) g6@Fp7T  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 c .3ZXqpI;  
  参数意义： str     ---- 要过滤的参数 ,u }XWV  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i oBQ#eW aY  
Dim strTmp p^<yj0Y  
strTmp   = ,[S+T.Cu  
If strType =s Then ~LJY6A@y  
strTmp = Replace(Trim(str),,) }VS3L_ ;}/  
ElseIf strType=i Then oF9 -&  
If isNumeric(str)=False Then str=0 Va,<3z%O<  
strTmp = str l
t^\  
Else LZJA4?C  
strTmp = str Ee)[\Qjn  
End If =L%DX#8  
CheckInput = strTmp kIw`P[  
End Function )[H{yQ  
OaJB=J%  
_It,%<3  
 ~\,w {  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 0&qr  
单引号捏? /MY9 >  
z,qRcO&  
鉴定完毕.