一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： utKtxLX"  
:-7`Lfi@%  
字符类型的 jftoqK- p  
strUsername = CheckInput(Request(“username“),“s“) :)X?ML?  
数字类型的 ;LNFPo   
ID = CheckInput(Request(“id“),“i“) #\*ODMk$4|  

/r
N%y  
下面是函数 [_Y\TdR  
VYI%U'9Q  
h"cLZM:6  
Function CheckInput(str,strType) ]W3D4Swq  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 pzmm cjEC  
  参数意义： str     ---- 要过滤的参数 fw,ruROqD  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i JS% &ipm  
Dim strTmp 1[o] u:m9U  
strTmp   = 12v5*G[X  
If strType =s Then He="S3XON  
strTmp = Replace(Trim(str),,) @kC>+4s!  
ElseIf strType=i Then {ecmOxKP}  
If isNumeric(str)=False Then str=0 fRC(Yyx  
strTmp = str YG$2ySkDhE  
Else =wH
H
R1e  
strTmp = str &-W5T?Sl  
End If 6*%3O=*  
CheckInput = strTmp 2j8^Z  
End Function ^:W
.R7|  
Ac!,#Fq  
ik02Q,J  
>HO{gaRM  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) "f\2/4EIl  
单引号捏? 'gd3 w~  
R[ p. )F7  
鉴定完毕.