Question

application 如何与session配合统计在线用户信息?

<%dim users,totalusers,user
users=session("username")
if application("users")="" Then
totalusers=users
else
totalusers=application("users")
end if
　　 if instr(totalusers,users)=0 then
　　 application.lock
　　 application("users")=totalusers&";"&users
　　 application.unlock
　　 end if
user=split(application("users"),";")
response.write user%>

Answer 1

这样应该就可以实现，没测试，你自己测试看看：
<%
dim users,totalusers,user
users=session("username")
if application("users")="" Then
totalusers=";"&users&";"
else
totalusers=application("users")
if instr(totalusers,";"&users&";")=0 then
application.lock
application("users")=totalusers&users&";"
application.unlock
end if
end if
response.write application("users") '输出所有用户的列表
%>