一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： V3ExS1fNf  
nO#x"  
字符类型的 A=wG};%_  
strUsername = CheckInput(Request(“username“),“s“) )r?-_qj=  
数字类型的 sgRWjrc/  
ID = CheckInput(Request(“id“),“i“) 3Hi8=*  
}ld^zyL  
下面是函数 EI496bsRHm  
jZ''0Lclpc  
/0Mt-8[  
Function CheckInput(str,strType) yW&ka3j
\  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 [Y.=bfV!  
  参数意义： str     ---- 要过滤的参数 :*s@L2D6  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i =|dHD  
Dim strTmp V>D}z8w7  
strTmp   = ,&L}^Up  
If strType =s Then y
9.?5#aL  
strTmp = Replace(Trim(str),,) a'A<'(yv  
ElseIf strType=i Then W}#n.c4+  
If isNumeric(str)=False Then str=0 wF3 MzN=%  
strTmp = str H
p@Q  
Else f~7V<v  
strTmp = str k8r1)B4ab  
End If wN

U;gz  
CheckInput = strTmp E6z&pM8<8  
End Function e;2A{VsD8  
Cj$:TWYIh[  
RT${7=  
i.\ e/9]f  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) cL][sI  
单引号捏? p$uPj*  
|(AFU3~  
鉴定完毕.