一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： bq z*90  
vs{xr*Ft  
字符类型的 ?|{tWR,Vb  
strUsername = CheckInput(Request(“username“),“s“) QURpg/<U  
数字类型的 &X)^G#  
ID = CheckInput(Request(“id“),“i“) |z`AIScT  
,@aF#  
下面是函数 ><{Lh@{  
g3c,x kaO  
Bs\&'=l  
Function CheckInput(str,strType) A[H"(E#k  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 D:XjJMW3r  
  参数意义： str     ---- 要过滤的参数 v\-7sgZR  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i J'*`K>wV  
Dim strTmp Mc6v  
strTmp   = DYTC2  
If strType =s Then ^"+Vx9H"{  
strTmp = Replace(Trim(str),,) 90">l^HX=  
ElseIf strType=i Then  \1?:  
If isNumeric(str)=False Then str=0 F+/#ugI  
strTmp = str ]f*.C9Y  
Else <h*$bx]9 +  
strTmp = str (4IH%Ez){  
End If p*~b5'+ C+  
CheckInput = strTmp afye$$X  
End Function AX6l=jFZx  
DS=Dg@y  
#4F0o@Z  
R RnT.MU  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) uk)D2.eS,  
单引号捏? rXVRX#Lh  
ZC9S0Z  
鉴定完毕.