一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： NmV][0(BS  
u"zQh|  
字符类型的 cKAZWON8;v  
strUsername = CheckInput(Request(“username“),“s“) }J:WbIr0!  
数字类型的 [~ |e:  
ID = CheckInput(Request(“id“),“i“) gR{.0e  
q?oJ=]m"  
下面是函数 7 P]Sc  
+e)RT<  
dYhLk2  
Function CheckInput(str,strType) mWU*}-M  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 :w4I+*]  
  参数意义： str     ---- 要过滤的参数 z|G 39  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i $]iRfXv,l!  
Dim strTmp XXZ$^W&  
strTmp   = ~{s7(^ P  
If strType =s Then I[I]C9D  
strTmp = Replace(Trim(str),,) zyFbu=d|O:  
ElseIf strType=i Then eC-nV)]I9  
If isNumeric(str)=False Then str=0 sJYs{Wm  
strTmp = str I\ y>I?X  
Else #|{^k u  
strTmp = str Y&DC5T]  
End If fpvzx{2  
CheckInput = strTmp <txzKpM  
End Function 5$f*fMd;  
^ P=CoLFa  
HUY1nb=  
z/7"!  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) '^.}5be&  
单引号捏? h3
:dO|Z  
%Tv^BYQAZ  
鉴定完毕.