一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： wqE ]o= k  
^n]tf9{I  
字符类型的 g"C$B Fc  
strUsername = CheckInput(Request(“username“),“s“) 6tG9PG98q9  
数字类型的 51;(vf  
ID = CheckInput(Request(“id“),“i“) -zc9=n<5  
30<dEoF  
下面是函数 {,s:vPoiA  
W11_MTIU  
tMyD^jVC  
Function CheckInput(str,strType) KDQux  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 e>z7?"N  
  参数意义： str     ---- 要过滤的参数 ~ xf9 ml  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i \=yg@K?"AJ  
Dim strTmp L1rov  
strTmp   = b>2u>4  
If strType =s Then y-sQ"HPN  
strTmp = Replace(Trim(str),,) 7)_0jp~2  
ElseIf strType=i Then sUbZVPDr  
If isNumeric(str)=False Then str=0 gscsB4<  
strTmp = str wau81rSd  
Else '{:(4>&  
strTmp = str qM1$?U  
End If `+zr PpX  
CheckInput = strTmp P'Y8 t  
End Function e2B~j3-?z  
Z6h.gaQ7 H  
P"iqP|  
uN`ACc)ESi  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) %%k[TO  
单引号捏? c"QH-sE  
;\&7smE[  
鉴定完毕.