global.asa

来自「程序介绍： 1、内嵌式投票系统」· ASA 代码 · 共 18 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("online")=0
Application("maxonline")=0
End sub
Sub Session_OnStart
Session.Timeout=10
Application.Lock
Application("online")=Application("online")+1
If Application("online")>Application("maxonline") Then Application("maxonline")=Application("online")
Application.unlock
End sub
Sub Session_OnEnd
Application.Lock
Application("online")=Application("online")-1
Application.unlock
end sub
</SCRIPT>