一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： Qy*`s  
65\'(99yU  
字符类型的 BE:HO^-.1  
strUsername = CheckInput(Request(“username“),“s“) ; GRSe  
数字类型的 #)tt}GX  
ID = CheckInput(Request(“id“),“i“) 7*M+bZ`x  
!GURn1vcAe  
下面是函数 xYRN~nr  
yK_$6EtNKj  
X.}:gU-  
Function CheckInput(str,strType) O2us+DhQ  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 lSUEE0V%Q  
  参数意义： str     ---- 要过滤的参数 Jp!Q2}  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i VjBV2x  
Dim strTmp PiMh]  0  
strTmp   = #
Fl"#g$  
If strType =s Then H@qA X  
strTmp = Replace(Trim(str),,) b/Z=FS2T  
ElseIf strType=i Then c-z ,}`  
If isNumeric(str)=False Then str=0 G}&B{Ir  
strTmp = str T+9#P4  
Else 6FiI\  
strTmp = str 0hnN>?  
End If Jv %,v?  
CheckInput = strTmp 93$'PwWgiF  
End Function U ]`SM6  
)/1AF^ E  
%(MaH  
3~;LNi  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) $l@nk@  
单引号捏? 26.),a  
~1]4 J(+  
鉴定完毕.