如何顯示最后十名來訪者？

    <%
    Application.Lock
    IF NOT isArray( Application( "lastTen" ) ) THEN
    DIM dummy( 10, 3 )
    Application( "lastTen" ) = dummy
    ' 創(chuàng)建或者取得最近10個Application數(shù)組.
    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 )
    ' 在數(shù)組里向下移動每位來訪者.
    NEXT
    END IF
    FOR i = 0 TO 9
    ' 添加新數(shù)組.
    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>