<%
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>
<p align="center">歡迎光臨隨風起舞,您是第 <%=Application("counter")%> 位來訪者!</p>
</body></html>
[1]
