被动式统计网站在线人数

在学校里不能上网时，没事做就改了下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)

相关推荐

  • 统计在线人数是实时的吗？

    global.asa <script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart Application("ActiveUsers") = 0 ' 从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢. End Sub Sub Session_OnStart Session.Timeout = 20 ' 把Sess

  • 利用java监听器实现在线人数统计

    1．在工程中创建监听类SessionListener 并且实现HttpSessionListener接口,代码如下 import javax.servlet.http.HttpSessionEvent; import javax.servlet.http.HttpSessionListener; public class SessionListener implements HttpSessionListener { private static int count = 0; public vo

  • jsp利用application统计在线人数的方法

    本文实例讲述了jsp利用application统计在线人数的方法.分享给大家供大家参考. 具体实现方法如下: 复制代码 代码如下: <%@ page language="java" import="java.util.*" pageEncoding="UTF-8"%> <% String path = request.getContextPath(); String basePath = request.getScheme()+

  • ASP.NET中使用Application对象实现简单在线人数统计功能

    ASP.NET中使用Application对象实现简单在线人数统计功能

    注:最近在复习ASP.NET,为了加深印象,会制作一些小的demo程序,分享给大家. 1 新建ASP.NET网站,编辑Global.asax文件,修改后的文件内容如下所示. <%@ Application Language="C#" %> <script runat="server"> void Application_Start(object sender, EventArgs e) { // 在应用程序启动时运行的代码 Applicati

  • php使用Session和文件统计在线人数

    <?php /* @ PHP 在线人数统计程序 Copyright (c) by Pader 1:25 2009年1月7日 How to use it: <script src="online.php"></script> note: 一般独立在线人数统计程序都是统计在线的IP数,而这并不准确 例如局域网的访问者,比如公司,学校机房和网吧,虽然内网IP不同,但是外网IP都是一样 如果同一个局域网的无论多少人人访问你的网站则只被认为是一个人 这个小巧的程序解

  • 封装了一个支持匿名函数的Javascript事件监听器

    关于js中的事件监听大家用的比较多了,无非是判断浏览器是否支持addEventListener和attachEvent,网上搜索关于事件监听的方法也挺多,但是总有些不是很完善.下面的方法中对于添加事件监听的方法是一样的,只不过在取消事件绑定上面做了点手术,现在可以支持匿名函数的使用,所以在绑定事件的时候不再需要给函数单独命名了. 主要代码: 复制代码 代码如下: /*绑定事件与取消绑定*/var handleHash = {};var bind = (function() { if (windo

  • 也谈php网站在线人数统计

    function checkOnline($userid,$tempid=null)      {      $conn = connect(); //对于所有用户      //先设置自己为在线      $stmt = "UPDATE ".DB_NAME.".USER SET IsOnline='Y' WHERE UserID=".$userid;      $result = query($stmt,$conn);      //info($stmt);   

  • php实现统计网站在线人数的方法

    本文实例讲述了php实现统计网站在线人数的方法.分享给大家供大家参考.具体实现方法如下: <?php function getIpAddress() { // 取得当前用户的IP地址 if (getenv('HTTP_CLIENT_IP')) { $ip = getenv('HTTP_CLIENT_IP'); } elseif (getenv('HTTP_X_FORWARDED_FOR')) { $ip = getenv('HTTP_X_FORWARDED_FOR'); } elseif (ge

  • asp论坛在线人数统计研究

    1.建立数据库表   表名为online    设如下字段   id '用来记录每一个访问都的session.sessionid   name '如果是访客,则记录为访客.   online  '如果是访各为0 如果是会员1    datetime '最近活动时间   username '会员的登录用户名,访客为空.   ip '记录访问都的登录IP head.asp '向数据库表写入在线人数,该页面必须搜入到每一个用于浏览ASP页面中. <% set rs=Server.CreateObjec

  • javascript 传统事件模型构造的事件监听器实现代码

    代码如下: 复制代码 代码如下: var br={}; br.eventRouter = {}; br.eventRouter.addListen = function(el,eventType,func){ if(!el.eventObjs){ el.eventObjs = {}; } if(!el.eventObjs[eventType]){ el.eventObjs[eventType]=[]; br.eventRouter.bindListen(el,eventType); } el.e

  • PHP+jquery实时显示网站在线人数的方法

    本文实例讲述了PHP+jquery实时显示网站在线人数的方法.分享给大家供大家参考.具体分析如下: 在线人数最简单的就是直接利用js调用php,这样可以显示出有多少人访问了本站,如果要在用户未刷新页面的状态实时显示用户在线人数,我们可以利用jquery ajax来实现. 我们在一些应用中需要动态展示数据,比如当前在线人数,当前交易总额,当前汇率等等,前端页面需要实时刷新获取最新数据.这里我们将结合实例给大家介绍使用jQuery和PHP来实现动态数字展示效果. 本例假设要在页面上动态展示(无需刷新

  • 浅析JAVA中过滤器、监听器、拦截器的区别

    1.过滤器:所谓过滤器顾名思义是用来过滤的,在java web中,你传入的request,response提前过滤掉一些信息,或者提前设置一些参数,然后再传入servlet或者struts的action进行业务逻辑,比如过滤掉非法url(不是login.do的地址请求,如果用户没有登陆都过滤掉),或者在传入servlet或者struts的action前统一设置字符集,或者去除掉一些非法字符(聊天室经常用到的,一些骂人的话).filter 流程是线性的, url传来之后,检查之后,可保持原来的流程

  • php+memcache实现的网站在线人数统计代码

    php+memcache实现的网站在线人数统计代码

    今天闲来无事,想在博客统计中显示在线人数.在网上找了好多例子,不是数据库存储数据就是文件存储,代码也看起来过于复杂. 晚上回来后,构思了下,看到我服务器中安装有 Memcache 服务,何不用 Memcache 实现呢. 下面就来讲下实现过程: 效果图: 实现代码: <?php $mc = new Memcache (); // 连接memcache $mc->connect ( "127.0.0.1", 11211 ); // 获取 在线用户 IP 和 在线时间数据 $o

  • 不用Global.asa也能实现统计在线人数吗？

    不用Global.asa也能实现统计在线人数吗?<%sessionID = session.SessionIDtimeout = 5' 设置session保持的时间. Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")'Conn_String = "activeUser"' 最好设置DSN = &quo

  • c#显示当前在线人数示例

    1.Global.asax文件: 复制代码 代码如下: <%@ Application Language="C#" %><%@ Import Namespace="System.Xml" %><script runat="server"> void Application_Start(object sender, EventArgs e)     {        // 在应用程序启动时运行的代码       

随机推荐