当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何限制同一用户名同时登陆

ASP
从文本文件中读取信息并存储入数据库
文本搜索
FileSystemObject处理文件
设计 FileSystemObject
处理驱动器和文件夹
用ASP做一个TOP COOL的站内搜索
怎样读取一个文本文件的内容?
在线用表单建立文件夹
filesystemobject组件的用法示例
ASP中文本文件与数据库文件的数据交换(FSO)
读取目录下的所有文件(包括子目录下的所有文件)
ASP中FSO的神奇功能 - FSO不能做到的
ASP中FSO的神奇功能 - 用FSO进行内容管理
ASP中FSO的神奇功能 - 使用FSO进行搜索
ASP中FSO的神奇功能 - 权限许可
ASP中FSO的神奇功能 - 文件读取
ASP中FSO的神奇功能 - 写文件
ASP中FSO的神奇功能 - 简介
读取目录下的文件得到一个数组
奇妙的文件系统对象组件

No. « 42 43 44 45 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 72 ::
收藏到网摘: 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