一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： S-l<+O1fy  
Vea2 oQq  
字符类型的 !Hq$7j_  
strUsername = CheckInput(Request(“username“),“s“) Z0HfrK#oU  
数字类型的 uF,F<%d  
ID = CheckInput(Request(“id“),“i“) 4&

%0%  
{o1vv+i  
下面是函数 4eH:eCZze  
>G7dw1;  
~(i#A>
 
Function CheckInput(str,strType) }7?_>  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Q*4{2oQ  
  参数意义： str     ---- 要过滤的参数 {Tx"G9  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i \#Md3!MG  
Dim strTmp >T84NFdz+  
strTmp   = 4Z8FLA+T,  
If strType =s Then a',6WugIP  
strTmp = Replace(Trim(str),,) O0^m_  
ElseIf strType=i Then j.=&qYc0"  
If isNumeric(str)=False Then str=0 e1cqzhI=nA  
strTmp = str vH1IVF"DS  
Else %Q,6sH#  
strTmp = str tofX.oi+C$  
End If `Iwl\x[A  
CheckInput = strTmp u@&e{w~0  
End Function ;wGoEN  
x[u4>f  
xER-TT#S  
Q1kZ+b&  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) tJe5`L  
单引号捏? hTc :'vq  

+MR]h [  
鉴定完毕.