global.asa

梦想世界虚拟社区

<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>