asp防刷新程序

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