Question

ASP统计在线人数和访问次数代码

制作好一个Global.asa文件，并在里面写好相关代码。另外制作一个index.asp页面，在这个页面上方显示目前在线人数（5分钟内不操作页面算离线）和网页被访问的总次数。在线人数和访问次数的下方显示若干小图片，鼠标停留在图片上能产生“点击看大图”的提示信息，点击后能在新窗口查看相应图片的大图片。

Answer 1

///////////////Global.asa文件：///////////////////////
<script language="VBScript" runat="Server">
Sub Application_onStart
Application("Count")=0
Application("Online")=0
end sub
Sub session_onStart
session.Timeout=5 //这里是设定会话结束时间（5分钟）
Application.Lock
Application("Count") = Cint(Application("Count")) + 1 //访问次数加1
Application("Online") = Cint(Application("Online")) + 1 //在线人数加1
Application.UnLock
end sub
Sub session_OnEnd
Application.Lock
Application("Online") = Cint(Application("Online")) - 1 //会话结束时在线人数减1
Application.UnLock
end sub
</script>
//////////////////index.asp文件部分代码///////////////////
总访问人数:<%response.Write(application("Count"))%>人
当前在线:<%response.Write(application("Online"))%>人