<%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]