ASP防止SQL注入—检测SQL语句是否包含敏感字符

Function CheckSql() 
    Dim sql_injdata   
    SQL_injdata = "’|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"  
    SQL_inj = split(SQL_Injdata,"|")  
    If Request.QueryString<>"" Then  
        For Each SQL_Get In Request.QueryString  
            For SQL_Data=0 To Ubound(SQL_inj)  
                if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then  
                    Response.Write "<Script Language=’javascript’& gt;{alert(’请不要在参数中包含非法字符！’);history.back(-1)}< /Script>"  
                    Response.end  
                end if  
            next  
        Next  
    End If 
    If Request.Form<>"" Then  
        For Each Sql_Post In Request.Form  
            For SQL_Data=0 To Ubound(SQL_inj)  
                if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then  
                    Response.Write "<Script Language=’javascript’& gt;{alert(’请不要在参数中包含非法字符！’);history.back(-1)}     </Script>"  
                    Response.end  
                end if  
            next  
        next  
    end if 
End Function