一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： !b7H  
46
4Z0C  
字符类型的 _E~uuFMn*R  
strUsername = CheckInput(Request(“username“),“s“) OS!47Z /q  
数字类型的 ]/a?:24[  
ID = CheckInput(Request(“id“),“i“) ^cY5!W.q8  
DJ\lvT#j  
下面是函数 ~(^
[TuJC  
Ro1l:P)C`  
[)a,rrhj  
Function CheckInput(str,strType) GY!&H"%  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 _x lgsa  
  参数意义： str     ---- 要过滤的参数 `wq\K8v  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 7W>T= @  
Dim strTmp  Op|Be  
strTmp   = BG|Kw)z*KM  
If strType =s Then WcdU fv(>  
strTmp = Replace(Trim(str),,) PCES&|*rf  
ElseIf strType=i Then =#W{&Te;  
If isNumeric(str)=False Then str=0 EH[?*>+s  
strTmp = str ,Pl[SMt!  
Else 7(oxmv}#Q  
strTmp = str Q:-/@$&i  
End If E/am^ TO`  
CheckInput = strTmp <l\FHJhjq  
End Function K<t(HK#[  
wCdUYgsPT"  
]s<Q-/X  
aH:eu<s  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) _x:K%1_[  
单引号捏? R%ddB D\?  
4(Mt6{q  
鉴定完毕.