一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： Wb;x eG  
[3~mil3rO  
字符类型的 0c,)T1NG>  
strUsername = CheckInput(Request(“username“),“s“) Vi5&%/Y  
数字类型的 R|,F C'  
ID = CheckInput(Request(“id“),“i“) $Rd]eC  
zg[.Pws:E  
下面是函数 XSv)=]{  
jW<aAd  
)d^b\On  
Function CheckInput(str,strType) SR<*y

O  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 4_i6qu(4  
  参数意义： str     ---- 要过滤的参数 1k:s~m?!  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i ;Q}pmBkqB  
Dim strTmp N+V_[qr#  
strTmp   = X *fle  
If strType =s Then o(|fapK.  
strTmp = Replace(Trim(str),,) 8YLS/dN0 w  
ElseIf strType=i Then /5s,< 0Kz  
If isNumeric(str)=False Then str=0 7XDze(O5  
strTmp = str JKMcdD?'  
Else `SN?4;N0  
strTmp = str yJMHm8OB7  
End If q]}1/JZS  
CheckInput = strTmp hj*Fn  
End Function <8?jn*$;\  
2\'5LL3  
q_gsYb  
$1ZFkw  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) -AX[vTB  
单引号捏? AY~~a)V  
z!0}Kj  
鉴定完毕.