Está usted en Indice > Construcción > Lenguajes > ASP > Códigos ya Escritos > WebTaller - Contador de visitas únicas
Construcción
Maletín
Utilidades
Cursos
Promoción
Rentabilidad
Zona Novatos
Foros
Acceso a tu cuenta

Contador de visitas únicas

Contador de visitas únicas. Basado en el de CoRSA

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

Para utilizar este contador necesitas tener acceso al archivo global.asa y poner lo siguiente:

<script language="vbscript" runat="server">
sub Session_OnStart
'''Contador

'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:trabajodbmibd.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

end sub
</script>



Usuarios que han visto este tema también han visto...

- Genera una lista de mp3's a partir de un directorio con mp3's y además saca la información del tag ID3v1 de cada mp3
- Sencillo diseño y facilidad de instalación para este blog que utiliza ASP con una bd access.
- Login con usuario y contraseña desde una BD de Access
- Imprime los valores que el usuario introduce en el formulario
- Active Users Counter en ASP


Versión imprimible - Versión imprimible de este documento
Enviar e-mail - Enviar por e-mail este documento
Publicidad






Cursos de Community Manager

Información legal | Política de Privacidad | Contacte con nosotros

Otro proyecto de Factoría de Internet. Copyright© 2003-2011 Factoría de Internet S.L.. Todos los derechos reservados.


Página generada el 23-05-2012 a las 01:12:42