asp防恶意刷新代码

法一：
<% 
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()
%>

Tags: asp