一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： |LNAd:0  
PE-P(T3s[8  
字符类型的 jI9Kn41  
strUsername = CheckInput(Request(“username“),“s“) B^u qu  
数字类型的 Ss~dK-{e7  
ID = CheckInput(Request(“id“),“i“) ?sBbe@OC?  
#4<Rs|K  
下面是函数 *w;=o}`  
89{@2TXR
 
?
~>#(Q  
Function CheckInput(str,strType) (qM(~4|`  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 =W~K_jE5lo  
  参数意义： str     ---- 要过滤的参数 w %sHA  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i tag~SG`ov  
Dim strTmp #RwqEZ  
strTmp   = ?u]%T]W  
If strType =s Then Z#lZn!EbK  
strTmp = Replace(Trim(str),,)
4-:TQp(  
ElseIf strType=i Then s&7,gWy}BE  
If isNumeric(str)=False Then str=0 =5sUpPV(  
strTmp = str tu6Q7CjW8  
Else Q
]
}aZ4L  
strTmp = str d;D8$q)8
Q  
End If N6BFs
(  
CheckInput = strTmp | Djgm7$*  
End Function Kqt,sJ  
_,JdL'[d  
KvrcO#-sL  
^SouA[  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) s2-p-n  
单引号捏? KF[P /cFI  
MH>CCT  
鉴定完毕.