asp防恶意刷新代码
作者:admin 日期:2007-09-22
法一:
<%
Dim URL
If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">")
Response.Write("防刷新,两秒后自动跳转...")
Response.End
End IF
Response.Cookies("oesun")("vitistime")=Now()
%>
法二:
<%
If Request.Cookies("terry.jsjt")("norefresh")<>"" Then
If DateDiff("s",Request.Cookies("terry.jsjt")("norefresh"),Now())<5 Then
If Request.ServerVariables("QUERY_STRING")="" Then
Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&""">")
Else
Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&""">")
End If
Response.Write("防刷新,三秒后自动跳转...")
Response.End
End IF
End if
Response.Cookies("terry.jsjt")("norefresh")=Now()
%>
<%
Dim URL
If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">")
Response.Write("防刷新,两秒后自动跳转...")
Response.End
End IF
Response.Cookies("oesun")("vitistime")=Now()
%>
法二:
<%
If Request.Cookies("terry.jsjt")("norefresh")<>"" Then
If DateDiff("s",Request.Cookies("terry.jsjt")("norefresh"),Now())<5 Then
If Request.ServerVariables("QUERY_STRING")="" Then
Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&""">")
Else
Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&""">")
End If
Response.Write("防刷新,三秒后自动跳转...")
Response.End
End IF
End if
Response.Cookies("terry.jsjt")("norefresh")=Now()
%>
评论: 0 | 引用: 0 | 查看次数: 3548
发表评论
广告位