<%
Application.Lock
IF NOT isArray( Application( “lastTen” ) ) THEN
ÃÂ DIM dummy( 10, 3 )
ÃÂ Application( “lastTen” ) = dummyxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ Ã¥ÂÂ建æÂÂèÂÂ
Ã¥ÂÂå¾ÂæÂÂè¿Â10个Applicationæ°ç»Â.
END IF
ÃÂ lastTen = Application( “lastTen” )
Application.UnLock
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
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
%>
<center>
<table bgcolor=”#ccccc” cellspacing=0 cellpadding=3 border=1>
<tr bgcolor=”lightyellow”>
à<td>æ¥访èÂÂ
</td>
à<td>IPå°åÂÂ</td>
à<td>æµÂè§Âå¨</td>
à<td>访é®æ¶é´</td>
‘ æ¾示æÂÂÃ¥ÂÂ10Ã¥ÂÂæ¥访èÂÂ
.
</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>
[1]