asp防止網頁刷新代碼

　　減輕服務器負擔asp防止網頁刷新代碼

Sub PreventRefresh() 
    Dim RefreshTimeisRefresh 
    RefreshTime =    ’防止刷新時間單位（秒） 
    isRefresh =     ’是否使用防刷新功能=否=是 
    If isRefresh =  Then 
        If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime >  Then 
            If DateDiff("s" Session("RefreshTime") Now()) < RefreshTime Then 
                ResponseWrite "<META httpequiv=ContentType content=text/html;  
chaRset=gb><meta HTTPEQUIV=REFRESH CONTENT="&RefreshTime&"><br> 
本頁面起用了防刷新機制請不要在"&RefreshTime&"秒內連續刷新本頁面 
<BR>正在打開頁面請稍後……" 
                ResponseEnd 
            Else 
                Session("RefreshTime") = Now() 
            End If 
        Else 
            Session("RefreshTime") = Now() 
        End If 
    End If 
End Sub 

From:http://tw.wingwit.com/Article/program/net/201311/14201.html