asp防止网页刷-新代码

2019-11-02 14:57:41

字体：大中小

来源：转载

供稿：网友

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

Sub PreventRefresh()
    Dim RefreshTime,isRefresh
    RefreshTime = 10   ’防止刷新时间,单位（秒）
    isRefresh = 1    ’是否使用防刷新功能，0=否，1=是
    If isRefresh = 1 Then
        If&nb

天天美剧[www.aikan.tv/special/tiantianmeiju/]

sp;(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

上一篇：iOS开发!：Unity3D 使用C＃语言建立本地数据库

下一篇：上传图片后使用数据库保存图片的示-例分享