服务器之家

服务器之家 > 正文

asp论坛在线人数统计研究

时间:2019-10-18 11:18     来源/作者:asp技术网

1。建立数据库表 
  表名为online  
  设如下字段 
  id '用来记录每一个访问都的session.sessionid 
  name '如果是访客,则记录为访客。 
  online  '如果是访各为0 如果是会员1  
  datetime '最近活动时间 
  username '会员的登录用户名,访客为空。 
  ip '记录访问都的登录IP 

  head.asp '向数据库表写入在线人数,该页面必须搜入到每一个用于浏览ASP页面中。 


 <% 
set rs=Server.CreateObject("ADODB.Recordset") 
if session("username")="" then 判断用户未登录 
sql="select * from online where id='"&session.sessionid&"' "  '判断这个sessionid是否存在于数据库表中. 
rs.Open sql,Conn,1,3 
if rs.eof then  '访客第一次浏览 
rs.addnew 
rs("id")=session.sessionID 
rs("name")="游客" 
rs("online")=0      '0表示用户未登陆,是游客身份 
rs("datetime")=now() 
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
        If userip = "" Then  
        userip= Request.ServerVariables("REMOTE_ADDR") 
        end if 
  rs("ip")=userip 
else      '访客非第一次浏览 


 rs("datetime")=now()  '更新活动时间 
rs.update 
rs.close 
end if 
else 
sql="select * from online where id='" & session.sessionID & "' or admin='"&session("username")&"'"  '判断sessionid 或者 用户名记录已存在数据表中。 
rs.Open sql,Conn,1,3 
if rs.eof then 
rs.addnew   '会员第一次进入网站(可能从网站首页直接登录进入论坛)。 
rs("id")=session.sessionID 
rs("name")=session("show") '写入用户昵称 
rs("username")=session("username")    '写入登录用户名 
rs("online")=1         '表示用户已经登陆,是会员身份 
rs("datetime")=now()        '将当前系统时间设置为用户的登陆时间 
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
        If userip = "" Then  
        userip= Request.ServerVariables("REMOTE_ADDR") 
        end if 
  rs("ip")=userip 
else  //会员非第一次浏览网站,访客登录网站。 
rs("name")=session("show") 更新用户昵称 
rs("username")=session("username")  
rs("online")=1         '表示用户已经登陆,是会员身份 
rs("datetime")=now()  
end if  
rs.update 
rs.close 
end if 
set rs=nothing 
%> 
conn.execute("delete from online where datediff('s',datetime,now())>60")  '删除60秒没有活动的访客,时间可以自己调整。 

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部

363
Weibo Article 1 Weibo Article 2 Weibo Article 3 Weibo Article 4 Weibo Article 5 Weibo Article 6 Weibo Article 7 Weibo Article 8 Weibo Article 9 Weibo Article 10 Weibo Article 11 Weibo Article 12 Weibo Article 13 Weibo Article 14 Weibo Article 15 Weibo Article 16 Weibo Article 17 Weibo Article 18 Weibo Article 19 Weibo Article 20 Weibo Article 21 Weibo Article 22 Weibo Article 23 Weibo Article 24 Weibo Article 25 Weibo Article 26 Weibo Article 27 Weibo Article 28 Weibo Article 29 Weibo Article 30 Weibo Article 31 Weibo Article 32 Weibo Article 33 Weibo Article 34 Weibo Article 35 Weibo Article 36 Weibo Article 37 Weibo Article 38 Weibo Article 39 Weibo Article 40