浅淡如何用ASP实现在线人数统计

                浅淡如何用ASP实现在线人数统计
        
                   (jaklin  2000.8.17)

    我发现这几天问此问题的人挺多的。就此我想说说我个的用法， 请各位大虾指教。

　　在线人数是指一个时段内的访客人数统计，时间的长短是由设计者设定的。

　　在这个时段内，各个不同IP访问本站点的总数，就是当前的线上人数。在ASP中，一般是使用Session对象来实现统计，实现代码如下：

　　1. 在Golobal.asa文件中：

　　〈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_OnStart

　　    application(″online″)=0

　　End Sub

　　sub Application_OnEnd

　　    application(″online″)=0

　　End Sub

　　〈/SCRIPT〉

　　2. Online.asp 文件内容

　　〈％ 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 ％〉

    若那位大虾有更好的方法， 也顺便告诉我一下：fz_chenjl@163.net. OK? 

原文转自：http://www.ltesting.net