在线人数的统计.在线等
prok 2003-11-20 08:13:12 小弟初学asp,请大家多多帮助。多谢大家了
我想做个在线人数的统计,可每开一次ie人数就自己累加1了。我想在session-onend里吧人数减一可总不成功。代码如下:
'CurrentUsers为统计的人数
global.asa
<script Language="VBScript" RunAt="Server">
Sub Application_OnStart()
Application("CurrentUsers") = 0
End Sub
Sub Session_OnStart()
Session("On_line") = False
Session("On_line2") = False
Session.Timeout = 10
Application.Lock
Application("CurrentUsers") = Application("CurrentUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd()
'Application("CurrentUsers")=0
Application.Lock
Application("CurrentUsers") = Application("CurrentUsers") - 1
Application.UnLock
End Sub
Sub Application_OnEnd()
'
End Sub
</script>