• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营

    • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    显示在线人数
    %
    NowUrl=request.servervariables("HTTP_REFERER")
    UserName = session("Wenday_sys_User")
    if UserName="" then
       UserName="客人"
    end if
    call sqlonline()
    Response.Write "document.write(" chr(34) "nbsp;nbsp;font color=#000000>当前在线 " online() "人/font>" chr(34) ")"
    'Response.Write "document.write(" chr(34) "nbsp;nbsp;a href=count/ShowOnline.asp title=查看在线列表>font color=#000000>当前在线" online() "人/font>/a>" chr(34) ")"
    sub sqlonline()
    dim statuserid
         statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","") 
      Response.Cookies("Wenday_Sys")("onlineid")=statuserid
     sql="select id from "CategoryName"_online where id="cstr(request.cookies("Wenday_Sys")("onlineid"))
     set rs=conn.execute(sql)
     if rs.eof and rs.bof then
      sql="insert into "CategoryName"_online(id,UserName,ip,startime,lastimebk,browser,actforip,Now_Url) values ("statuserid",'"UserName"','"Request.ServerVariables("REMOTE_HOST")"',now(),now(),'"Request.ServerVariables("HTTP_USER_AGENT")"','"Request.ServerVariables("HTTP_X_FORWARDED_FOR")"','"request.servervariables("HTTP_REFERER")"')"
     else
      sql="update "CategoryName"_online set lastimebk=now(),UserName='"UserName"' where id="cstr(request.cookies("Wenday_Sys")("onlineid"))
     end if
     conn.execute(sql)
    set rs=nothing
    Rem 删除超时用户
    sql="Delete FROM "CategoryName"_online WHERE DATEDIFF('s', lastimebk, now()) > "kicktime"*60"
    Conn.Execute sql
    end sub
    function online()
    dim tmprs
     sql="Select count(id) from "CategoryName"_online"
    set tmprs=conn.execute(sql)
    online=tmprs(0)
    set tmprs=nothing
    if isnull(online) then online=0
    end function
    CloseDatabase
    %>
    上一篇：asp打包类
    下一篇：ASP 类 Class入门
  • 相关文章
    • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    显示在线人数 显示,在线,人数,显示,在线,