global.asa

在线考试系统的设计与实现

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