一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： T^)plWw  
1mUTtYU  
字符类型的 G,DOBA  
strUsername = CheckInput(Request(“username“),“s“) "a(1s},  
数字类型的 S%+R#A1  
ID = CheckInput(Request(“id“),“i“) t"YIq/08  
d^aNR Lv  
下面是函数 Y+|PY? ~  
0BC`iql5  
zzf7S%1I  
Function CheckInput(str,strType) swZpWC  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 5#u.pu  
  参数意义： str     ---- 要过滤的参数 3X'W
R]  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i eY3=|RR  
Dim strTmp |!b9b(_j9  
strTmp   = {})y^L  
If strType =s Then ZlM_m >,o  
strTmp = Replace(Trim(str),,) (v;A'BjN  
ElseIf strType=i Then 6lU|mJ`M  
If isNumeric(str)=False Then str=0 FE6C6dW{  
strTmp = str 5'9.np F)  
Else i<:p.ug-O  
strTmp = str FW^.m?}|  
End If n0FYfqH  
CheckInput = strTmp + U5U.f%  
End Function +u#Sl)F  
`@\^m_!}  
{,v: GMsm  
8nu> gA  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) -7
L  
单引号捏? '_E c_F  
^6&_|f  
鉴定完毕.