ASP访问统计计数器代码

以下介绍用数据库实现简单计数器，功能实现统计网站每日访问，每周访问及总访问量的统计，使用js调用

下面存为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 日期型