一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： S\ ,mR4:  
|D#2GeBw1h  
字符类型的 oh-|'5+,;h  
strUsername = CheckInput(Request(“username“),“s“) cDkV;$  
数字类型的 N$I03m  
ID = CheckInput(Request(“id“),“i“) 6d|q+]x_n  
5LW}h^N  
下面是函数 ! fl4"  
dF@)M  
+}kgQ^  
Function CheckInput(str,strType) k2^a$k}  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 j;nb?;  
  参数意义： str     ---- 要过滤的参数 ;`j/D@H  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i c z'5iK  
Dim strTmp ig#r4nQ=  
strTmp   = Ol@_(U  
If strType =s Then #5ax^p2*
~  
strTmp = Replace(Trim(str),,) p~jlx~1-]  
ElseIf strType=i Then &X>7n~
@0  
If isNumeric(str)=False Then str=0 5f7zk  
strTmp = str a:Q[gF
8>  
Else Z|m`7xeCy  
strTmp = str 5Jk<xWKj  
End If p.K*UP  
CheckInput = strTmp *VeW?mY,P  
End Function <=um1P3X  

"MOpsb,  
eVz#7vqv  
</~ 6f(mg  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) m@G i6  
单引号捏? S33j?+
Vs  
,[rPe\w.z  
鉴定完毕.