global.asa

来自「asp+access的学生管理系统」· ASA 代码 · 共 15 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_onStart 
Application("num") = 0 
End Sub 
Sub Session_onStart 
Application.Lock 
Application("num") = Application("num") + 1 
Application.Unlock 
End Sub 
Sub session_onEnd
Application.Lock
Application("num") =Application("num") -1
Application.Unlock
End Sub
</script>