复制代码 代码如下:
<%
//hittime 日期型获得上次访问时间
//hits 数字型获得总浏览量
//hitsday 数字型获得今天浏览量
//hitsweeks 数字型获得本周浏览量
//hitmonths 数字型获得本月浏览量
数据库中 添加这个字段
set rs=serverCreateObject(adodbrecordset)
rsopen select * from qwbmnewssss where id=conn
if rseof and rsbof then
responsewrite erry
else
hittime = rs(hittime) 获得上次访问时间
dim dayNowmonthNowweeknow
dayNow = day(date()) 现在几号
monthNow = month(date()) 现在几月
weekNow = weekday(date()) 现在星期几 为星期天
rs(hits) = rs(hits) + 总浏览次数 +
if datediff(dhittimenow()) = then 比较最后访问日期与现在的时间 天数
rs(hitsday) = rs(hitsday) + 今天的浏览量 +
else
rs(hitsday) = 今天的浏览量 =
end if
if monthNow = month(hittime) then
rs(hitmonths) = rs(hitmonths) + 本月的浏览量 +
else
rs(hitmonths) = 本月的浏览量 +
end if
if datediff(dhittimenow()) > then 在处理星期的期的时候有一个问题如果上一个时间是星期五下一次访问是下个星期的星期二记录还是叠加
rs(hitsweeks) =
else
if weekNow <> then
rs(hitsweeks) = rs(hitsweeks) +
else
weekNowss = weekday(hittime) 上次访问的星期几
if weekNow = weekNowss then
rs(hitsweeks) = rs(hitsweeks) +
else
rs(hitsweeks) =
end if
end if
end if
rs(hittime) = now() 更新最后的访问题意
rsupdate
%>
时间比较<%=datediff(dhittimenow())%><br />
当前时间<%=now()%><br />
最后点击时间<%=hittime%><br />
当前天<%=dayNow%><br />
当前月<%=monthNow%><br />
当前周<%=weekNow%><br />
总共浏览量<%=rs(hits)%><br />
今天访问量<%=rs(hitsday)%><br />
星期访问量<%=rs(hitsweeks)%><br />
当月访问量<%=rs(hitmonths)%><br />
<%
end if
rsclose
set rs=nothing
%>
