asp防止网页刷新代码

减轻服务器负担asp防止网页刷新代码

SubPreventRefresh()
DimRefreshTimeisRefresh
RefreshTime=’防止刷新时间单位（秒）
isRefresh=’是否使用防刷新功能=否=是
IfisRefresh=Then
If(NotIsEmpty(Session("RefreshTime")))AndRefreshTime>Then
IfDateDiff("s"Session("RefreshTime")Now())<RefreshTimeThen
ResponseWrite"<METAhttpequiv=ContentTypecontent=text/html;
chaRset=gb><metaHTTPEQUIV=REFRESHCONTENT="&RefreshTime&"><br>
本页面起用了防刷新机制请不要在"&RefreshTime&"秒内连续刷新本页面
<BR>正在打开页面请稍后……"
ResponseEnd
Else
Session("RefreshTime")=Now()
EndIf
Else
Session("RefreshTime")=Now()
EndIf
EndIf
EndSub