Легко создавайте счетчики ASP
Автор：Eve Cole
Время обновления：2009-06-23 16:43:18
以下介绍用数据库实现简单计数器
'下面存为count.asp
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%при ошибке продолжить дальше%>
<%sql="установить счетчик обновлений hit=hit+1%><%conn.Execute(sql)%>
<%sql = "выбрать * из числа
установить rs=conn.execute(sql)
%>
<%
'更新每周每日数据
последнийхит = rs("ластхит")
tdate=год(Now()) & "-" & месяц(Now()) & "-" & день(Now())
если обрезка(lasthit)=обрезка(tdate), то
sql="обновление набора сайтов dayhit=dayhit+1 где id="&request("id")
conn.Execute(sql)
'response.write "успех"
еще
sql="обновить набор сайтов dayhit=1 где id="&request("id")
conn.Execute(sql)
'response.write "ошибка"
конец, если
sql="обновить набор сайтов Lasthit=""&tdate&"' где ID="&request("id")
conn.Execute(sql)
p_year=CInt(год(Сейчас()))-CInt(год(последний хит))
p_month=CInt(месяц(Сейчас()))-CInt(месяц(последний))
p_day=CInt(день(Сейчас()))-CInt(день(lasthit))
period_time=((p_year*12+p_месяц)*30+p_день)
если cint( period_time)=<cint(7) тогда
sql="обновление набора сайтов Weekhit=weekhit+1 где id="&request("id")
conn.Execute(sql)
еще
sql="обновление набора сайтов Weekhit=1, где id="&request("id")
conn.Execute(sql)
конец, если
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>');
<%rs.close
установить rs=ничего%>
'用<script Language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.
建立数据库:建一个count的MDB库,再建一个表count,表中字段为
нажмите 数字型
DayHit 数字型
хит недели 数字型
последний хит 日期型
