用ASP设计网站在线人数统计程序

这样，这个文件就改为如下

＜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应用程序，不要与其它别的程序混乱了，不然得出的数据是不准确的，而把这个程序修改为多用户的在线统计也很简单。这样就可以提供在线统计服务了，如何实现请又大家去思考一下吧....

查看本文来源