global.asa

来自「本代码是一个个人主页」· ASA 代码 · 共 24 行

<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
  application("online")=0
End Sub

sub Application_OnEnd 
  application("online")=0
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
</script>