当前位置:编程学习 > asp >>

asp防刷新程序

asp防刷新程序

Public Sub PreventRefresh()
  Dim RefreshTime
  RefreshTime = 20
  If DateDiff("s", Session("UserRefreshTime"), Now()) < RefreshTime Then
   FoundErr = True
   Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=" & RefreshTime & "><br>本页面起用了防刷新机制,请不要在" & RefreshTime & "秒内连续刷新本页面<BR>正在打开页面,请稍后……"
   Response.end
  End If
 End Sub

补充:asp教程,ASP入门
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,