如何防范利用刷新来“作弊”的计数器?
<%
If IsEmpty(Session("Connected")) Then
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
End If
Session("Connected") = True
%>
<html>
<body BGCOLOR=WHITE>
<p align="center">山水盈盈之拒绝刷新计数器</p><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
<p align="center">欢迎光临随风起舞,您是第 <%=Application("counter")%> 位来访者!</p>
</body></html>
[1]
时间: 2024-09-29 13:29:06