global.asa

来自「中国库存信息网 完整版 [已通过安全检测]Symantec AntiVirus」· ASA 代码 · 共 18 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("online")=0

End sub
Sub Session_OnStart
Session.Timeout=10
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>