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