一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： .C1^QY-wL  
m=R4A4Y7  
字符类型的 U>>J_2  
strUsername = CheckInput(Request(“username“),“s“) I%ez_VG  
数字类型的 Lh+^GQ  
ID = CheckInput(Request(“id“),“i“) BdceINI  
,Ya&M@^Z  
下面是函数 pD]Ry" ZG  
?TXFOr]g]2  
bx@CzXre;  
Function CheckInput(str,strType) e'jR<ln|  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 2`z+_DA  
  参数意义： str     ---- 要过滤的参数 E?;W@MJi  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i m'S-h'a  
Dim strTmp BH}u\K  
strTmp   = N\p3*#M  
If strType =s Then Zd%*,\`S  
strTmp = Replace(Trim(str),,) NzEuiI}  
ElseIf strType=i Then UkdQ#b1  
If isNumeric(str)=False Then str=0 [~J4:yDd=  
strTmp = str N9i>81tY  
Else d&fENnt?h  
strTmp = str B!5gD  
End If r4-r z+x  
CheckInput = strTmp jj^CW"IB  
End Function h_cZ&P|  
0I.7I#'3O  
`aJ[ !O  
m^ILcp!  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) FNUue  
单引号捏? L.8-nTg"y  
4g6d6~098;  
鉴定完毕.