Detalhes sobre as últimas 10 visitas a um site

Neste artigo você verá
como ter os detalhes das 10 últimas visitas ao
site, como ip, browser e data/hora, de uma forma muito
simples. O script abaixo criará um array para
armazenar todas estas informações das
10 últimas visitas.
 
<!– Mostrar os 10
últimos 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 abaixo no 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

‘ Somar uma nova 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 

%>

‘ Mostrar as 10 últimas visitas
<center>
<table bgcolor="#ccccc" cellspacing=0 cellpadding=3
border=1>
<tr bgcolor="lightyellow">
<td>Visitas</td>
<td>Direção 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>