asp统计数据实现代码/视频每日、每周、每个月、总
发布时间：2023-06-20 15:13:56 所属栏目：Asp教程 来源：
导读：asp统计信息/文章每日、每周、每月、总访问量的方法，需要的朋友可以参考下。
复制代码代码如下:
<%
'//hittime 日期型：获得上次访问时间
'//hits 数字型：获得总浏览量
'//hitsday
复制代码代码如下:
<%
'//hittime 日期型：获得上次访问时间
'//hits 数字型：获得总浏览量
'//hitsday
|
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 %> （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
