繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何限制同一用户名同时登陆
- ASP
- 飞云写的防CC攻击的ASP程序插件 打包下载
- 随机调用n条数据的方法分析
- 一个强健 实用的asp+ajax二级联动菜单(有演示和附源程序打包下载)
- asp 读取 utf-8格式文档并生成utf-8格式文档的乱码问题
- 实现纯真IP txt转mdb数据库的方法
- 用实现ASP批量删除目录及文件的代码
- [ASP]RegExp对象提供简单的正则表达式支持功能使用说明
- 用ASP生成UTF-8网页文件的两种方法
- asp利用fso给文件夹和文件改名的代码
- asp 采集实战代码
- 解决采集时出现msxml3.dll 错误的方法
- asp实现二进制字符串转换为Unicode字符串
- asp 用InStr查找特定字符串的代码
- [推荐]ASP编程通用函数收藏大全
- 去除HTML代码中所有标签的两种方法
- asp Chr 函数 数字转字母的方法
- asp快速开发方法之数据操作实例代码
- asp去除所有的超级链接的两种方法 替换与正则
- asp下实现截取字符串特定部分内容函数
- asp下取得客户端IP地址函数 转换IP地址函数
ASP 中的 如何限制同一用户名同时登陆
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 139 ::
收藏到网摘: 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
