 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
最近用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秒没有活动的访客,时间可以自己调整。 返回类别: 教程 上一教程: ASP中文本文件与数据库文件的数据交换(FSO) 下一教程: ASP连接执行程序 您可以阅读与"ASP论坛在线人数统计研究"相关的教程: · 用ASP设计网站在线人数统计程序 · 不用GOLOBAL.ASA和SESSION实现在线人数统计 · 一种在线人数统计方式（只用1个APPLICATION） · 如何实现网页在线人数统计 · 网页在线人数统计的做法 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
