<%
Fy_Inf = split(Fy_In,"|")
'--------POST部份------------------
If Request.Form<>"" Then
For Each Fy_Post In Request.Form
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
'--------写入数据库----------头-----
'--------写入数据库----------尾-----
Response.Write "<Script Language=JavaScript>alert('请不要在参数中包含非法字符尝试注入!');location.href='../index.asp';</Script>"
'Response.Write "非法操作!系统做了如下记录<br>"
'Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
'Response.Write "操作时间:"&Now&"<br>"
'Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
'Response.Write "提交方式:POST<br>"
'Response.Write "提交参数:"&Fy_Post&"<br>"
'Response.Write "提交数据:"&Request.Form(Fy_Post)
Response.End
End If
Next
Next
End If
'----------------------------------
'--------GET部份-------------------
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('请不要在参数中包含非法字符尝试注入!');location.href='../index.asp';</Script>"
'Response.Write "非法操作!系统做了如下记录<br>"
'Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
'Response.Write "操作时间:"&Now&"<br>"
'Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
'Response.Write "提交方式:GET<br>"
'Response.Write "提交参数:"&Fy_Get&"<br>"
'Response.Write "提交数据:"&Request.QueryString(Fy_Get)
Response.End
End If
Next
Next
End If
%>
把以上代码保存成一个ASP文件,然后调用数据库的页面里,都包含他!
还有上传组件,在网上找一个防注入的上传组件!!