Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 contador de visitas
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Ion
Starting Member


33 Posts
Mensajes - 26 Nov 2004 :  21:22:33  Ver Perfil  Enviar Email
Hola a todos. Soy nuevo en asp. He creado un contador de visitas como el ejemplo que aparece en asptutor. Al principio parece que funciona bien pero al de un tiempo empieza como que soy el primero.
Que puede pasar? Si hay alguien que me pueda ayudar?
lo que he puesto en global.asa es:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("visitas")=0
application("fecha")=date()
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
application.lock
application("visitas")=application("visitas")+1
application.unlock
End Sub
Sub Session_OnEnd
End Sub
</SCRIPT>

y luego en mi página:

Eres el visitante nº :<%=application("visitas")%> desde el dia <%=application("fecha")%>

Muchas Gracias

Ion

ingechava
Starting Member


17 Posts
Posted - 13 May 2005 :  17:34:00  Ver perfil  Enviar e-mail
yo tambien utilice ese codigo. lo que pasa es que ese contador se inicializa diario.

Inicio Pagina

ingechava
Starting Member


17 Posts
Posted - 13 May 2005 :  17:36:08  Ver perfil  Enviar e-mail
este contador se almacena en una base. Espero te funcione.
<%
' tabla: contador
' campos: visitas y valor
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = miconexionalaBD
Recordset1.Source = "SELECT visitas, valor FROM contador"
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()

Recordset1.Fields.Item("valor").Value = Recordset1.Fields.Item("valor").Value + 1
Recordset1.Update

Recordset1.Close()
Set Recordset1 = Nothing
%>

Inicio Pagina

gorditorake
Starting Member

Espa�a
13 Posts
Posted - 17 May 2005 :  08:38:10  Ver perfil  Enviar e-mail
Este contador me va bien a mi.Espero que a ti tambien.
tabla:Contador
campos:Numero

<%
set conrs=cn.Execute("Select * from Contador")
int cont

conrs.movefirst

cn.execute "Update Contador Set Numero=Numero+1"
response.write("<h3><center><font color=red> SU VISITA ES LA NUMERO</font></h3></center>" & "<font color=red>" & "&nbsp;&nbsp;&nbsp;" & conrs( "Numero" ))
cn.Close
%>

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar