Cree fácilmente contadores ASP
Autor：Eve Cole
Fecha de actualización：2009-06-23 16:43:18
以下介绍用数据库实现简单计数器
'下面存为count.asp
<%
Establecer conexión=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Controlador de Microsoft Access (*.mdb)};dbq="& Server.MapPath("count.mdb")
%>
<%en caso de error, reanudar siguiente%>
<%sql="conjunto de recuento de actualizaciones hit=hit+1%><%conn.Execute(sql)%>
<%sql = "seleccionar * del recuento
establecer rs=conn.execute(sql)
%>
<%
'更新每周每日数据
lasthit=rs("lasthit")
tdate=año(Ahora()) & "-" & mes(Ahora()) & "-" & día(Ahora())
si trim(lasthit)=trim(tdate) entonces
sql="actualizar sitio establecido dayhit=dayhit+1 donde id="&request("id")
conexión.Ejecutar(sql)
'respuesta.escribir "éxito"
demás
sql="actualizar sitio establecido dayhit=1 donde id="&request("id")
conexión.Ejecutar(sql)
'respuesta.escribir "error"
terminar si
sql="actualizar sitio establecido lasthit='"&tdate&"' donde ID="&request("id")
conexión.Ejecutar(sql)
p_año=CInt(año(Ahora()))-CInt(año(último))
p_mes=CInt(mes(Ahora()))-CInt(mes(último))
p_day=CInt(día(Ahora()))-CInt(día(último))
period_time=((p_año*12+p_mes)*30+p_día)
si cint(period_time)=<cint(7) entonces
sql="actualizar sitio establecido semanahit=semanahit+1 donde id="&request("id")
conexión.Ejecutar(sql)
demás
sql="actualizar sitio establecido semanahit=1 donde id="&request("id")
conexión.Ejecutar(sql)
terminar si
%>
document.write('<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>');
<%rs.cerrar
establecer rs=nada%>
'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可.
建立数据库:建一个count的MDB库,再建一个表count,表中字段为
golpea 数字型
dayhit 数字型
éxito de semana 数字型
lasthit 日期型
