一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： T3I{D@+0  
Jhfw$DF  
字符类型的 "C
?H:8W  
strUsername = CheckInput(Request(“username“),“s“) @9R78Zra  
数字类型的 [s{[ .0P]+  
ID = CheckInput(Request(“id“),“i“) 'V&Tlw|  
/f
drf  
下面是函数 zO@>)@~  
RT${7=  
~/XDA:nfL:  
Function CheckInput(str,strType) iB`EJftI!  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 P
kLNIp1  
  参数意义： str     ---- 要过滤的参数 J 5xMA-  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i  tq?a3  
Dim strTmp 7C R6ew~  
strTmp   = 1jO%\uR/  
If strType =s Then F)v  
strTmp = Replace(Trim(str),,) .R l7,1\  
ElseIf strType=i Then *F!1xyg  
If isNumeric(str)=False Then str=0 ,RW`9+gx  
strTmp = str cL][sI  
Else pC #LQ  
strTmp = str 7O:g;UI#  
End If N,l"9>CF  
CheckInput = strTmp M8/:PmR<  
End Function +bT[lJ2O>G  
T#wG]DH;  
XyiaRW  
E^Q J50  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) K?r  
单引号捏? }r@yBUW  
r-yUWIr S  
鉴定完毕.