asp跳转页面代码 asp防止网页刷新代码

asp防止网页刷新代码  

Sub PreventRefresh()      Dim RefreshTime isRefresh      RefreshTime =     ’防止刷新时间 单位（秒）      isRefresh =      ’是否使用防刷新功能 =否 =是      If isRefresh =   Then          If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime >   Then              If DateDiff("s"  Session("RefreshTime")  Now()) < RefreshTime Then                  Response Write "<META  equiv=Content Type content=text/;   chaRset=gb ><meta HTTP EQUIV=REFRESH CONTENT="&RefreshTime&"><br>  本页面起用了防刷新机制 请不要在"&RefreshTime&"秒内连续刷新本页面  <BR>正在打开页面 请稍后……"                  Response End              Else                  Session("RefreshTime") = Now()              End If          Else              Session("RefreshTime") = Now()          End If      End If  End Sub  lishixinzhi/Article/program/net/201311/14201