通用防SQL注入攻击代码，无错！

<%
'定义过滤内容
dim   sql_injdata  
SQL_injdata   = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj   =   split(SQL_Injdata,"|")
'检查get方式
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>alert('系统提示↓nn请不要在参数中包含非法字符尝试注入！');history.back(-1)</Script>"  
Response.end  
end   if  
next  
Next  
End   If
'检查post方式
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> alert('系统提示↓nn请不要在参数中包含非法字符尝试注入！');history.back(-1) </Script>"
Response.end
end if
next
next
end if 
%>

我发现网上提供的几乎都是错误的，包括国内著名网站上！

所以在这里给大家一个正确的！