在线人数统计代码

在线人数的代码如下:
<Script LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
End sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session.timeout=5
Application.Lock
application("zzzonline")=application("zzzonline")+1
Application.Unlock
End sub

Sub Session_OnEnd
Application.Lock
Application("zzzonline")=application("zzzonline")-1
Application.Unlock
End sub
</Script>

将上面这段另存为 global.asa 放在你网站根目录下。

调用时： 当前在线<%=application("zzzonline")%>人