你可以在每一个页面的头部做一个判断SESSION与APPLICATION的综合判断 //以下是global.asa,必须放在根目录下面

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart Session.Timeout =15 Application.Lock Application("WhosOn") = 0 Application.UnLock End Sub Sub Session_OnStart Application.Lock Application("WhosOn") = Application("WhosOn") + 1 Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("WhosOn") = Application("WhosOn") - 1 Application.UnLock End Sub </SCRIPT> //通过上面的代码，可以实现统计在线人数 //以下是应用<!-----test.asp-------> <% if application("Whoson")<30 then '比如要限制的人数为30 session("Whoson")="ok" end if if (session("Whoson")<>"ok" and application("Whoson")>30) then response.redirect("sorry.asp") end if ........................................................'这个页面应该加载的代码 %> //以下是应用<!-----sorry.asp-------> <% response.write("访问认输超过限制，请稍后登陆") %>

[此贴子已经被作者于2005-4-20 14:22:24编辑过]