熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp防止網頁刷新代碼

2013-11-13 10:38:40  來源: .NET編程 

  減輕服務器負擔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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.