程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> asp統計信息/文章每日、每周、每月、總訪問量的方法

asp統計信息/文章每日、每周、每月、總訪問量的方法

編輯：ASP技巧

折疊ASP/Visual Basic Code復制內容到剪貼板

<%
'//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())%>
當前時間：<%=now()%>
最後點擊時間：<%=hittime%>
當前天：<%=dayNow%>
當前月：<%=monthNow%>
當前周：<%=weekNow%>
總共浏覽量：<%=rs1("hits")%>
今天訪問量：<%=rs1("hitsday")%>
星期訪問量：<%=rs1("hitsweeks")%>
當月訪問量：<%=rs1("hitmonths")%>
<%
end if
rs1.close
set rs1=nothing
%>