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
时间: 2024-09-20 08:58:16