一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： _>k&,p]y  
LRuB&4r8  
字符类型的 5i$iUDuT>(  
strUsername = CheckInput(Request(“username“),“s“) zS6oz=  
数字类型的 HZ+l){u  
ID = CheckInput(Request(“id“),“i“) -/7[\S  
XITh_S4fs=  
下面是函数 SGp}(j>  
 3g#  
BbV@ziL  
Function CheckInput(str,strType) d7*fP S  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Rl%?c5U/$  
  参数意义： str     ---- 要过滤的参数 : }q~<  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i P>i!f!o*I  
Dim strTmp %#zqZ|q  
strTmp   = UP})j.z  
If strType =s Then cGE,3dsF[  
strTmp = Replace(Trim(str),,) { +$zgg  
ElseIf strType=i Then &`9p.  
If isNumeric(str)=False Then str=0 lo!.%PP|  
strTmp = str 9CxFj)#5F  
Else X}W4dpU,  
strTmp = str *Bse3%-v  
End If /jtU<uX  
CheckInput = strTmp v{T%`WuPRf  
End Function  s_p\ bl.  
FVgE^_  
/3!c ;(  
V*C%r:5 ,v  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 9r efv  
单引号捏? (9phRo)>  
u@{z xYn  
鉴定完毕.