'下面存為count.asp
＜%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="amp; Server.MapPath("count.mdb")
%＞
＜%on error resume next%＞
＜%sql="update count set hit=hit+1%＞＜%conn.Execute(sql)%＞
＜%sql = "select * from count
set rs=conn.execute(sql)
%＞
＜%
'更新每周每日數據
lasthit=rs("lasthit")
tdate=year(Now()) amp; "-" amp; month(Now()) amp; "-" amp; day(Now())
if trim(lasthit)=trim(tdate) then
sql="update site set dayhit=dayhit+1 where id="request("id")
conn.Execute(sql)
' response.write "success"
else
sql="update site set dayhit=1 where id="request("id")
conn.Execute(sql)
' response.write "error"
end if
sql="update site set lasthit='"amp;tdateamp;"' where ID="request("id")
conn.Execute(sql)
p_year=CInt(year(Now()))-CInt(year(lasthit))
p_month=CInt(month(Now()))-CInt(month(lasthit))
p_day=CInt(day(Now()))-CInt(day(lasthit))
period_time=((p_year*12+p_month)*30+p_day)
if cint(period_time)=＜cint(7) then
sql="update site set weekhit=weekhit+1 where id="request("id")
conn.Execute(sql)
else
sql="update site set weekhit=1 where id="request("id")
conn.Execute(sql)
end if
%＞
document.write('＜tr＞＜td width="100%"＞今日訪問＜%=rs("dayhit")%＞次,本周訪問＜%=rs("weekhit")%＞次,總訪問＜%=rs("hit")%＞次＜/td＞＜/tr＞');
＜%rs.close
set rs=nothing%＞
'用＜script language="JavaScript1.1" src="count.asp"＞＜/script＞在要統計的頁面調用即可.
建立數據庫:建一個count的MDB庫,再建一個表count,表中字段為
hit 數字型
dayhit 數字型
weekhit 數字型
lasthit 日期型
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
