asp防止网页刷新代码

2015-08-12 16:02:09来源:作者:人点击

             减轻服务器负担,asp防止网页刷新代码


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 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台