一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ?g_3 [Fk  
g9 .Q<JwO  
字符类型的 .73X3`P25  
strUsername = CheckInput(Request(“username“),“s“) j*|VctM  
数字类型的 =/@D8{pU  
ID = CheckInput(Request(“id“),“i“) 0{
5w 6  
E^B'4  
下面是函数 L^1NY3=$  
ju8>:y8  
1KU! tL  
Function CheckInput(str,strType) M H|Og84  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 #|uCgdi  
  参数意义： str     ---- 要过滤的参数 )HEa<P^kJl  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Ki;*u_4{  
Dim strTmp xK>*yV  
strTmp   = 3(>B Ke  
If strType =s Then )*u8/U  
strTmp = Replace(Trim(str),,) `}p0VmD{NE  
ElseIf strType=i Then 7y.kQI?3  
If isNumeric(str)=False Then str=0 iDpSj!x/_  
strTmp = str mVj9,q0  
Else * `JYC  
strTmp = str z0d.J1VW  
End If /4yo`  
CheckInput = strTmp sU=H&D99  
End Function D(~U6SR  
%Tfbsyf%f  
]=\].% >  
))qy;Q,  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) n'"/KS+_  
单引号捏? ><4<yj1  
!Mx$A$Oj>  
鉴定完毕.