Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Formato de fechas en SQL Server

Codigo de un Libro de visitas(III)

El Objeto TextStream

Un calendario en ASP

Codigo de un Libro de visitas(II)

Ejemplo de Calculo de numeros primos

Tutorial de ASPEmail (Ampliado)

Como mostrar la IP, el navegador y el S.O.

Diferentes formas de establecer la conexión con una base de datos

Restriccion de acceso a paginas


Enlaces recomendados

   

Tutorial ASP

Mostrar datos de las ultimas visitas a una página
Este articulo ha sido leído 48.035 veces

Mostrando datos de las ultimas visitas a una página

Colaboración enviada por Ángel Martín

Un curioso ejemplo que almacena en un array y nos muestra datos de las ultimas diez visitas a una pagina.

ultimasdiezvisitas.asp

<!-- Mostrar las últimos 10 visitantes -->
<%
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
END IF
lastTen = Application( "lastTen" )
Application.UnLock

' Mover cada visita abajo en el Array
IF lastTen( 9, 0 ) <> "" THEN
FOR i = 0 TO 9
lastTen( i, 0 ) = lastTen( i + 1, 0 )
lastTen( i, 1 ) = lastTen( i + 1, 1 )
lastTen( i, 2 ) = lastTen( i + 1, 2 )
NEXT
END IF

' Sumar una nueva entrada
FOR i = 0 TO 9
IF lastTen( i, 0 ) = "" THEN
lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )
lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )
lastTen( i, 2 ) = NOW()
EXIT FOR
END IF
NEXT

Application.Lock
Application( "lastTen" ) = lastTen
Application.UnLock 

%>

<p align="center">Ultimas 10 visitas a esta pagina&nbsp;
<p>

<center>
</p>
<table bgcolor="#ccccc" cellspacing=0 cellpadding=3 border=1>
<tr bgcolor="lightyellow">
<td>Visitas</td>
<td>Dirección IP</td>
<td>Browser</td>
<td>Hora de Visita</td>
</tr>
<% 
FOR i = 0 TO 9 
IF lastTen( i, 0 ) <> "" THEN
%>

<tr>
<td><small><%=i + 1%></small></td>
<td><small><%=lastTen( i, 0 )%></small></td>
<td><small><%=lastTen( i, 1 )%></small></td>
<td><small><%=lastTen( i, 2 )%></small></td>
</tr>
<%
END IF
NEXT
%>
</table>

 

Ver el ejemplo funcionando

 


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
24 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

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