使用 asp 来阻止页面刷新的编码

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

Sub PreventRefresh() 

Dim RefreshTime,isRefresh 

RefreshTime = 10   ’防止刷新时间,单位（秒） 

isRefresh = 1    ’是否使用防刷新功能，0=否，1=是 

If isRefresh = 1 Then 

If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime > 0 Then 

If DateDiff("s", Session("RefreshTime"), Now()) < RefreshTime Then 

Response.Write "<META http-equiv=Content-Type content=text/html;  

chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&RefreshTime&"><br> 

本页面起用了防刷新机制，请不要在"&RefreshTime&"秒内连续刷新本页面 

<BR>正在打开页面，请稍后……" 

Response.End 

Else 

Session("RefreshTime") = Now() 

End If 

Else 

Session("RefreshTime") = Now() 

End If 

End If 

End Sub 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!