一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： xE.=\UzJ  
=;xlmndT,  
字符类型的 ; bDFrG  
strUsername = CheckInput(Request(“username“),“s“) /7zy5  
数字类型的 %25_  
ID = CheckInput(Request(“id“),“i“) )uyh  
y/2U:H  
下面是函数 Sq==)$G  
IN]bAd8"  
4B}w;d@R  
Function CheckInput(str,strType) ,@ Cru=  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 $RSVN?  
  参数意义： str     ---- 要过滤的参数 rQ$A|GJL  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i JGD{cr[S  
Dim strTmp !ZV#~t:)  
strTmp   = O"9f^y
*  
If strType =s Then Z_Ma|V?6  
strTmp = Replace(Trim(str),,) +e"}"]n  
ElseIf strType=i Then 9Au+mIN  
If isNumeric(str)=False Then str=0 i]LK,'  
strTmp = str \9k{"4jX\  
Else Xl*-A|:j  
strTmp = str ig/716r|  
End If
Gb\7W  
CheckInput = strTmp |@-WC.  
End Function o6KBJx  
(A&@ <  
hOMFDfhU  
iVu+ct-iv  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) $'FPst8Q<  
单引号捏? ,n!xzoX_  
83l)o$S  
鉴定完毕.