Mostrar datos de las ultimas visitas a una página


http://www.asptutor.com

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