[推荐]网站防止注入入侵的一些有效代码和方法

 
代码一:

<%

&apos;--------定义部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
&apos;自定义需要过滤的字串,用 "防 " 分隔
Fy_In = "’’’’防;防and防exec防insert防select防delete防update防count防*防%防chr防m
End  If  
If  Request.QueryString < > " "  Then  
For  Each  Fy_Get  In  Request.QueryString  
For  Fy_Xh=0  To  Ubound(Fy_Inf)  
If  Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh)) < >0  Then  
Response.WrITe  " <Script  Language=JavaScript >alert(’’’’网长友情提示黑客大侠↓请不要在参数中包含非法字符尝试注入攻击本站,本站做起来很不容易的.俺是菜鸟,好怕怕,放俺一马吧！给俺留言’’’’); </Script > "  
Response.WrITe  "非法操作！本站已经给大侠您做了如下记录↓ <br > "  
Response.WrITe  "操作ＩＰ： "&Request.ServerVariables( "REMOTE_ADDR ")& " <br > "  
Response.WrITe  "操作时间： "&Now& " <br > "  
Response.WrITe  "操作页面： "&Request.ServerVariables( "URL ")& " <br > "  
Response.WrITe  "提交方式：ＧＥＴ <br > "  
Response.WrITe  "提交参数： "&Fy_Get& " <br > "  
Response.WrITe  "提交数据： "&Request.QueryString(Fy_Get)  
Response.End  
End  If  
Next  
Next  
End  If  

% >

过滤网址的非法字符串
试试这两种方法:
第一种：
squery=lcase(Request.ServerVariables("QUERY_STRING"))
sURL=lcase(Request.ServerVariables("HTTP_HOST"))

SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"

SQL_inj = splIT(SQL_Injdata,"|")

For SQL_Data=0 To Ubound(SQL_inj)
if instr(squery&sURL,Sql_Inj(Sql_DATA))>0 Then
Response.WrITe "SQL通用防注入系统"
Response.end
end if
next

第二种：
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|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 "SQL通用防注入系统"
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 "SQL通用防注入系统"
Response.end
end if
next
next
end if

第三种
<%
'--------定义部份------------------
Dim Str_Post,Str_Get,Str_In,Str_Inf,Str_Xh,Str_db,Str_dbstr
'自定义需要过滤的字串,用 "■"分离
Str_In = "'■;■and■exec■insert■select■delete■update■count■*■%■chr■mid■master■truncate■char■declare"
'----------------------------------
%>

<%
Str_Inf = splIT(Str_In,"■")
'--------POST部份------------------
If Request.Form<>"" Then
For Each Str_Post In Request.Form

For Str_Xh=0 To Ubound(Str_Inf)
If Instr(LCase(Request.Form(Str_Post)),Str_Inf(Str_Xh))<>0 Then
'---

[1] [2] 下一页