一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ,tZWPF-  
N4Z%8:"pj  
字符类型的 spV/+jy{  
strUsername = CheckInput(Request(“username“),“s“) nxP>IfSA  
数字类型的 9air"4  
ID = CheckInput(Request(“id“),“i“) hSq3LoHV  
sV+/JDl  
下面是函数 !K#Q[Ee  
brGUK PB  
([='LyH];z  
Function CheckInput(str,strType) jd|? aK;(  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 %+U.zd$  
  参数意义： str     ---- 要过滤的参数 ^|?/ y=  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Q&;dXE h  
Dim strTmp POQRq%w  
strTmp   = SXn1v.6  
If strType =s Then 7c9-MP)  
strTmp = Replace(Trim(str),,)  pojQ/  
ElseIf strType=i Then e`fN+  
If isNumeric(str)=False Then str=0 LoQ
m&3/  
strTmp = str #N?EPV$  
Else xZ}1dq8  
strTmp = str vl8Ums} +  
End If
SNB>  
CheckInput = strTmp yT<yy>J9l#  
End Function E4aCL#}D  
oX@0+*"  
#y"EhwF  
Re**)3#gn  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 445}Yw5;9  
单引号捏? y{ReQn3>y  
@sRUl ,M;Z  
鉴定完毕.