被动式统计网站在线人数

　　在学校里不能上网时，没事做就改了下blog程序，加上了个blog在线人数统计。在此之前也看了几种统计在线人数的代码，感觉都不太符合自己的要求，就结合blog程序自己写了一个，应用到我的blog上。

　　在Fdream的blog里提到了一些关于ASP统计在线人数的方法，具体可以看这里。

　　为了兼顾准确率与效率，我采用了被动的方式来统计在线人，即当有新访客时才更新在线人数。不知道网上有没有已经有人使用了这种方法，不过我现在用的完全是自己想的^_^。

　　在L-Blog中采用Session来判断访客是否为新访客。Session的超时时间一般为20分钟，刚好可以用来统计在线人数，即20分钟内的活动访客认为是在线的。

　　在commond.asp有如下一段代码用来记录访问记录：
复制代码 代码如下:
Guest_IP为访客的IP
IFSession(GuestIP)<>Guest_IPThen
DimGuest_Agent,Guest_Refer
Guest_Agent和Guest_Refer访问记录要用到
Guest_Agent=Trim(Request.ServerVariables(HTTP_USER_AGENT))
Guest_Refer=Trim(Request.ServerVariables(HTTP_REFERER))
添加一个访问记录
Conn.ExeCute(INSERTINTOblog_Counter(coun_IP,coun_Agent,coun_Refer)VALUES
(&Guest_IP&,&Guest_Agent&,&Guest_Refer&))
访问次数加1
Conn.ExeCute(UPDATEblog_InfoSETblog_VisitNums=blog_VisitNums1)
SQLQueryNums=SQLQueryNums2
用Session保存访客IP
Session(GuestIP)=Guest_IP
EndIF

为了实现在线人数统计，我在数据库里做了一些改动：

1.在表blog_Info添加了1个字段blog_OnlineNums(整型)，用来保存网站当前在线人数

2.添加了表blog_Onine，字段设置为：ol_ID(自动编号)，ol_IP(字符,20)，ol_Time(日期/时间，默认值Now)。

修改后的站点统计代码如下：
复制代码 代码如下:
站点统计代码
IFSession(GuestIP)<>Guest_IPThen
原来的站点访问计数器
Conn.ExeCute(INSERTINTOblog_Counter(coun_IP,coun_Agent,coun_Refer)
VALUES(&Guest_IP&,&Guest_Agent&,&Guest_Refer&))
Conn.ExeCute(UPDATEblog_InfoSETblog_VisitNums=blog_VisitNums+1)
SQLQueryNums=SQLQueryNums+2
Session(GuestIP)=Guest_IP
在线人数统计
判断在在线列表中是否在在已经超时的访客
IFConn.ExeCute(SELECTCOUNT(ol_ID)FROMblog_Online
WHEREDateDiff(n,ol_Time,Now())>20)(0)>0Then
如果有则覆盖一个已超时访客的记录
Conn.ExeCute(UPDATEblog_OnlineSETol_IP=&Guest_IP&,
ol_Time=Now()WHEREol_IDIN(SELECTTOP1ol_ID
FROMblog_OnlineWHEREDateDiff(n,ol_Time,Now())>20))
Else
如果没有则添加一条在线访客记录
Conn.ExeCute(INSERTINTOblog_Online(ol_IP)
VALUES(&Guest_IP&))
EndIF
统计blog在线人数
blog_OnlineNums=Conn.ExeCute(SELECTDISTINCTCOUNT(ol_ID)
FROMblog_OnlineWHEREDateDiff(n,ol_Time,Now())<20)(0)
更新blog信息中的在线人数
Conn.ExeCute(UPDATEblog_InfoSETblog_OnlineNums=&blog_OnlineNums&)
SQLQueryNums=SQLQueryNums+3
EndIF

这样，在blog中需要显示在线人数的地方引用变量blog_OnlineNums就行了。

并且因为是被动式统计，对blog页面执行时间的影响几乎可以忽略不计，另外，这个方法统计的blog在线人数也有一定的准确性，可以满足一般的需求了。