用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > Asp編程 > Asp 技巧

ASP 防止重復刷新方法

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-08-04 21:52:11

方法1:

ASP code復制代碼
<%
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:

ASP code復制代碼
<%
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()
%>

Tags:ASP 重復刷新

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      0%(0)
  • 差的評價 如果您覺得此文章差,就請您
      0%(0)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
175哪个门派赚钱快 大乐透复式中奖投注图 浙江20选5开奖结果走势图查询今天 六友论坛app 极速赛车计划app推荐 体彩陕西11选5 广东快乐十分人工全天计划 合法彩票app有哪些 幸运赛车计划软件下载 重庆百变王牌同步 股票推荐买入软件