global.asa

来自「情缘天空美化版 v3.68 强大的公告」· ASA 代码 · 共 21 行

<script language="vbscript" RunAt="server">
Sub Application_OnStart
 Application("Count")=0
End Sub
 
 Sub Session_OnStart
  Application.Lock
 Application("Count")=Application("Count")+1
 Application.UnLock
End Sub

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

Sub Application_OnEnd
 
End Sub
</script>