global.asa

用asp实现的通用网站管理系统。

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