一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： F{eU";D  
0TGLM#{  
字符类型的  /o[?D  
strUsername = CheckInput(Request(“username“),“s“) YN`H BFH  
数字类型的 cfcim.jB  
ID = CheckInput(Request(“id“),“i“) CAcS~ "  
wvbPnf^y  
下面是函数 TiYnc3Bz}J  
$% 1vW=d  
*M$0J'-B
Q  
Function CheckInput(str,strType) =,Dqqf  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 d!:6[7X6  
  参数意义： str     ---- 要过滤的参数 mnmP<<8C,  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i "FTfk  
Dim strTmp $OP7l>KZY  
strTmp   = )('%R|$ /  
If strType =s Then 2I&o69x?  
strTmp = Replace(Trim(str),,) >y[oP!-|P  
ElseIf strType=i Then 9'{}!-(xR  
If isNumeric(str)=False Then str=0 l2l(_$@3  
strTmp = str q|8{@EMT  
Else M-[$L XR  
strTmp = str Zf'TJ`S  
End If q-c=nkN3  
CheckInput = strTmp DwrO JIy  
End Function Y=?yhAw  
hi0R.V&  
L+CyQq  
TZ2=O<Kj  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) q*2N{  
单引号捏? 1qf!DMcdZ  
(iRide  
鉴定完毕.