usernames=split(application("users"),",")
for i=1 to ubound(usernames)
if usernames(i)=session("user") then
response.write("该用户已经登陆")
response.redirect("login.asx")
response.end
end if
next
application("users")=application("users")&","&session("user")
.......................................