【IT168 服务器学院】以下介绍用数据库实现简单计数器
　　''下面存为count.html
　　＜%
　　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.html"＞＜/script＞在要统计的页面调用即可.

　　建立数据库:建一个count的MDB库,再建一个表count,表中字段为
　　hit 数字型
　　dayhit 数字型
　　weekhit 数字型
　　lasthit 日期型