简化版 分站 股指 日历 影视
计算器 携程 地图 行情 电脑
加解密 长度 面积 空位 空位
首页 软件 编程 笑话 知识 公告 注册 登录 用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 点击:2166 
  • 上一篇:ASP得到文件的大小类型最后修改时间
  • 下一篇:此文件最后被修改的时间是
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2019

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