asp防止网页刷新代码

作者:来源:点击量:Time:2012-03-12
 

Sub PreventRefresh()
    Dim RefreshTime,isRefresh
    RefreshTime = 10   ’防止刷新时间,单位(秒)
    isRefresh = 1    ’是否使用防刷新功能,0=否,1=
    If isRefresh = 1 Then
        If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime > 0 Then
            If DateDiff("s", Session("RefreshTime"), Now()) < RefreshTime Then
                Response.Write "<META http-equiv=Content-Type content=text/html; 
chaRset=gb2312><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 

重庆网站建设http://www.cqghkj.com

相关新闻