一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： J-, H6u  
^<>Jw%H  
字符类型的 iM?I /\  
strUsername = CheckInput(Request(“username“),“s“) 2H?I'<NoC  
数字类型的 Bbl)3$`,  
ID = CheckInput(Request(“id“),“i“) O^X[9vrW  
m~Y'$3w  
下面是函数 vZ[$H  
ZVdsxo<  
.7pGx*WH^Y  
Function CheckInput(str,strType) Q{
qj  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 iHE0N6%q  
  参数意义： str     ---- 要过滤的参数 -7-Fd_F8  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i [GR]!\!%~  
Dim strTmp jh 7p62R  
strTmp   = W(uP`M%][0  
If strType =s Then QJM-`(  
strTmp = Replace(Trim(str),,) $[
M}K  
ElseIf strType=i Then jiA5oX^g  
If isNumeric(str)=False Then str=0 4Vu'r?  
strTmp = str )Lc<;=w'9  
Else lFp!XZ!  
strTmp = str f MY;  
End If ).0V%}>  
CheckInput = strTmp *? K4!q'  
End Function a%7"_{s1  
1<LC8?wt  
%_B:EMPd  
Bs+c2R  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) c;c:Ea5  
单引号捏? l `fW{lh  
<@u0.-]  
鉴定完毕.