ASP统计当前有多少人在线

 

ASP统计当前有多少人在线

 

<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")+100
Application.Unlock
End sub

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

 

保存命名为 global.asa

 

 

当前在线<%=application("zzzonline")%>人