asp怎样显示当前页的在线人数

在asp中，用户进入访问页面的时候，会触发一个事情，事件名称是session_onstart，在离开的时候（准确地说，是在一定的时间内没有访问页面数据，缺省的时间是20分钟），也会触发一个事件，事件的名称是session_onend。我们可以在global.asa文件中定义这两个事件所执行的操作。global.asa中的相关代码如下：
sub session_onstart
application.lock
if isempty(application("onlineusers")) then
application("onlineusers")=1
else
application("onlineusers")=application("onlineusers")+1
end if
application.unlock
end sub

sub session_onend
application.lock
application("onlineusers")=application("onlineusers")-1
application.unlock
end sub
把上面的代码保存为global.asa，保存在web应用程序根目录下（必须在根目录下），然后在页面的合适位置中使用<%=application("onlineusers")%>就可以了。

<%sub session_onstart
application.lock
if isempty(application("onlineusers")) then
application("onlineusers")=1
else
application("onlineusers")=application("onlineusers")+1