显示最后十个来访者的源程序（转）
' Either Create or Get the lastTen Application Array
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
END IF
lastTen = Application( "lastTen" )
Application.UnLock
' Move Every Visitor Down in the Array
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
' Add New Entry
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
' Display Last Ten Visitors
%>
| Visitor | IP Address | Browser | Visit Time |
| <%=i + 1%> | <%=lastTen( i, 0 )%> | <%=lastTen( i, 1 )%> | <%=lastTen( i, 2 )%> |
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124717/ ，如需转载，请注明出处，否则将追究法律责任。
