蝙蝠岛资源网 Design By www.hbtsch.com
一个统计当前在线用户的解决方案
在做一个在线交流的网站时，有个问题很令我头疼，就是关于实时统计在线用户的问题，客户要求：统计当前在线人数、游客人数、会员人数、在线用户列表，包括游客、会员和管理员（如果是游客，则自动生成游客的ID，如果是会员，则显示会员姓名）。因为它要求有实时性，则首先我将用global.asa解决的想法pass掉。
问题的关键是如何判断用户已经离开，和当用户离开时如何执行一个文件或一个函数。
经过和网上一些朋友的探讨，终于解决了这个问题。
解决的原理为：编写一个通用页面，所谓的通用页面，就是应用里的每个页面都包含这个页面，例如：header.asp，在这个页面里，用XMLHTTP写一段代码，这段代码的作用是每隔10秒或20秒就向服务器发送一个请求，目的是更新当前用户的在线时间并删除在线时间超过一定时间的用户，使数据库中的在线用户记录保持一定的实时性。
主要实现方法为：
新建一数据库，字段名称分别为：id（字符）,name（字符）,user（数字）tt（日期）,admin（权限代码，0-普通用户，1-管理员）
表名：online
header.asp ↓
============================================================
<%
... ...
if session("s_in")<>1 and session("s_name")="" then '如果用户是第一次登陆
rs.open "select * from online",conn,3,3
rs.addnew
rs("id")=session.sessionID
rs("name")="游客" & session.sessionID
rs("user")=0 '0表示用户未登陆，是游客身份
rs("tt")=now
rs.update
rs.close
session("s_in")=1 '设置用户的资料已经存入数据库，表示已经在线
end if
if session("s_name")<>"" then '如果用户已经通过登录框登录
rs.open "select * from online where id='" & session.sessionID & "'",conn,3,3
rs("name")=session("s_name")
rs("admin")=session("s_admin") '将用户的姓名更新为会员名称
rs("user")=1 '表示用户已经登陆，是会员身份
rs("tt")=now '将当前系统时间设置为用户的登陆时间
rs.update
rs.close
end if
... ...
%>
... ...
<head>
... ...
<script language=javascript>
function Test()
{
var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
xmlhttp.open("POST","onceonline.asp",false); // 向onceonline.asp发送更新请求
xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
xmlhttp.send();
}
setInterval("Test();",10); // 10秒钟发送一次更新请求
</script>
... ...
</head>
... ...
==========================================================
onceonline.asp
<%
rs.open "select tt from online where id='" & session.sessionID & "'",conn,3,3
rs("tt")=now() '更新当前在线用户的在线时间
rs.update
rs.close
rs.open "delete from online where datediff('s',tt,now())>60",conn,3,1 '删除超时用户
%>
==============================================================
这样，基本保证了数据库中用户列表的实时性，误差取决于更新时间和删除时间的差值大小和服务器的处理速度，建议不要将删除超时用户的时间间隔取的过于小，那样有可能会导致在线用户0人的失误。
本方案在WIN2000+SQL Server2000上调试通过，由于本方案对系统要求比较大，期待其他朋友拿出更好的方案，一起解决这个问题！
在做一个在线交流的网站时，有个问题很令我头疼，就是关于实时统计在线用户的问题，客户要求：统计当前在线人数、游客人数、会员人数、在线用户列表，包括游客、会员和管理员（如果是游客，则自动生成游客的ID，如果是会员，则显示会员姓名）。因为它要求有实时性，则首先我将用global.asa解决的想法pass掉。
问题的关键是如何判断用户已经离开，和当用户离开时如何执行一个文件或一个函数。
经过和网上一些朋友的探讨，终于解决了这个问题。
解决的原理为：编写一个通用页面，所谓的通用页面，就是应用里的每个页面都包含这个页面，例如：header.asp，在这个页面里，用XMLHTTP写一段代码，这段代码的作用是每隔10秒或20秒就向服务器发送一个请求，目的是更新当前用户的在线时间并删除在线时间超过一定时间的用户，使数据库中的在线用户记录保持一定的实时性。
主要实现方法为：
新建一数据库，字段名称分别为：id（字符）,name（字符）,user（数字）tt（日期）,admin（权限代码，0-普通用户，1-管理员）
表名：online
header.asp ↓
============================================================
<%
... ...
if session("s_in")<>1 and session("s_name")="" then '如果用户是第一次登陆
rs.open "select * from online",conn,3,3
rs.addnew
rs("id")=session.sessionID
rs("name")="游客" & session.sessionID
rs("user")=0 '0表示用户未登陆，是游客身份
rs("tt")=now
rs.update
rs.close
session("s_in")=1 '设置用户的资料已经存入数据库，表示已经在线
end if
if session("s_name")<>"" then '如果用户已经通过登录框登录
rs.open "select * from online where id='" & session.sessionID & "'",conn,3,3
rs("name")=session("s_name")
rs("admin")=session("s_admin") '将用户的姓名更新为会员名称
rs("user")=1 '表示用户已经登陆，是会员身份
rs("tt")=now '将当前系统时间设置为用户的登陆时间
rs.update
rs.close
end if
... ...
%>
... ...
<head>
... ...
<script language=javascript>
function Test()
{
var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
xmlhttp.open("POST","onceonline.asp",false); // 向onceonline.asp发送更新请求
xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
xmlhttp.send();
}
setInterval("Test();",10); // 10秒钟发送一次更新请求
</script>
... ...
</head>
... ...
==========================================================
onceonline.asp
<%
rs.open "select tt from online where id='" & session.sessionID & "'",conn,3,3
rs("tt")=now() '更新当前在线用户的在线时间
rs.update
rs.close
rs.open "delete from online where datediff('s',tt,now())>60",conn,3,1 '删除超时用户
%>
==============================================================
这样，基本保证了数据库中用户列表的实时性，误差取决于更新时间和删除时间的差值大小和服务器的处理速度，建议不要将删除超时用户的时间间隔取的过于小，那样有可能会导致在线用户0人的失误。
本方案在WIN2000+SQL Server2000上调试通过，由于本方案对系统要求比较大，期待其他朋友拿出更好的方案，一起解决这个问题！
标签：
asp,统计,在线用户
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无asp实现一个统计当前在线用户的解决方案的评论...
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/12/24
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！
昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果（九）》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]