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
%>