Asp - Simple contador de visitas

Códigos Asp

Esto cuenta los usuarios que ingresan a la página. Cuenta cada visita de la página. Cada Refresh se sumara al registro. Asi que no serán usuarios reales, sino que cada vez que se llame a esta página se sumará uno. Para hacer un contador de usuarios reales deberian crear una Session y cuando esté en valor true, no sumar otro hit (visita) a nuestra BD.

Tutores.org

Inicio > Asp

Visitas: 18,552 -

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
'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:d.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 "Esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
'cerramos
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Simple contador de visitas" href="http://www.tutores.org/codigo/317/" target="_blank">Simple contador de visitas</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.