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")%>人