一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ,LI$
=lJ@  
paKur%2u  
字符类型的 SnIH6k0T_  
strUsername = CheckInput(Request(“username“),“s“)  N>ncv  
数字类型的 -55[3=#

 
ID = CheckInput(Request(“id“),“i“) Dzd[<Qln  
T_t5Tg~i[N  
下面是函数 (LiS9|J!  
#IJm*_J<  
zT<fTFJ1  
Function CheckInput(str,strType)  NOY`1i  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 *vy^=Yea  
  参数意义： str     ---- 要过滤的参数 MB7UI8  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i L`'#}#O l  
Dim strTmp ?'_Ty`vT  
strTmp   = ->Z9j(JU  
If strType =s Then \r %y^G  
strTmp = Replace(Trim(str),,) HQp\0NC]  
ElseIf strType=i Then x[?N[>uw  
If isNumeric(str)=False Then str=0 @jL](Mq|]  
strTmp = str ~7p!t%;$  
Else (vX) <Z !  
strTmp = str 0Q7teXRM  
End If T`?7z+2A  
CheckInput = strTmp
(Q5rOrA"  
End Function 6ZO6O=KD  
In[rxT~K}Q  
J.EBt3  
}b5omHUE%  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) _
:N
=  
单引号捏? /0Jf/-}ovn  
HLe/|x\@<  
鉴定完毕.