global.asa

来自「一个简单的留言板」· ASA 代码 · 共 25 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
	Application("OnlineCount")=0
End sub

Sub Session_OnStart

	Application.Lock 
	Application("OnlineCount")=Application("OnlineCount")+1
	Application.UnLock 
	
End Sub

Sub Session_OnEnd
	Application.Lock 
	Application("OnlineCount")=Application("OnlineCount")-1
	If Application("OnlineCount") < 1 Then Application("OnlineCount")=1 
	Application.UnLock 

End sub

Sub Application_OnEnd

End sub
</SCRIPT>