被动式统计网站在线人数

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