Print Page | Close Window

Contador de Visitas

Printed From: Vida Una
Category: Programación
Forum Name: Códigos ASP y ASP.NET
Forum Description: Foro dedicado al mundo de la programación en código ASP y ASP.NET. Aquí encontrarás ejemplos y trucos en ASP muy útiles.
URL: https://www.vidauna.com/forum_posts.asp?TID=794
Printed Date: 28 Marzo 2024 at 2:32pm


Topic: Contador de Visitas
Posted By: Programador
Subject: Contador de Visitas
Date Posted: 01 Marzo 2010 at 1:21pm

La base de datos del ejemplo se llama mibd y la tabla se llama visitas. El campo es hits.


<%
'Hacemos la conexión a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb"
sql = "SELECT * FROM visitas"
RS.Open sql, oConn, 1,3
'Ahora nos fijamos si existe ya un registro.
'Si no existe lo creamos.
If RS.EOF then
  oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
  oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
'La siguiente linea imprime la cantidad de hits.
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
'cerramos y limpiamos los objetos.
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>




Replies:
Posted By: vickyvictoria
Date Posted: 07 Octubre 2011 at 2:37pm
gracias, muy util

-------------
Soy Vicky, y me interesa mucho buscar en internet sobre http://www.serviweb.es - Posicionamiento en internet



Print Page | Close Window