轻松打造ASP计数器
作者：Eve Cole
更新时间：2009-06-23 16:43:18
以下介绍用数据库实现简单组成部分
'下面存为count.asp
<%
设置 conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access 驱动程序 (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%错误继续下一个%>
<%sql="更新计数设置 hit=hit+1%><%conn.Execute(sql)%>
<%sql = "从计数中选择*
设置 rs=conn.execute(sql)
%>
<%
'更新每周每日数据
Lasthit=rs("lasthit")
tdate=年(Now()) & "-" & 月(Now()) & "-" & 日(Now())
如果修剪（lasthit）=修剪（tdate）那么
sql="更新站点设置 dayhit=dayhit+1 其中 id="&request("id")
conn.执行(sql)
' 响应.写“成功”
别的
sql="更新站点设置 dayhit=1 其中 id="&request("id")
conn.执行(sql)
' 响应.write“错误”
结束如果
sql="更新站点集lasthit='"&tdate&"' where ID="&request("id")
conn.执行(sql)
p_year=CInt(年(Now()))-CInt(年(lasthit))
p_month=CInt(月(Now()))-CInt(月(lasthit))
p_day=CInt(天(Now()))-CInt(天(lasthit))
period_time=((p_year*12+p_month)*30+p_day)
如果 cint(period_time)=< cint(7) 那么
sql="更新站点设置 weekhit=weekhit+1 其中 id="&request("id")
conn.执行(sql)
别的
sql="更新站点设置 weekhit=1 其中 id="&request("id")
conn.执行(sql)
结束如果
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次、本周访问<%=rs("weekhit")%>次、总访问<%=rs("hit")%>次</td></tr>');
<%rs.关闭
设置 rs=无%>
'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可。
建立数据库：建一个count的MDB库，再建一个表count，表中字段为
打数字型
dayhit数字型
weekhit数字型
Lasthit 日期类型
