• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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统计制作实例
    上一篇:ASP中用ajax方式获得session的实现代码
    下一篇:asp中将相对路径转换为绝对路径的函数代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp统计信息实现代码/文章每日、每周、每月、总访问量的方法 asp,统计,信息,实现,代码,