繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 被动式统计网站在线人数
- ASP
- remote script文档(转载自微软)(八)
- 不能ASP图像组件来生成图像的ASP计数器程序(二)
- 不能ASP图像组件来生成图像的ASP计数器程序(三)
- 用ASP发送邮件
- 用ASP进行网络打印功能
- 用ASP实现号码转换
- 如何用ASP创建日志文件
- 二十八条改善 ASP 性能和外观的技巧(1-7)
- 二十八条改善 ASP 性能和外观的技巧(8-14)
- 二十八条改善 ASP 性能和外观的技巧(15-21)
- 二十八条改善 ASP 性能和外观的技巧(22-28)
- asp实现在web中显示电子表格数据（一）显示数据表格的应用
- asp实现在web中显示电子表格数据（二）生成HTML表格
- asp实现在web中显示电子表格数据（三）创建数据表列表和名字范围
- asp实现在web中显示电子表格数据（四）创建文件选择列表
- Carello Web 使 ASP 源码暴露 (APP,缺陷)
- MS IIS虚拟主机ASP源码泄露 (MS,缺陷)
- 虚拟web目录容易泄露ASP源代码 (MS,缺陷)
- MS IIS server的ASP安全缺陷 (MS,缺陷)
- 用WinSock设计Chat程序(转)
ASP 中的 被动式统计网站在线人数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 137 ::
收藏到网摘: n/a
在学校里不能上网时，没事做就改了下blog程序，加上了个blog在线人数统计。在此之前也看了几种统计在线人数的代码，感觉都不太符合自己的要求，就结合blog程序自己写了一个，应用到我的blog上。
在Fdream的blog里提到了一些关于ASP统计在线人数的方法，具体可以看这里。
为了兼顾准确率与效率，我采用了被动的方式来统计在线人，即当有新访客时才更新在线人数。不知道网上有没有已经有人使用了这种方法，不过我现在用的完全是自己想的^_^。
在L-Blog中采用Session来判断访客是否为新访客。Session的超时时间一般为20分钟，刚好可以用来统计在线人数，即20分钟内的活动访客认为是在线的。
在commond.asp有如下一段代码用来记录访问记录：
复制代码 代码如下:
' Guest_IP为访客的IP
IF Session("GuestIP")<>Guest_IP Then
Dim Guest_Agent,Guest_Refer
' Guest_Agent和Guest_Refer访问记录要用到
Guest_Agent=Trim(Request.ServerVariables("HTTP_USER_AGENT"))
Guest_Refer=Trim(Request.ServerVariables("HTTP_REFERER"))
' 添加一个访问记录
Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer) VALUES
('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
' 访问次数加1
Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums 1")
SQLQueryNums=SQLQueryNums 2
' 用Session保存访客IP
Session("GuestIP")=Guest_IP
End IF
为了实现在线人数统计，我在数据库里做了一些改动：
1. 在表blog_Info添加了1个字段blog_OnlineNums(整型)，用来保存网站当前在线人数
2. 添加了表blog_Onine，字段设置为：ol_ID(自动编号)，ol_IP(字符,20)，ol_Time(日期/时间，默认值Now)。
修改后的站点统计代码如下：
复制代码 代码如下:
'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
' 原来的站点访问计数器
Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer)
VALUES ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
SQLQueryNums=SQLQueryNums+2
Session("GuestIP")=Guest_IP
'在线人数统计
' 判断在在线列表中是否在在已经超时的访客
IF Conn.ExeCute("SELECT COUNT(ol_ID) FROM blog_Online
WHERE DateDiff('n',ol_Time,Now())>20")(0)>0 Then
' 如果有则覆盖一个已超时访客的记录
Conn.ExeCute("UPDATE blog_Online SET ol_IP='"&Guest_IP&"',
ol_Time=Now() WHERE ol_ID IN (SELECT TOP 1 ol_ID
FROM blog_Online WHERE DateDiff('n',ol_Time,Now())>20)")
Else
' 如果没有则添加一条在线访客记录
Conn.ExeCute("INSERT INTO blog_Online (ol_IP)
VALUES ('"&Guest_IP&"')")
End IF
' 统计blog在线人数
blog_OnlineNums=Conn.ExeCute("SELECT DISTINCT COUNT(ol_ID)
FROM blog_Online WHERE DateDiff('n',ol_Time,Now())<20")(0)
' 更新blog信息中的在线人数
Conn.ExeCute("UPDATE blog_Info SET blog_OnlineNums="&blog_OnlineNums&"")
SQLQueryNums=SQLQueryNums+3
End IF
这样，在blog中需要显示在线人数的地方引用变量blog_OnlineNums就行了。
并且因为是被动式统计，对blog页面执行时间的影响几乎可以忽略不计，另外，这个方法统计的blog在线人数也有一定的准确性，可以满足一般的需求了。
评论 (0) All
