一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： s[Y)d>~\$=  
Q1aHIc  
字符类型的 976E3u"Vt  
strUsername = CheckInput(Request(“username“),“s“) KX0<j  
数字类型的 mk#>Dpy?  
ID = CheckInput(Request(“id“),“i“) r3n=<l!Jr  
UAnB=L,.\  
下面是函数 fx]\)0n  
~C%2t{"  
_`TepX
 R  
Function CheckInput(str,strType) Rbx97(wK  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 QIR4<]/  
  参数意义： str     ---- 要过滤的参数 Gtj(  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i s]$HkSH  
Dim strTmp lo\:]/&6  
strTmp   = 6\; 4 4,3  
If strType =s Then ;M%oQ>].[  
strTmp = Replace(Trim(str),,) u)<Ysx8G  
ElseIf strType=i Then !S
h^LYqn  
If isNumeric(str)=False Then str=0 h`z2!F4  
strTmp = str @WhZx*1  
Else *jYHd#UZx4  
strTmp = str |^YzFrc  
End If C!oS=qK?]  
CheckInput = strTmp RY>)eGJ  
End Function pem3G5 `g=  
17J}uXA  
2z'+1+B'  
%4bO_vb<9  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) l
=oN X"l=  
单引号捏? BP)q6?Mz  
9oZ} h&  
鉴定完毕.