一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ]v G{kAnH  
S>q>K"j^!  
字符类型的 !}M,  
strUsername = CheckInput(Request(“username“),“s“) #(LfYw.P1V  
数字类型的 dz#5
q-r  
ID = CheckInput(Request(“id“),“i“) JM.XH7k  
ExHAY|UA  
下面是函数 iP3Z  
 6qo^2  
i;PL\Er:tX  
Function CheckInput(str,strType) lo&#(L+2  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 _ia!mT<  
  参数意义： str     ---- 要过滤的参数 ]7AX%EG3  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 1U\$iy8}  
Dim strTmp aaWJ* >rJ  
strTmp   = o**yZ2  
If strType =s Then P`1EPF  
strTmp = Replace(Trim(str),,) ALd;$fd qf  
ElseIf strType=i Then -qV{WZHp  
If isNumeric(str)=False Then str=0 oCi ~P}r  
strTmp = str j%Y\A~DV  
Else "L&k)J  
strTmp = str `BZ&~vJ_  
End If E^ h=!RW{  
CheckInput = strTmp ?Ce#BwQ>  
End Function |E/L.gdP7  

(d2@Mz  
0WxCSL$#I  
j;P+_Hfe/E  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ( 76{2  
单引号捏? j^u[F"  
+QqH}= M  
鉴定完毕.