作家
登录

被动式统计网站在线人数

作者: 来源:www.28hudong.com 2013-03-30 08:51:45 阅读 我要评论

在学校里不能上网时,没事做就改了下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在线人数也有一定的准确性,可以满足一般的需求了。

  推荐阅读

  用xmlhttp编写web采集程序

晰带语法着色的版本:http://gwx.showus.net/blog/article.asp?id=229原创很辛苦,转载请注明原文链接:http://gwx.showus.net/blog/article.asp?id=229web采集程序?网页抓取程序?小倫程序?不管怎么叫,这种程序>>>详细阅读


本文标题:被动式统计网站在线人数

地址:http://www.17bianji.com/kaifa2/ASP/32879.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)