hysql.org技术站
当前位置:首页 > asp编程 > 正文

asp统计信息实现代码/文章每日、每周、每月、总

06-14 asp编程

复制代码 代码如下:

<%
'//hittime 日期型:获得上次访问时间
'//hits 数字型:获得总浏览量
'//hitsday 数字型:获得今天浏览量
'//hitsweeks 数字型:获得本周浏览量
'//hitmonths 数字型:获得本月浏览量
'数据库中 添加这5个字段。
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from qwbmnewssss where id=26",conn,1,3
if rs1.eof and rs1.bof then
response.write "erry"
else
hittime = rs1("hittime") '获得上次访问时间
dim dayNow,monthNow,weeknow
dayNow = day(date()) '现在几号
monthNow = month(date()) '现在几月
weekNow = weekday(date()) '现在星期几 0为星期天
rs1("hits") = rs1("hits") + 1 '总浏览次数 + 1

if datediff("d",hittime,now()) = 0 then '比较最后访问日期与现在的时间 天数
rs1("hitsday") = rs1("hitsday") + 1 '今天的浏览量 + 1
else
rs1("hitsday") = 1 '今天的浏览量 = 1
end if

if monthNow = month(hittime) then
rs1("hitmonths") = rs1("hitmonths") + 1 '本月的浏览量 + 1
else
rs1("hitmonths") = 1 '本月的浏览量 + 1
end if

if datediff("d",hittime,now()) > 6 then '在处理星期的期的时候有一个问题,如果上一个时间是星期五,下一次访问是下个星期的星期二,记录还是叠加。
rs1("hitsweeks") = 1
else
if weekNow <> 1 then
rs1("hitsweeks") = rs1("hitsweeks") + 1
else
weekNowss = weekday(hittime) '上次访问的星期几
if weekNow = weekNowss then
rs1("hitsweeks") = rs1("hitsweeks") + 1
else
rs1("hitsweeks") = 1
end if
end if
end if

rs1("hittime") = now() '更新最后的访问题意
rs1.update
%>
时间比较:<%=datediff("d",hittime,now())%><br />
当前时间:<%=now()%><br />
最后点击时间:<%=hittime%><br />
当前天:<%=dayNow%><br />
当前月:<%=monthNow%><br />
当前周:<%=weekNow%><br />

总共浏览量:<%=rs1("hits")%><br />
今天访问量:<%=rs1("hitsday")%><br />
星期访问量:<%=rs1("hitsweeks")%><br />
当月访问量:<%=rs1("hitmonths")%><br />
<%
end if
rs1.close
set rs1=nothing
%>

您可能感兴趣的文章:

  • ASP制作在线人数统计实例
  • 统计有多少行JS代码和ASP代码
  • ASP程序代码执行时间统计类
  • asp论坛在线人数统计研究
  • ASP访问数量统计代码
  • ASP.NET 统计图表控件小结
  • php模仿asp Application对象在线人数统计实现方法
  • ASP.NET中使用Application对象实现简单在线人数统计功能
  • 简单的ASP统计制作实例

相关拓展:中国统计信息网简介

关注中国经济发展的人越来越多,已经超越了经济学专业研究领域。无论是企业进行战略规划、市场分析,还是网民对地区经济的热议、对民生发展的了解,都使得各种社会经济发展的数据指标成为了网络上炙手可热的信息资源。 但由于我国各级行政区域划分复杂,相关政府网站数量的庞大,使查阅各个地区、行业的统计数据成为了一个异常辛苦的工作。因此,本着为统计数据需求者服务的目的,中国统计信息网应运而生。

版权保护: 本文由 首页 原创,转载请保留链接: http://www.hysql.org/asp/20180614/2970.html