直近の10人の訪問者を表示するには？

<%
/{br アプリケーション.ロック
IF NOT isArray( アプリケーション( "lastTen" ) ) THEN
  DIMダミー( 10, 3 )
  アプリケーション( "lastTen" ) = ダミー {未定義 {{o:p /o:p

' 作成または最新版の取得 10 個 {を使用します。 アプリケーション {を使用します。 配列 .
END IF
  lastTen = アプリケーション( "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 ) {{o:p /o:p

' 各ビジターが配列内で下に移動する .
NEXT
END IF
FOR i = 0 TO 9 {{o:p /o:p

' 新しい配列を追加する .
  IF lastTen( i, 0 ) = "" THEN
    lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )
      lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )
      lastTen( i, 2 ) = NOW()
    を終了します。
  END IF
次へ
アプリケーション.ロック
アプリケーション( "lastTen" ) = lastTen
アプリケーションのロック解除
%>