global.asa

来自「在线考试系统的设计与实现」· ASA 代码 · 共 23 行

<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

Sub Application_onend
Application("online")=0
End sub
</script>