zoukankan      html  css  js  c++  java
  • ASP禁止刷新当前页

    方法1:
    <%  
    Dim SplitReflashPage  
    Dim DoReflashPage  
    dim shuaxin_time  
    DoReflashPage
    =true  
    shuaxin_time
    =10  
    ReflashTime
    =Now()  
    if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then  
    if DateDiff("s",session("ReflashTime"),Now())<cint(shuaxin_time) then  
    response.write 
    "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制,请不要在<b><font color=ff0000>"&shuaxin_time&"</font></b>秒内连续刷新本页面<BR>正在打开页面,请稍候……"  
    response.
    end  
    else  
    session(
    "ReflashTime")=Now()  
    end if  
    elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then  
    Session(
    "ReflashTime")=Now()  
    end if  
    randomize timer  
    regjm
    =int(rnd*8998)+1000  
    %
    >

    方法2:
    <%  
    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()  
    %
    >
  • 相关阅读:
    时间加减天数
    时间加减秒数
    什么BOM?
    js 事件基础
    js 九九乘法
    CSS3 动画基础单词语法
    css3 3D转换 基础语法
    css3 2D 转换 基础语法
    js onchange案例
    js之冒泡排序
  • 原文地址:https://www.cnblogs.com/Dicky/p/131082.html
Copyright © 2011-2022 走看看