显示最后十个来访者的源程序（转）

' 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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124717/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124717/