asp防止网页刷新代码

             减轻服务器负担,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