一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ;o$;Z4:.D  
Sue 6+p  
字符类型的 <4zT;:NQ  
strUsername = CheckInput(Request(“username“),“s“) z/1hqxHl  
数字类型的 fQQ|gwVki  
ID = CheckInput(Request(“id“),“i“) +$(0w35V5  
m{&w{3pQk  
下面是函数 ">6&+^BN'  
lEfBe)7+  
abZdGnc  
Function CheckInput(str,strType) 6.Bh3p  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 V:\]cGA{  
  参数意义： str     ---- 要过滤的参数 <lOaor c  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i +8UdvMN  
Dim strTmp 9bn2UiJk  
strTmp   = Z5>V{o  
If strType =s Then !"! ii$@  
strTmp = Replace(Trim(str),,) b~W)S/wF$P  
ElseIf strType=i Then feCqbWq:  
If isNumeric(str)=False Then str=0 Tiprdvm<  
strTmp = str ,QS'$n  
Else b}%g}L D  
strTmp = str Bn-J_-%M  
End If y[:q"BB3  
CheckInput = strTmp GEtbs+[  
End Function l7Lj[d<n  
bm}+}CJ@#0  
zKJ.Tj W  
G{A)H_o*  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) O!];_q/  
单引号捏? L *{Qj
H  
sVcdj|j  
鉴定完毕.