轻松打造ASP计数器

以下介绍用数据库实现简单计数器
'下面存为count.asp

1   
2Set conn=Server.CreateObject("ADODB.Connection")   
3conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb")   

1on error resume next

1sql="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)=

1&lt;cint(7) &amp;request("id")="" ```="" conn.execute(sql)="" document.write('<tr="" else="" end="" if="" sql="update site set weekhit=1 where id=" then=""><td width="100%">今日访问```
2=rs("dayhit")
3```次,本周访问```
4=rs("weekhit")
5```次,总访问```
6=rs("hit")
7```次</td>');   

rs.close
set rs=nothing

1  
2'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.    
3  
4建立数据库:建一个count的MDB库,再建一个表count,表中字段为    
5hit 数字型   
6dayhit 数字型   
7weekhit 数字型   
8lasthit 日期型</cint(7)>