Vida Una
Chat
Noticias

  Ayuda Ayuda  Buscar en el foro   Eventos   Regístrese Regístrese  Identificarse Identificarse


Contador de Visitas

 Responder Responder
Nombre de usuario
Programador Ver Opciones
Expert@
Expert@
Avatar

Ingresó: 09 Mayo 2009
Lugar: San Pedro Alc.
Estado: Desconectado
Puntos: 54
Opciones de Mensaje Opciones de Mensaje   Me gusta  (0) Me gusta (0)   Oir mensaje Oir  Citar Programador Citar  ResponderResponder Enlace directo a este mensaje Mensaje: Contador de Visitas
    Enviado: 01 Marzo 2010 a las 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
%>

Subir
Publicidad


Subir
vickyvictoria Ver Opciones
Novat@
Novat@


Ingresó: 07 Octubre 2011
Estado: Desconectado
Puntos: 1
Opciones de Mensaje Opciones de Mensaje   Me gusta  (0) Me gusta (0)   Oir mensaje Oir  Citar vickyvictoria Citar  ResponderResponder Enlace directo a este mensaje Enviado: 07 Octubre 2011 a las 2:37pm
gracias, muy util
Soy Vicky, y me interesa mucho buscar en internet sobre http://www.serviweb.es - Posicionamiento en internet
Subir
 Responder Responder
  Compartir Mensaje      

Ir al Foro Permisos del Foro Ver Opciones



Esta págna fue generada en 0,139 segundos.