i.asp

找北文章系统

<%
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
Fy_In = "防and防exec防insert防select防delete防update防count防chr防mid防master防truncate防char防declare防or防'"
Fy_Inf = split(Fy_In,"防")
If Request.Form<>"" Then
For Each Fy_Post In Request.Form
For Fy_Xh=1 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
%>
站长友情提示黑客大侠请不要在参数中包含非法字符尝试注入攻击本站,本站做起来很不容易的.俺是菜鸟,好怕怕,放俺一马吧！有事可给俺留言<br/>
非法操作！本站已经给大侠您做了如下记录↓<br/>
操作ＩＰ：<%=Request.ServerVariables("REMOTE_ADDR")%><br/>
操作时间：<%=Now%><br/>
操作页面：<%=Request.ServerVariables("URL")%><br/>
提交方式：ＰＯＳＴ<br/>
提交参数：<%=Fy_Post%><br/>
提交数据：<%=Request.QueryString(Fy_Post)%>
<%
response.end
End If
Next
Next
End If
If Request.QueryString<>"" Then
For Each Fy_Get In Request.QueryString
For Fy_Xh=1 To Ubound(Fy_Inf)
If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
%>
站长友情提示黑客大侠请不要在参数中包含非法字符尝试注入攻击本站,本站做起来很不容易的.俺是菜鸟,好怕怕,放俺一马吧！有事可给俺留言<br/>
非法操作！本站已经给大侠您做了如下记录↓<br/>
操作ＩＰ：<%=Request.ServerVariables("REMOTE_ADDR")%><br/>
操作时间：<%=Now%><br/>
操作页面：<%=Request.ServerVariables("URL")%><br/>
提交方式：ＧＥＴ<br/>
提交参数：<%=Fy_Get%><br/>
提交数据：<%=Request.QueryString(Fy_Get)%>
<%
response.end
End If
Next
Next
End If
%>