asp实现在线人数统计代码
来源:asp之家 发布时间:2008-08-10 18:35:00
标签:在线,人数,统计,asp
本来在网上有不少关于这方面的文章,可是我找了好久也没看到把(可能我的搜索水平有线把)不过倒是聊天室的很多。
如何统计会员再线状态,希望对刚开始接触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
%>
再每页调用就行了。
![](https://www.aspxhome.com/images/zang.png)
![](https://www.aspxhome.com/images/jiucuo.png)
猜你喜欢
- Javascript 中将多个语句写成一个语句的两种方法小结一、使用逗号运算符将多个语句写成一个语句 1.一次声明多个变量&nb
- 导语泡泡王国 欢乐多多咕噜噜,吹泡泡,七彩泡泡满天飘。大的好像彩气球,小的就像紫葡萄。当泡泡漫天飞舞时,大朋友、小朋友都会情不自禁地被它吸引
- 程序运行效率程序的运行效率分为两种:第一种是时间效率,第二种是空间效率。时间效率被称为时间复杂度,而空间效率被称作空间复杂度。时间复杂度主要
- 1.INSERT INTO SELECT语句 语句形式为:Insert into Table2(field1,field2,...) sel
- GBK简体字符集的编码是同时用1个字节和2个字节来表示的。当高位是0x00~0x7f时,为一个字节,高位为0x80以上时用2个字节表示&qu
- 网上看到的python去掉字符串中的标点符号的方法,大多是基于python2的,不适用python3,调整后代码如下:代码lower_cas
- 算法是计算机科学中一个重要的研究方向,是解决复杂问题的关键。在计算机世界中,算法无处不在。数据库是存储数据和执行大批量计算的场所,在数据库中
- 1.使用open()函数打开文件夹在读取一个文件的内容之前,需要先打开这个文件。在Python程序中可以通过内置函数open()来打开一个文
- 下边我就简单说一下过程和原理。第一步:实现一个匿名函数并能自己执行。(function(){ })() 这个函数在一样编的好的J
- 前言在python列表的元素删除操作中, del, pop(), remove()很容易混淆, 下面对三个语句/方法作出解释del语句del
- 前言当我们运行测试函数时,我们希望确保测试函数在运行结束后,可以自己清理掉对环境的影响。这样的话,它们就不会干扰任何其他的测试函数,更不会日
- 本文实例讲述了Python基于动态规划算法解决01背包问题。分享给大家供大家参考,具体如下:在01背包问题中,在选择是否要把一个物品加到背包
- 使用 filters 实现 英文字母 转大写1、template :<di
- 不知道大家有没有一种感觉,每次当使用numpy数组的时候坐标轴总是傻傻分不清楚,然后就会十分的困惑,每次运算都需要去尝试好久才能得出想要的结
- 在代码中添加以下两行可以解决:torch.backends.cudnn.enabled = Truetorch.backends.cudnn
- Mysql存储过程1.创建存储过程语法(格式)DELIMITER $CREATE PROCEDURE 存储过程名A(IN 传入参数名a IN
- 本文实例讲述了jsp中select的onchange事件用法。分享给大家供大家参考,具体如下:<script language = &
- 前言在这篇文章 Go Mutex:保护并发访问共享资源的利器 中,主要介绍了 Go 语言中互斥锁 Mutex&
- 回顾面向对象编程让我们先用 30 秒钟来回顾一下 OOP 到底是什么。在面向对象编程语言中,可以定义 类,它们的用途是将相关的数据和行为捆绑
- 前言随着圣诞的到来,大家纷纷@官方微信给自己的头像加上一顶圣诞帽。当然这种事情用很多P图软件都可以做到。但是作为一个学习图像处理的技术人,还