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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp统计信息实现代码/文章每日、每周、每月、总访问量的方法，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1738字，纯文字阅读大概需要3分钟。

内容图文

<% 
'//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统计信息实现代码/文章每日、每周、每月、总访问量的方法全部内容，希望文章能够帮你解决asp统计信息实现代码/文章每日、每周、每月、总访问量的方法所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端