一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ?%_]rr9  
8UjCX[v  
字符类型的 wV]sGHuF}  
strUsername = CheckInput(Request(“username“),“s“) s=3EBh  
数字类型的
^?81.b|qb  
ID = CheckInput(Request(“id“),“i“) W8\PCXnsfl  
/5a$@%  
下面是函数 ^p'D<!6sK  
Z5{*? 2  
I67k M{V  
Function CheckInput(str,strType) }:K\)Pd  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 IiYuUN1D  
  参数意义： str     ---- 要过滤的参数 pQ4 %]Api  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i W ??;4  
Dim strTmp }UJdE#4  
strTmp   = S]Yu6FtWiO  
If strType =s Then KE }o  
strTmp = Replace(Trim(str),,) oX%PsS  
ElseIf strType=i Then Q;{D8 #!  
If isNumeric(str)=False Then str=0 @$K![]oD  
strTmp = str 5)/4)0  
Else R.^Bxi-UG:  
strTmp = str !nZI? z;  
End If h7Shl<f  
CheckInput = strTmp h$:&1jVY{  
End Function <S:,`v&Z  
'_Hb}'sFI  
?eYchVq  
XPR:_  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) oPCIlH  
单引号捏? SIyS.!k>  
%te'J G<  
鉴定完毕.