一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ?()*"+N(ck  
Q
P(0  
字符类型的 y98FEG#S}  
strUsername = CheckInput(Request(“username“),“s“) (VeK7cU  
数字类型的 M+ +Dk7B  
ID = CheckInput(Request(“id“),“i“) EtcT:k?y  
q3x"9i `  
下面是函数 \u,CixV=  
Db|f"3rq?  
8 0tA5AP  
Function CheckInput(str,strType) sY;h~a0n  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 riIubX#  
  参数意义： str     ---- 要过滤的参数 0~U#DTx0  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i \D@j`o  
Dim strTmp t]h_w7!U  
strTmp   = 2R\K!e  
If strType =s Then 5i[O\@]5  
strTmp = Replace(Trim(str),,) /HdXJL9B  
ElseIf strType=i Then 1dN/H)]  
If isNumeric(str)=False Then str=0 r8EJ@pOF2w  
strTmp = str @Tu`0=8  
Else " .7@  
strTmp = str cfTT7O#Dc  
End If ?w:\0j5~  
CheckInput = strTmp k4']q  
End Function zDvV%+RW)  
$MR1 *_\V  
pr<u 5  
n9Fq^^?  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) nE]rPRU}[  
单引号捏? sl$6Zv-l%0  
^(q .f=I!a  
鉴定完毕.