如何显示最后十名来访者？

<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN  DIM dummy( 10, 3 )  Application( "lastTen" ) = dummy

'创建或者取得最近10个Application数组.END IF  lastTen = Application( "lastTen" )Application.UnLockIF lastTen( 9, 0 ) <> "" THENFOR 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 )

'在数组里向下移动每位来访者.NEXTEND IFFOR 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 IFNEXTApplication.LockApplication( "lastTen" ) = lastTenApplication.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 IFNEXT%></table>

[1]