请问asp+access，同时能支持多到人在线？帮忙！！！

[mdb2002]

请问asp+access，同时能支持多到人在线？如果在线人数达到限制，是否可以自动转道另外一个url，请高手帮忙，如何俘获载线人数超越了极限，然后谈出一个页面，请高手能给一段代码吗？？？？？

[Jaron]

GLOBA.ASA
<SCRIPT Language="VBScript" RunAt="Server">
Sub Application_OnStart()
'==Visual InterDev Generated - startspan==
'-- Project Data Environment
'Set DE = Server.CreateObject("DERuntime.DERuntime")
'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
'==Visual InterDev Generated - endspan==
Application("Counter") = 0
End Sub

Sub Session_OnStart()
Application.Lock
Application("Counter") = Application("Counter") + 1
Application.UnLock
End Sub

Sub Session_OnEnd()
Application.Lock
Application("Counter") = Application("Counter") - 1
Application.UnLock
End Sub
</SCRIPT>

其他程序中用
if CInt(Application("Counter"))>最大限制 then
response.redirect("/url")
end if