一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： eYlI};  
B@dCCKc%/  
字符类型的 n=$ne2/  
strUsername = CheckInput(Request(“username“),“s“) *ej< 0I{  
数字类型的 KDGrX[L:6  
ID = CheckInput(Request(“id“),“i“) +|X`cmnuU  
<Ist^h+o  
下面是函数 a8Xwz@ M  
1(>2tEjYT  
-Edy ~;_  
Function CheckInput(str,strType) Dic|n@_Fy  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 HYT~AO-!  
  参数意义： str     ---- 要过滤的参数 i_r708ep6  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i jpZq]E9`P  
Dim strTmp ' i5KRFy-  
strTmp   = $YY{|8@kjv  
If strType =s Then yk5K8D[tV  
strTmp = Replace(Trim(str),,) < Mu`,Kv*  
ElseIf strType=i Then ;Sg.E8  
If isNumeric(str)=False Then str=0 m0h,!  
strTmp = str  #$2
/<  
Else m2l9([u=^  
strTmp = str LA2/<:  
End If &hL2xx=  
CheckInput = strTmp (^g XO  
End Function A! HJ  
&)||~  
cbm;45 L|  
oUN\tOiS+  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) M1#CB  
单引号捏? ?r8hl.Z>  
X?< L<:.  
鉴定完毕.