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

 

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

ultimasdiezvisitas.asp



<%
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

%>

Ultimas 10 visitas a esta pagina 

<%
FOR i = 0 TO 9
IF lastTen( i, 0 ) <> «» THEN
%>

<%
END IF
NEXT
%>

Visitas Dirección IP Browser Hora de Visita
<%=i + 1%> <%=lastTen( i, 0 )%> <%=lastTen( i, 1 )%> <%=lastTen( i, 2 )%>

%>