调用:exit.asp
在Application中记录用户列表
UserName=session("UserName")
for i=0 to totaluser
if Application("User")(i).name=UserName
Application("User")(i).online=false
end if
next i