asp统计信息实现代码/文章每日、每周、每月、总访问量代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 asp统计信息实现代码/文章每日、每周、每月、总访问量

作者:dezai / 发布于2014/6/24/ 1597

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())%>
	当前时间：<%=now()%>
	最后点击时间：<%=hittime%>
	当前天：<%=dayNow%>
	当前月：<%=monthNow%>
	当前周：<%=weekNow%>

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

试试其它关键字

　每日　　每周　　每月　　总访问量　

同语言下

可能有用的

dezai贡献的其它代码(1065)