復制代碼 代碼如下:
<%
//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
%>
From:http://tw.wingwit.com/Article/program/Web/201405/30989.html
