到这里，我们需要解决的问题都已经解决了，下面来看看代码： sub session_onstart application.lock application("onlineusers")=application("onlineusers")+1 application.unlock end sub
sub session_onend application.lock application("onlineusers")=application("onlineusers")-1 application.unlock end sub 在这里有一个小小的问题，那就是，如果用户是第一个访问者，由于在线人数变量没有初始化，所以会出现错误的提示。要想解决这个问题，我们需要加上初始化该变量的代码： if isempty(application("onlineusers")) then application("onlineusers")=1 end if 修改后的代码如下： 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")%>就可以了。