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

 

<%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 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")%>就可以了。 

赞同