在Global.asa文件中加入如下的代码:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
'当服务器开启时,设置在线用户计数器为0
Application("ActiveUsers") = 0
'设置每天访问量为0
Application("EveryDayUsers") = 0
'访问的时间为
Application("RecordDate") = "2009-01-01"
End Sub
Sub Session_OnStart
'设置Session对象的有效时间为20分钟(也可以更长,但是越长对服务器的资源'占用越多,因为服务器不接受少于20分钟的有效时间,所以设置少于20分钟的'有效时间是无效的)
Session.Timeout = 30
' 当开始一个Session时在线用户计数器加1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
'每天的访问量加1
if Application("RecordDate") <> Date() Then
Application.Lock
Application("RecordDate") = Date()
Application("EveryDayUsers") = 1
Application.UnLock
else
Application.Lock
Application("EveryDayUsers") = Application("EveryDayUsers")+1
Application.UnLock
end if
'统计总访问量
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Application("TotalUsers") = counter
Out.WriteLine(counter)
Application.unlock
Out.Close
End Sub
Sub Session_OnEnd
'当结束一个Session时用户计数器减1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
为了实现定时刷新页面数据信息,用单独的一个页面来存放对这些数据的访问
online.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Refresh" content="10"><!--设置自动刷新-->
<title>在线人数</title>
</head>
<body style="width:190px; margin:0px; height:100%">
今天的访问量为:<%= Application("EveryDayUsers") %>人<br />
当前在线人数:<%= Application("ActiveUsers") %>人<br />
总访问量: <%= Application("TotalUsers") %>人
</body>
</html>
在主页面中引用这个页面即可
<IFRAME name="online" SRC="online.asp" align="center" frameborder="0" width="190" height="80px" scrolling="no"> </IFRAME>
分享到:
相关推荐
统计在线人数与图表分析网站访问量说明书 主要功能 本系统能即时统计访问网站的在线人数。以图像形式显示某年某月访问量,并以百分比形式显示在图像上。 操作注意事项 用户在使用《统计在线人数与图表分析网站访问量...
好用的ASP.NET统计日访问量,总访问量
在asp.net中,实现对网站访问量的统计,和显示此时的在线人数
asp.net 统计访问量asp.net 统计访问量asp.net 统计访问量asp.net 统计访问量
ASP网站访问量统计,可以设置基数。不用第三方网站的统计。
网站访问量统计asp源码
ASP.NET中网站访问量的统计 站长统计
本校asp程序是朋友介绍我用的,还不错。提供浏览人数 在线人数 访问量,可以再你网站使用哦
网站访问数目统计,采用ASP.net编写 ASP.net,Session. Application
asp.net 利用内置对象实现统计上网人数
【ASP.NET编程知识】ASP.net中网站访问量统计方法代码.docx
总访问量统计、总IP访问量统计、昨天/今天访问量统计、当前在线人数、每日访问明细统计,可统计来访者的IP地址、地理位置、浏览器版本、操作系统、来路URL等。自带IP数据库,可了解访问者来自什么地方 统计管理入口...
AspShop 网站访问量计数器(asp)
在asp.net中利用内置对象设计了简单的网络聊天室。用cookie记录登录次数和上次...用全局变量记录在线人数,网站访问量。并利用数组对聊天信息进行保存和刷新。保存十条信息,以后每个信息占据第一个发出信息的位置。
网站访问统计系统,ASP.NET的,有数据库文件,相当完整,课程设计或者毕业设计的朋友的可以参考一下,费了好大劲才弄的
一套简洁、快速的访问统计程序,没有华而不实的功能,主要功能包括:总访问量统计、总IP访问量统计、昨天/今天访问量统计、当前在线人数、每日访问明细统计,可统计来访者的IP地址、地理位置、浏览器版本、操作系统...
></script> 文本显示总访问量:;程序地址/CuteCounter/mystat.asp?style=t1"></script> 文本显示总浏览量:;程序地址/CuteCounter/mystat.asp?style=t2"></script> 图片显示总访问量:;...
asp统计信息/文章每日、每周、每月、总访问量的方法,需要的朋友可以参考下。
可以统计站点的总访问量,也可以统计"在线人数和使用的操作系统及准确的IP地址。本系统采用防刷新技术,可以准确的统计数据。