一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： y!=,u  
IEh
D5?  
字符类型的 /}m)FaAi  
strUsername = CheckInput(Request(“username“),“s“) sF {,n0<8  
数字类型的 `9^tuR,  
ID = CheckInput(Request(“id“),“i“) |{N{VK  
+K1M&(  
下面是函数 G,)zn9X  
Iq+N0G<j  
Pf[E..HF*d  
Function CheckInput(str,strType) Ol>q(-ea  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 PFJ$Ia|  
  参数意义： str     ---- 要过滤的参数 z%D7x5!,R  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i KoERg&fY  
Dim strTmp pp@ Owpb  
strTmp   = V'i-pn2gyu  
If strType =s Then H>CbMz1u  
strTmp = Replace(Trim(str),,) =Wcvb?;*  
ElseIf strType=i Then !/}3/iU  
If isNumeric(str)=False Then str=0 u_k[<&$  
strTmp = str ]=~dyi  
Else `dZ|Ko%k  
strTmp = str Tvx1+0Z%z  
End If $:~;U xh=  
CheckInput = strTmp RCWmdR#}V  
End Function h!w::cV  
>jI.$%L$  
|n26[=\B  
VRd7H.f,A6  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ?4b0\ -  
单引号捏? yD3}USw  
&D<R;>iI  
鉴定完毕.