最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp防刷新程序
时间:2022-07-02 22:42:21 编辑:袖梨 来源:一聚教程网
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