28,409
社区成员




<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("onlinePeople") = 0
Application("totalVisited") = 0
End Sub
Sub Session_OnStart
Application.Lock()
Application("onlinePeople") = Application("onlinePeople") + 1
Application("totalVisited") = Application("totalVisited") + 1
Application.UnLock()
End Sub
Sub Session_OnEnd
if Application("onlinePeople") >= 1 then
Application.Lock()
Application("onlinePeople") = Application("onlinepeople") - 1
Application.Unlock()
end if
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>
<%
response.Write("当前在线的人数为:")
response.Write(Application("onlinePeople")&"<br>")
response.Write("你是本站的第"&Application.Contents("totalVisited")&"访客")
%>