如何限制同一用户名同时登陆

这个问题我的办法是，用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线，后者可以登陆 ，如果无后者登陆，但并不是说前者就需要重新登陆了。因为他的session还在的。只能是这个时间设置的越小越精确，也是不能做到绝对的。
代码贴出来给楼主参考下。
function checkonline() dim ip,rsprv,sql,prvdbstate prvdbstate = false if dbstate = false then dbopen() prvdbstate = true end if set rsprv=server.createobject("adodb.recordset") if session("username") = "" then sql="select * from [online] where sessionid='"& session.sessionid &"'" rsprv.open sql,conn,1,3 if rsprv.eof then rsprv.addnew rsprv("sessionid") = session.sessionid rsprv("groupchargelv") = -1 rsprv("lastacttime") = now() rsprv("userip") = getip rsprv("onlinetime") = 0 rsprv("userwhere") = request.servervariables("http_referer") else rsprv("userwhere") = request.servervariables("http_referer") rsprv("onlinetime") = rsprv("onlinetime") + datediff("n",rsprv("lastacttime"),now()) rsprv("lastacttime") = now() end if rsprv.update rsprv.close() 'response.write "notlogin" else 'response.write "logined" sql="select * from [online] where username='"& session("username") &"'" rsprv.open sql,conn,1,3 if rsprv.eof then rsprv.addnew rsprv("sessionid") = session.sessionid rsprv("username") = session("username") rsprv("groupchargelv") = session("groupchargelv") rsprv("lastacttime") = now() rsprv("onlinetime") = 0 rsprv("userip")= getip rsprv("userwhere") = request.servervariables("http_referer") else if rsprv("sessionid") <> session.sessionid and application("loginset")(1) = false then infoto "loginout.asp","该帐户已在其他地方登陆，网站设置1个id只能有1个登陆n你可以稍候尝试登陆。" response.end() end if rsprv("userwhere") = request.servervariables("http_referer") rsprv("onlinetime") = rsprv("onlinetime") + datediff("n",rsprv("lastacttime"),now()) rsprv("lastacttime")=now() end if rsprv.update rsprv.close() end if set rsprv = nothing if datediff("s",application("onlinelastdelete"),now()) > int(application("deleteonlinediff")) then application.lock() application("onlinelastdelete") = now application.unlock() conn.execute("delete from [online] where datediff('s',lastacttime,now())>"& int(application("checkonlinediff") &"")) '删除x秒没有活动的访客 end if if prvdbstate = true then dbclose() end function

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！