本文介绍了一种使用Session对象防止用户通过刷新页面来重复计数的方法。具体实现为首次访问时锁定并更新Application变量中的计数器，之后设置Session标记避免重复计算。
利用Session对像制作防止利用“刷新”来累加的访问者计数器
<%
If IsEmpty(Session("Connected")) Then
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
End If
Session("Connected") = True
%>
<HTML>
<BODY BGCOLOR=WHITE>
<CENTER><H2>用Session防刷新访客计数器范例<HR></H2>
您是本站第 <%=Application("counter")%> 位贵宾！
</BODY>
</HTML>
<%
If IsEmpty(Session("Connected")) Then
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
End If
Session("Connected") = True
%>
<HTML>
<BODY BGCOLOR=WHITE>
<CENTER><H2>用Session防刷新访客计数器范例<HR></H2>
您是本站第 <%=Application("counter")%> 位贵宾！
</BODY>
</HTML>
扫一扫
4009
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
