一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ;hzm&My  
kyR=U`OW  
字符类型的 Mwm9{1{  
strUsername = CheckInput(Request(“username“),“s“)
cHP~J%&L  
数字类型的 <a_ytSoG1  
ID = CheckInput(Request(“id“),“i“) I54`}Npp  
4Cm+xAXG  
下面是函数 Vh=10Et  
U~H]w,^  
.d/e?H:  
Function CheckInput(str,strType) $IUe](a{d  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Qx<86aKkF  
  参数意义： str     ---- 要过滤的参数 w`ebZa/j  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i d^pzMaCI  
Dim strTmp .Aj4?AXWc  
strTmp   = H+lB
b$  
If strType =s Then [ 'aSPA  
strTmp = Replace(Trim(str),,) `?P)RS30  
ElseIf strType=i Then m}`!FaB #  
If isNumeric(str)=False Then str=0 nz
+k ,  
strTmp = str S3fyt]pp  
Else O S?S$y  
strTmp = str dK.k,7R  
End If 4+?d0  
CheckInput = strTmp 8p"R4  
End Function ~IQ3B$4H&  
{XR3L'X  
7UnB]-:.  
xQA6!j  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 4rDaJd>,  
单引号捏? q/qJkr^2  
)+L.$h  
鉴定完毕.