ASP防止刷新代码

来源：石家庄网站建设  发表时间： 2010年09月17日    作者：石家庄轻程网络  浏览次数： 次

对于那种用机器发布信息的情况来说，还是可以用的上的，但这用的是SESSION，不知道对性能有没有速度
<%
'防止刷新代码开始
dim RefreshIntervalTime
RefreshIntervalTime = 10 '防止刷新的时间秒数，0表示不防止
If Not IsEmpty(Session("QYCvisit")) and isnumeric(Session("QYCvisit")) and int(RefreshIntervalTime) > 0 Then
if (timer()-int(Session("QYCvisit")))*1000 < RefreshIntervalTime * 1000 then
Response.write ("<meta http-equiv=""refresh"" content="""& RefreshIntervalTime &""" />")
Response.write ("<b>刷新时间间隔为"& RefreshIntervalTime &"秒，请稍候重试！</b>")
Session("QYCvisit") = timer()
Response.end
end if
End If
Session("QYCvisit") = timer()

'防止刷新代码结束
%>