<script language="vbscript" runat="server">
session_onstart 当客户首次运行 asp 应用程序中的任何一个页面时运行
session_onend 当一个客户的会话超时或退出应用程序时运行
application_onstart 当任何客户首次访问该应用程序的首页时运行
application_onend 当该站点的 web 服务器关闭时运行
sub application_onstart
visitorcountfilename = server.mappath ("../visitcount.txt")
set fileobject = server.createobject("scripting.filesystemobject")
set out= fileobject.opentextfile (visitorcountfilename, 1, false, false)
application("visitors") = out.readline
application("nowpeoplenumber")=0
application("visitorcountfilename") = visitorcountfilename
end sub
=========================================================
sub application_onend
set fileoutobject = server.createobject("scripting.filesystemobject")
set out= fileoutobject.createtextfile (application("visitorcountfilename"), true,false)
out.writeline(application("visitors"))
end sub
=========================================================
sub session_onstart
session.timeout = 30
application("visitors") = application("visitors") + 1
application("nowpeoplenumber")=application("nowpeoplenumber")+1
session("id")=session.sessionid
session("username")=0 不存在
end sub
=========================================================
sub session_onend
application("nowpeoplenumber")=application("nowpeoplenumber")-1
end sub
</script>
这样的话总的浏览人数将保存在visitcount.txt文件中，我觉得application("nowpeoplenumber")中应该保存了
在线人数，在主页中把它显示出来就可以，但这样做我发现当我关闭浏览器在打开主页时候
在线人数增加了1。也就是说session_onend没有被执行。是什么原因呢？还有别的方法可以得到
在线人数吗？首次发文章，谢谢大家了。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
