一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： A]OVmw  
:tBZu%N/N  
字符类型的 /` 4B-Y4M4  
strUsername = CheckInput(Request(“username“),“s“) k_7agW  
数字类型的 cy#N(S[ 1  
ID = CheckInput(Request(“id“),“i“) ]o*-|[^?  
D,, x<JG|  
下面是函数 -P=Hp/ELi  
9E]7Etfw  
NU!B|l  
Function CheckInput(str,strType) O:W4W=K  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 d#
q8-  
  参数意义： str     ---- 要过滤的参数 A@JZK+WB}  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i TS;?>J-  
Dim strTmp [^A>hs*  
strTmp   = p`3$NCJN  
If strType =s Then *\F,?yU  
strTmp = Replace(Trim(str),,) l*n4d[0J  
ElseIf strType=i Then *]* D^'  
If isNumeric(str)=False Then str=0 :faB7wduW;  
strTmp = str -LEpT$v|  
Else 5gY9D!;:0D  
strTmp = str <^wqN!/  
End If &!O~ f  
CheckInput = strTmp !7aJfs2  
End Function Bhw|!Y&%  
;>B06v  

3dC;B@  
T'e p&tNY  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) V2_I=]p_  
单引号捏? j-wz7B  
g'1ASMuR  
鉴定完毕.