繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何限制同一用户名同时登陆
- ASP
- isNull(str), isEmpty(str)和 str = 的区别
- 使用ADO批量更新记录（源代码）
- 自己动手，结合javascript和dhtml做一个ubb编辑器
- 检查Email地址的比较完善的正则表达式函数
- 从Access数据库恢复BMP图像并显示在WEB页面(microsoft)
- ASP环境下邮件列表功能的实现 （四）（推荐）
- 在ASP应用中如何限制同一表单被多次提交！！！！好东西
- 了解MSMQ，控制ASP进程 （一）
- 了解MSMQ，控制ASP进程 （二）
- ASP技术在论坛中的运用(一)（吐血推荐！！！！）
- ASP技术在论坛中的运用(二)（吐血推荐！！！！）
- ASP技术在论坛中的运用(三)（吐血推荐！！！！）
- ASP技术在论坛中的运用(四)（吐血推荐！！！！）
- ASP技术在论坛中的运用(五)（吐血推荐！！！！）
- ASP技术在论坛中的运用(六)（吐血推荐！！！！）
- ASP技术在论坛中的运用(七)（吐血推荐！！！！）
- ASP技术在论坛中的运用(八)（吐血推荐！！！！）
- 不用数据源打开数据库（DSNless connection)
- 大部分的ADO的错误码对应的含义
- 好东西，翻页程序，大家可以参考
ASP 中的 如何限制同一用户名同时登陆
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 103 ::
收藏到网摘: n/a
这个问题我的办法是，用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线，后者可以登陆 ，如果无后者登陆，但并不是说前者就需要重新登陆了。因为他的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 
评论 (0) All
