\’ 设置好global.asa 文件,如下:<script LANGUAGE=\”VBScript\” RUNAT=\”Server\”>Sub Application_OnStart Application(\”ActiveUsers\”) = 0 \’ 设置计数初始值,可以根据自己的需要哦.End SubSub Session_OnStart Session.Timeout = 20
\’ 根据需要,设置超时时间. Session(\”Start\”) = Now
\’ 设置一个Session开始时间. Application.Lock Application(\”ActiveUsers\”) = Application(\”ActiveUsers\”) + 1
\’ session开始后增加来访者计数. Application.UnLockEnd SubSub Session_OnEnd Application.Lock Application(\”ActiveUsers\”) = Application(\”ActiveUsers\”) – 1
\’ session关闭时减少来访者计数. Application.UnLockEnd Sub</script>count.asp
\’ 其它显示在线用户数量的页面.<%@ Language=VBScript %> <html><head><title>山水盈盈之在线用户统计</title></head><body><B><FONT COLOR=\”#CC0000\”>现有<%= Application(\”ActiveUsers\”) %></FONT> 位用户在线与您共舞!</B></body></html>
[1]