asp防页面刷新的方法

最新推荐文章于 2025-09-12 12:14:47 发布

原创最新推荐文章于 2025-09-12 12:14:47 发布 · 826 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

asp

当前文章被收录于：

asp

0 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一种在ASP中实现的防止用户频繁刷新页面的方法。通过设置会话变量记录上次刷新的时间，如果用户在指定时间内再次刷新页面，则显示提示信息并阻止刷新行为。

asp防页面刷新的方法!2006-10-02 10:00'================================================
'过程名：PreventRefresh
'作用：防止刷新页面
'================================================
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&"> 本页面起用了防刷新机制，请不要在"&RefreshTime&"秒内连续刷新本页面 正在打开页面，请稍后……"
 Response.End
 Else
 Session("RefreshTime") = Now()
 End If
 Else
 Session("RefreshTime") = Now()
 End If
 End If
End Sub

标签

#asp #session