Crie facilmente contadores ASP
Autor：Eve Cole
Data da Última Atualização：2009-06-23 16:43:18
以下介绍用数据库实现简单计数器
'下面存为count.asp
<%
Definir conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Driver do Microsoft Access (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%em caso de erro retomar próximo%>
<%sql="conjunto de contagem de atualizações hit=hit+1%><%conn.Execute(sql)%>
<%sql = "selecione * da contagem
definir rs = conn.execute (sql)
%>
<%
'更新每周每日数据
último hit=rs("último hit")
data = ano (agora ()) & "-" & mês (agora ()) & "-" & dia (agora ())
se trim(lasthit)=trim(tdate) então
sql="atualizar conjunto de site dayhit=dayhit+1 onde id="&request("id")
conexão.Execute(sql)
'resposta.write "sucesso"
outro
sql="atualizar conjunto de site dayhit=1 onde id="&request("id")
conexão.Execute(sql)
' resposta.write "erro"
terminar se
sql="atualizar site set lasthit='"&tdate&"' onde ID="&request("id")
conexão.Execute(sql)
p_year=CInt(year(Now()))-CInt(year(lasthit))
p_mês=CInt(mês(Agora()))-CInt(mês(último))
p_day=CInt(dia(Agora()))-CInt(dia(última))
período_tempo=((p_ano*12+p_mês)*30+p_dia)
se cint(período_tempo)=<cint(7) então
sql="atualizar conjunto de site weekhit=weekhit+1 onde id="&request("id")
conexão.Execute(sql)
outro
sql="atualizar conjunto de site weekhit=1 onde id="&request("id")
conexão.Execute(sql)
terminar se
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>');
<%rs.fechar
definir rs=nada%>
'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.
建立数据库:建一个contagem的MDB库,再建一个表contagem,表中字段为
acertar 数字型
dayhit 数字型
weekhit 数字型
lasthit 日期型
