一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： [,,@>nyD  
gac31,gH  
字符类型的 N6"sXwm  
strUsername = CheckInput(Request(“username“),“s“) rzIWQFv  
数字类型的 @Kz,TP!%A  
ID = CheckInput(Request(“id“),“i“) ">CRFee0  
eyJWFJh  
下面是函数 gv>DOez/  
jVd`J  
F:T(-,  
Function CheckInput(str,strType) el*|@#k}  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 V 97ORI  
  参数意义： str     ---- 要过滤的参数 1F,U^O  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i oo\^}jb  
Dim strTmp %%}l[W  
strTmp   = AXHY
$f|  
If strType =s Then rHB>jN@$  
strTmp = Replace(Trim(str),,) Lv['/!DJ|  
ElseIf strType=i Then dN3^PK  
If isNumeric(str)=False Then str=0 RU7+$Z0K  
strTmp = str q"<=^vi  
Else t3Gy *B  
strTmp = str Os-Z_zSl6  
End If JX&]>#6|E  
CheckInput = strTmp m;l[flQ~  
End Function @9| jY1  
:38h)9>RK  
5?SE?VC=t  
wg%Z  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) \ Y
F@r7  
单引号捏? m`-:j"]b$  
T$"~Vu  
鉴定完毕.