一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 2u/(Q>#  
(Q\QZu@  
字符类型的 HFvhrG
  
strUsername = CheckInput(Request(“username“),“s“) 9e1gjC\c  
数字类型的 ] QtGgWtC  
ID = CheckInput(Request(“id“),“i“) bG;vl;C  
,HYz-sK.  
下面是函数 $Y)|&,  
Xq+7l5LP  
Z9 }qds6 y  
Function CheckInput(str,strType) H\8.T:>  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 4- N>#  
  参数意义： str     ---- 要过滤的参数 I)O%D3wfMW  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i )"=BbMfhu  
Dim strTmp p"JITH:G  
strTmp   = hFyN|Dqhds  
If strType =s Then 9F ).i  
strTmp = Replace(Trim(str),,) ^L<1S/~)  
ElseIf strType=i Then L&
q~5 9  
If isNumeric(str)=False Then str=0 * vEG%Y  
strTmp = str ?r2Im5N  
Else I&1h/  
strTmp = str R qOEQ*k  
End If 5rfGMk<  
CheckInput = strTmp JrYpZ.Nh  
End Function $bD 3  
ZO W{rv]  
-GH#nF3G  
Xl@nv9m  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) #^%Rk'W  
单引号捏? nNq|v=L  
?)5}v4b  
鉴定完毕.