当前位置：网站首页 > 资源显示

推荐aspASP统计在线会员的思路

发布时间：2017/5/3 17:36:46 / 最后修改：2017-5-3 17:38:25 / 浏览：761

用户表加一个字段：onlinetime

30秒刷新一次（但是实际测试中：如果是每个页面都这样刷新，体验不好，可以在公用文件里加一个无边框的框架，然后执行程序放到框架文件里面）

刷新的过程，如果登陆中，就刷新该用户的时间字段 onlinetime

最后显示在线用户，就用：时间差计算，刷新时间和当前之间比较 30 秒内的就是在线的

where datediff('s',onlinetime,now())<30

完整代码（代码框可以往下拉高显示）：

公用部分用框架（用户登录后启用比较好）
<iframe src="shuaxin.asp" height="0" width="0" scrolling="no" marginheight="0" frameborder="0" name="main" id="bbsre"></iframe>
shuaxin.asp 文件头加 <meta http-equiv="refresh" content="30">

本页面执行函数：
'-------------
function SetOnlineTime(unum) '更新在线时间,用户登录后每隔30秒刷新一次这个函数
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select id,unum,onlinetime from userinfo where unum='"&unum&"'"
rs.open sql,conn,3,2
if rs.eof and rs.bof then '
'空
else
rs("onlinetime")=now()
rs.update
end if
rs.close
set rs=nothing
end function
'---------------
function OnlineUser() '更新在线时间，30秒的检测周期(这个自己定，几十秒都可以) 表示30秒内在线的用户
dim rs,sql,str
set rs=server.CreateObject("adodb.recordset")
sql="select id,unum,uname,onlinetime from userinfo where onlinetime is not null and datediff('s',onlinetime,now())<30 order by onlinetime desc"
'response.Write(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then '
str="暂无在线用户"
else
do while not rs.eof
str=str&rs("uname")&"  "
rs.movenext
loop
end if
rs.close
set rs=nothing
OnlineUser=str
end function

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区