被动式统计网站在线人数-巨人网络通讯

被动式统计网站在线人数

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