一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： $-HP5Kj(k-  
g43j
-[j)  
字符类型的 *$U+  
strUsername = CheckInput(Request(“username“),“s“) 87QK&S\  
数字类型的 7'c ;$~  
ID = CheckInput(Request(“id“),“i“) +I>u${sVx*  
uc.dtq!  
下面是函数 U[4Xo&`  
ll]MBq  
KKrLF?rc  
Function CheckInput(str,strType) :5Y yI.T  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 [ " n+2;  
  参数意义： str     ---- 要过滤的参数 +[LG>  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i U;o$=,_p  
Dim strTmp bn$('  
strTmp   = z
%lu%  
If strType =s Then n*'i{P]  
strTmp = Replace(Trim(str),,) ]4{ )VXod  
ElseIf strType=i Then Y]zy=8q  
If isNumeric(str)=False Then str=0 DC&3=Nd  
strTmp = str pQQN8Y~^Y  
Else <)hA?3J  
strTmp = str tl:V8sYTP  
End If d|P,e;m-  
CheckInput = strTmp W^a-K  
End Function K-_XdJ\  
74[wZDW|(  
{}sF?wZf  
GJu[af  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) $nkvp`A  
单引号捏? :\!D 6\o6  
`l#|][B)g$  
鉴定完毕.