global.asa

来自「971音乐站全站程序」· ASA 代码 · 共 23 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_OnStart 
   Session.Timeout = 20 
   Application.Lock
   Application("OnLineUsers") = 0 
   Application.Unlock
End Sub 

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

Sub Session_OnEnd 
   Application.Lock 
   Application("OnLineUsers") = Application("OnLineUsers") - 1 
   Application.UnLock 
End Sub 

Sub Application_OnEnd
End Sub
</SCRIPT>