一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： z&WtPSyGj  
6\ yBA_z
 
字符类型的 .L+XV y  
strUsername = CheckInput(Request(“username“),“s“) @)BO`;*$fF  
数字类型的 1X[^^p~^  
ID = CheckInput(Request(“id“),“i“) FJDE48Vi  
5Yhcnwdm!  
下面是函数 'f!U[Qatg  
<n4`#d  
(c>g7d<>n  
Function CheckInput(str,strType) L;* s-j6y  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 qXg&E}]:=  
  参数意义： str     ---- 要过滤的参数 }b1FB<e]  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 'Y/0:)
 
Dim strTmp 4;I\%qes  
strTmp   = <(q(5jG  
If strType =s Then #n'.a1R  
strTmp = Replace(Trim(str),,) GPGE7X'  
ElseIf strType=i Then c7jmzo  
If isNumeric(str)=False Then str=0 P+0'
^:J  
strTmp = str ~g\~x  
Else "~5cz0 H3v  
strTmp = str *m}8L%<
HT  
End If +bS\iw+  
CheckInput = strTmp U\p`YZ  
End Function \ dFE.4  
%(1OjfZc  
-BH/)$-$  
Ln4]uqMG.  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) TKR#YJQ?K  
单引号捏? c,xdkiy3  
LUbj^iQ9  
鉴定完毕.