一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 6G8No-#y  
`3;EJDEdbi  
字符类型的 9\Ii$Mp  
strUsername = CheckInput(Request(“username“),“s“) [LYO'-g^F#  
数字类型的 F%w!I 9  
ID = CheckInput(Request(“id“),“i“) ,lZ19B?WP  
eh86-tQI~(  
下面是函数 CMj =4e  
IMf|/a9-  
8 v/H;65  
Function CheckInput(str,strType) FM{f{2j  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 $L*gtZ  
  参数意义： str     ---- 要过滤的参数 q0.!T0i  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i ^ZwZz
e:2  
Dim strTmp c4H6I~2Na  
strTmp   = [D
"6&  
If strType =s Then _.5{vGyxr  
strTmp = Replace(Trim(str),,) f:>y'#P  
ElseIf strType=i Then Od!)MQ*,  
If isNumeric(str)=False Then str=0 DbMVbgz<e  
strTmp = str y``\^F  
Else @6;OF5VsQ  
strTmp = str *:%&z?<Fw  
End If OSBR2Z;=  
CheckInput = strTmp };Q}C0E  
End Function odhcD;^X1  
wm5&5F4:  
"n%j2"TYJj  
)N.3Q1g-  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) L=lSW
7R  
单引号捏? Ao K9=F}  
d{fd5jv;  
鉴定完毕.