发信人: folmorse (◆金瓶楼主◆), 信区: VB
标 题:网络之门联盟天地-----动感网络网页在线人数统计的做法
发信站: 大红花的国度 (Sun Jun 11 15:06:28 2000), 转信
在浏览网页的时侯，常常可以看见一些“当前网站上的人数是ＸＸＸ人”的在线人
数同计。如何用ＡＳＰ来做一个呢？首先，分析一下它的做法，一般来说，这些线上人
数统计都是指一个时段内的访客人数统计。比如（５分钟内，１０分钟内）而这个时间
的长短，是由设计者设定的。
在这个时段内同计各个不同ＩＰ的访客总数，就可以得出当前的线上人数了，但这
里有一个精确问题需要解决，至于用什么办法来精确地统计，那就是各人不同的做法了
，比如可以用自动提交的页面，隔一段时间读取ＣＯＯＫＩＥＳ等等，而在ＡＳＰ中，
有一个更好的技巧，就是使用session对象来统计，这里介绍一下gobal.asa这个文件，
这是一个很重要的一个文件，请看看它的结构。
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
End Sub
Sub Session_OnEnd
End Sub
sub Application_OnStard
End Sub
sub Application_OnEnd
End Sub
</SCRIPT>
当有一个会话发生时（用户浏览网页，向Web服务器发出请求）那么，如果自服务器
启动后第一个用户的话，就会同时发生Application_OnStard和Session_OnStart这两个
事件，之后，再有别的用户发出请求的话，就只发生Session_OnStart这个事件，而ses
sion的生存期是多长，是可以设定的，Session.timeout=Ｘ（分钟）
好了，有了这个很好用的方法，我们就能准确地统计出在线人数了，而人数总计是
用一个application变量来保存，当在第一个会话开始时，在Application_OnStard事件
中放置一条清空计数器的语句application("online")=0，然后，在Session_OnStart事
件中，放置一条增加在线人数的语句
application("online")=application("online")+1，而在Session_OnEnd事件相应地放
一条减少在线人数的语句，令计数值减一。
这样，这个文件就改为如下
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
application("online")=application("online")+1
End Sub
Sub Session_OnEnd
application("online")=application("online")-1
End Sub
sub Application_OnStard
application("online")=0
End Sub
sub Application_OnEnd
application("online")=0
End Sub
</SCRIPT>
接下来编一个显示图形数字的程序，把在线人数显示在指定的页面上。这样就能得
出在人数了
＊online.asp
<% @language="vbscript" %>
<%
tmp=application("online")
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for i= 1 to dbbits
disp(i)=left(right(tmp,i),i-(i-1))
next
for i=dbbits to 1 step -1
images(i)="<img src="&"http://xxxx.com.cn/pic"&"/"&disp(i)&".gif>"
response.write "document.write('"&images(i)&"');"
next
%>
上面的程序很简单，这里不作分析了，请大家自己阅读一下。在调用在线统计的页
面上用一句script语句引用online.asp文件，以显示图形统计器。
<script language="JavaScript" src="http://xxxx.com.cn/online.asp"></script>
现在可以了，记住要点，你必须把gobal.asa放在正确的web应用程序根目录上，而
最好单独为这个统计新建一个web应用程序，不要与其它别的程序混乱了，不然得出的数
据是不准确的，而把这个程序修改为多用户的在线统计也很简单。这样就可以提供在线
统计服务了，如何实现请又大家去思考一下吧....
--
※ 修改:．folmorse 于 Jun 11 15:05:37 修改本文．[FROM: hpwei.hit.edu.cn]
※ 来源:．华南网木棉站 bbs.gznet.edu.cn．[FROM: 202.38.248.34]
--
※ 转寄:．华南网木棉站 bbs.gznet.edu.cn．[FROM: hpwei.hit.edu.cn]
--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: folmorse.bbs@melon.g]