一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： &\Yd)#B/  
p/?TU  
字符类型的 fVxRK\a\\  
strUsername = CheckInput(Request(“username“),“s“) g&L $5  
数字类型的 }\d3   
ID = CheckInput(Request(“id“),“i“) $F~hL?"?  
Ffr6P }I  
下面是函数 n$jf(
$*  
V2*m/JyeB  
N0
&#fXO  
Function CheckInput(str,strType) f
c9gi4y9  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ]]_H|tO  
  参数意义： str     ---- 要过滤的参数 UE/N-K)`  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i <P<^,aC/j  
Dim strTmp E3E$_<^  
strTmp   = uT{.\qHo  
If strType =s Then -u%'u~s  
strTmp = Replace(Trim(str),,) P8;f^3V(+/  
ElseIf strType=i Then ot.R Gpg%  
If isNumeric(str)=False Then str=0 :]-? l4(%  
strTmp = str AV?<D.<  
Else }S>:!9f  
strTmp = str z,/y2H2  
End If M^~  
CheckInput = strTmp gb@ |\n  
End Function My\  

V39)[FH}  
^1NtvQe@Y\  
o!M*cyq  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) .j0]hn]  
单引号捏? Eb=;D1)y]  
 \l8$1p  
鉴定完毕.