一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： A'qJke=  
yqqP7  
字符类型的 )'M<q,@<(  
strUsername = CheckInput(Request(“username“),“s“) Q"CZ}B1<  
数字类型的 MP?9k)f  
ID = CheckInput(Request(“id“),“i“) 1i9}mzy%  
*&>1A A  
下面是函数 St/Hv[H'[E  
Oh<[8S7]C  
RNuOwZ1m  
Function CheckInput(str,strType) ;Gxp'y  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 3a9Oj'd1M  
  参数意义： str     ---- 要过滤的参数
nH*U  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i xfqgK D>  
Dim strTmp 7ZS5u+o  
strTmp   = GAbX.9[V  
If strType =s Then UNq!|  
strTmp = Replace(Trim(str),,) BOn2`|oLuF  
ElseIf strType=i Then V@<tIui$  
If isNumeric(str)=False Then str=0 A[v]^pv'  
strTmp = str {AqN@i  
Else Q4-d2I>0  
strTmp = str |~k=:sSz
{  
End If WA~|:S+  
CheckInput = strTmp ~my\{q  
End Function ~!j1</$_  
|4
pE"6A  
@DfjeS)u^  
or\ 2)  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) wqyx{W`~w  
单引号捏? %FLz}QW*  
vLJ<_&6  
鉴定完毕.