一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp防刷新程序

时间:2008-09-01 编辑:简简单单 来源:一聚教程网


Public Sub PreventRefresh()
  Dim RefreshTime
  RefreshTime = 20
  If DateDiff("s", Session("UserRefreshTime"), Now()) < RefreshTime Then
   FoundErr = True
   Response.Write "
本页面起用了防刷新机制,请不要在" & RefreshTime & "秒内连续刷新本页面
正在打开页面,请稍后……"
   Response.end
  End If
 End Sub

热门栏目