asp实现在线人数统计代码
来源:asp之家 时间:2008-08-10 18:35:00
本来在网上有不少关于这方面的文章,可是我找了好久也没看到把(可能我的搜索水平有线把)不过倒是聊天室的很多。
如何统计会员再线状态,希望对刚开始接触asp的人有所帮助。
基本思路:
用户第一次登陆网站的时候查看有没有人在线,如果有但是他最后一次修改time字段的时间和当前时间比较大于10分钟那么删除纪录,同时在onlie表中插入数据,插入数据包括,他的name,ip,和他的所在页面,和纪录生成时间。
然后在他每次访问页面的时候都更新time时间,这样可以判断你的动作(是否在线),这样不同的循环执行删除、插入、修改,就可以统计再线人数了。
不知道大家可否明白(本人语言能力表达不好)。
1---〉我们最开始的时候在数据库中建一个onlie表格一个
包括字段如下 id,name,time,ip
2---->程序部分
<%
dim duration,rsd,sql
duration=600
sql="select time from online"
set rs1=conn.execute(sql)
while not rs1.eof
if datediff("s",rs1("time"),now())>=duration then
sql="delete * from online where time=#"&rs1("time")&"#"
'response.Write(sql)
conn.execute(sql)
end if
rs1.movenext
wend
以上部分是对online中有的人作比较,如果10分钟没有动静,将删除表中的用户。
sql="select username from online WHERE username='"&session("name")&"'"
set rs2=conn.execute(sql)
if not rs2.eof then
sql="update online set [time]=#"&now()&"#,url='"&request.ServerVariables("URL")&"' where username='"&session("name")&"'"
else
sql="insert into online(username,ip,url,class,zuanye) values('"&session("name")&"','"&request.ServerVariables("REMOTE_ADDR")&"','"&request.ServerVariables("URL")&"','"&session("class")&"','"&session("zuanye")&"')"
end if
'response.Write(sql)
conn.execute(sql)
这里判断用户是否为第一次登陆本网站,如果是那么在online中生成再线纪录,如果不是,那么直接修改时间。
dim sql_online,rs_online
set rs_online=server.CreateObject("adodb.recordset")
sql_online="select * from online"
'response.Write(sql_online)
rs_online.open sql_online,conn,1,1
%>
再每页调用就行了。
标签:在线,人数,统计,asp
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
不唐突的JavaScript的七条准则[翻译]
2008-12-09 13:33:00
数据库中聚簇索引与非聚簇索引的区别[图文]
2012-02-25 19:38:23
![](https://img.aspxhome.com/file/UploadPic/20122/25/2012225201823936s.jpg)
利用色轮选择颜色搭配[译]
2009-10-31 18:24:00
![](https://img.aspxhome.com/file/UploadPic/200910/31/01-56s.jpg)
巧用CSS滤镜做图案文字
2011-04-29 14:06:00
![](https://img.aspxhome.com/file/UploadPic/20072/2007231136186s.gif)
使用DIV+CSS设计网页的好处
2007-10-14 15:02:00
YUI学习笔记(1)
2009-01-12 18:06:00
asp提高首页性能的一个技巧
2008-04-05 06:54:00
sqlserver 日期比较、日期查询常用语句:月的第一天,季度的第一天等
2010-08-01 18:58:00
SQL提高查询效率之Like篇
2011-10-01 09:36:42
ASP下批量删除数据的两种方法
2011-02-05 11:01:00
编程经验点滴 动态SQL的拼接技巧
2012-11-30 20:03:58
SQL Server命令行导数据的2种方式
2010-07-26 14:48:00
成为一个顶级设计师的第一准则
2008-04-18 10:29:00
![](https://img.aspxhome.com/file/UploadPic/20084/18/2008418103351248s.jpg)
解析SQL Server 2008中的新语句:MERGE
2009-01-13 13:57:00
IE与Firefox的CSS兼容大全
2008-01-31 15:36:00
Ajax学习小贴士
2007-10-24 23:21:00
网站中文字的视觉设计
2008-04-16 13:35:00
![](https://img.aspxhome.com/file/UploadPic/20084/16/2008416134135478s.jpg)
20个Javascript手风琴折叠菜单
2009-10-12 12:09:00
![](https://img.aspxhome.com/file/UploadPic/200910/12/javascript-22-33-23f-88s.jpg)
用Dreamweaver实现Real与网页结合
2010-07-13 12:11:00
![](https://img.aspxhome.com/file/UploadPic/20072/200723113228359s.gif)
通向MySQL神秘王国的图形化之路
2008-12-08 13:43:00
![](https://img.aspxhome.com/file/UploadPic/200812/200812917612229.jpg)