简化版 分站 股指 日历 影视
计算器 携程 地图 行情 电脑
加解密 长度 面积 空位 空位
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
 
您现在的位置:首页 >> ASP >> 内容

限制同一用户名同时登陆

内容摘要: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 ......

  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

  版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2019/3/7 发布时间:15:15:30 点击:1474 
  • 上一篇:ASP得到文件的大小类型最后修改时间
  • 下一篇:此文件最后被修改的时间是
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2019

    本空间由景安网络提供,360网站卫士提供加速防护
    YiJiaCMS V3.12 Build 19.7.12(MSSQL) 闽ICP备05000814号-1