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