一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 7Fi2^DlgX  
I>%S4Z+o  
字符类型的 !UMo4}Y  
strUsername = CheckInput(Request(“username“),“s“) yD"
0=\  
数字类型的 \;*}zX  
ID = CheckInput(Request(“id“),“i“) CC>fm1#i\  
T6I%FXm}  
下面是函数 p=~h|(M|  
lke
~>0;  
ytve1<.Ff  
Function CheckInput(str,strType) RzzFhU#r  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 IjDT'p_  
  参数意义： str     ---- 要过滤的参数 },fo+vRM  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i _+*/~E  
Dim strTmp uPFHlT  
strTmp   = (eRKR2% q  
If strType =s Then }
PFt  
strTmp = Replace(Trim(str),,) ;>Ca(Y2M  
ElseIf strType=i Then 7SK3  
If isNumeric(str)=False Then str=0 ^V: "zzn&  
strTmp = str TsX+. i'  
Else IypWVr  
strTmp = str ``|gcG  
End If TmYP_5g:  
CheckInput = strTmp ?]W~ qgA  
End Function 7rdw`  
NuD[-;N]  
|}M0,AS  
W]
O@DS zR  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 5iQmZ[  
单引号捏? H|;*_  
`ke3+%uj o  
鉴定完毕.