一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： bH4'j/3  
IB9[Lx  
字符类型的 8xs}neDg*  
strUsername = CheckInput(Request(“username“),“s“) _GEt:=DAP#  
数字类型的 (T;4'c  
ID = CheckInput(Request(“id“),“i“) ?/ xk  
gzfs9e  
下面是函数 Yd]y`J?#  
hTgWqp  
PwP;+R};|  
Function CheckInput(str,strType) Y_m/? [:  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 A&EVzmj-+X  
  参数意义： str     ---- 要过滤的参数 Cm@e^l!  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i z}I=:  
Dim strTmp $:IOoS|e  
strTmp   = 9))E\U
 
If strType =s Then _BGw)Z 6  
strTmp = Replace(Trim(str),,) 7)&}riQ  
ElseIf strType=i Then _'
pow&w~  
If isNumeric(str)=False Then str=0 $="t7C9S  
strTmp = str O.61-rp  
Else $
HVus=D"  
strTmp = str ~uqpF-.  
End If WAr;g?Q8  
CheckInput = strTmp 69#mj*p@+  
End Function mS?.xu  
I(LBc  
h| q!Qsnj'  
lAjP'(  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 6)<g%bH!
  
单引号捏? [O)(0  
g\9I&z~?  
鉴定完毕.