如何輕松打造ASP計數器

以下介紹用數據庫實現簡單計數器 
'下面存為count.asp 
＜% 
Set conn=Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& 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()) & "-" & month(Now()) & "-" & 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='"&tdate&"' 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 日期型