Vida Una Homepage
Forum Home Forum Home > Programación > Códigos ASP y ASP.NET
  New Posts New Posts RSS Feed - Contador de Visitas
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


Contador de Visitas

 Post Reply Post Reply
Author
Message
Programador View Drop Down
Expert@
Expert@
Avatar

Joined: 09 Mayo 2009
Location: San Pedro Alc.
Status: Offline
Points: 54
Post Options Post Options   Thanks (0) Thanks(0)   Quote Programador Quote  Post ReplyReply Direct Link To This Post Topic: Contador de Visitas
    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
%>

Back to Top
Sponsored Links


Back to Top
vickyvictoria View Drop Down
Novat@
Novat@


Joined: 07 Octubre 2011
Status: Offline
Points: 1
Post Options Post Options   Thanks (0) Thanks(0)   Quote vickyvictoria Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down



This page was generated in 1.125 seconds.