一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： W4t;{b  
Z/G ev"p  
字符类型的 w3N[
9w?1  
strUsername = CheckInput(Request(“username“),“s“) 0}<|7?  
数字类型的 3t.l5m Rg5  
ID = CheckInput(Request(“id“),“i“) Z3%}ajPu[  
#^#PP
O  
下面是函数 CVDV)#JA  
36.Z0Z1'F>  
_PPy44r2  
Function CheckInput(str,strType) 2"COP>  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 MO[2~`,Q!  
  参数意义： str     ---- 要过滤的参数 q~rEq%tk  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i QER?i;-wb  
Dim strTmp H h4WMZJG  
strTmp   = at@G/?  
If strType =s Then JX<)EZ!F  
strTmp = Replace(Trim(str),,) &g#@3e1>  
ElseIf strType=i Then }?lrU.@zg  
If isNumeric(str)=False Then str=0 sm9k/(-
 
strTmp = str t1]K<>g  
Else md+nj{Ib  
strTmp = str =-tw5], L  
End If '_<{p3M  
CheckInput = strTmp sXqz+z$*  
End Function bkRLC_/d  
-<6\1J  
} j<)L,  
__uA}fZp  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) Id*Ce2B  
单引号捏? u\a#{G;Z  
r+'qd)  
鉴定完毕.