global.asa

来自「梦想世界虚拟社区」· ASA 代码 · 共 25 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
  Application.Lock
  
  Application.UnLock
End Sub

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

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

Sub Application_OnEnd
  Application.Lock
  Application.UnLock
End Sub
</SCRIPT>