一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 
6>]  
OJu>#   
字符类型的 @aQ:3/  
strUsername = CheckInput(Request(“username“),“s“) #QFz /6  
数字类型的 9\EW~OgTu  
ID = CheckInput(Request(“id“),“i“) }.o.*N  
AE:(:U\  
下面是函数 L;0 NR(b!  
Dn)yBA%  
_.9 5>`  
Function CheckInput(str,strType) dU3A:uS^  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 T^4 dHG-(  
  参数意义： str     ---- 要过滤的参数 ;B@#,6t/  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i \:+\H0Bz  
Dim strTmp :!_l@=l  
strTmp   = 8gavcsVE[  
If strType =s Then 0U7Gl9~  
strTmp = Replace(Trim(str),,) .F,l>wUNe  
ElseIf strType=i Then zg ,=A?  
If isNumeric(str)=False Then str=0 "SN*hzs"]`  
strTmp = str <r,5F:  
Else +.~K=.O)  
strTmp = str 6CFnE7TQf  
End If nFJW\B&(`  
CheckInput = strTmp wn@~80)$  
End Function (l%?YME  
68j1svz9  
<%YW/k"o  
`<g]p-=":  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) (nO2+@!  
单引号捏? Q
crhgR  
'ge$}L}4  
鉴定完毕.