怎么限制同一用户名同时登陆的方法介绍

2018-09-10 01:13:53来源:爱站网 阅读 ()

新老客户大回馈,云服务器低至5折

今天小编跟大家分享一下怎么限制同一用户名同时登陆的方法介绍,感兴趣的朋友跟小编一起来了解一下吧!

这个问题我的办法是,用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线,后者可以登陆 ,如果无后者登陆,但并不是说前者就需要重新登陆了。因为他的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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:分享一个简单的过滤广告代码

下一篇:ASP语法的注释