推荐订阅源

解决思路：

维护一online表，查看有登陆，就不允许再次登陆，以sessionid作为唯一标识符号，也可以产生一个ＧＵＩＤ发到ＣＯＯＫＩＥ中，以区分不同的ＣＬＩＥＮＴ，再佐以ＪＳ，可以达到更好的效果，比如离开后自动离线

解决代码：

在表里增加一个字段online,字段类型为"是/否"或1,0.

当用户登录时,online设置为在线状态(true),下线时设置为离线状态(false).

建立global.asa在根目录下.利用session_onEnd事件,设置离线状态.

<script language="vbscript" runat="server">
sub Application_OnStart
Application("online") = 0
set Application("cn") = Server.CreateObject("ADODB.Connection")
Application("db") = Server.MapPath("bbs/note/note.mdb")
Application("cn").Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Application("db")
end sub

sub Application_OnEnd
Application("onlinde") = 0
end sub

sub Session_OnStart
end sub

sub Session_OnEnd
if Session("pass") then
Application("online") = Application("online") - 1
Application("cn").execute("update user_info set online = false where UID = "&session("UID"))
end if
end Sub
</script>