如何顯示最后十名來(lái)訪者？
<%
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
' 創(chuàng)建或者取得最近10個(gè)Application數(shù)組.
END IF
lastTen = Application( "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 )
' 在數(shù)組里向下移動(dòng)每位來(lái)訪者.
NEXT
END IF
FOR i = 0 TO 9
' 添加新數(shù)組.
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
%>
<center>
<table bgcolor="#ccccc" cellspacing=0 cellpadding=3 border=1>
<tr bgcolor="lightyellow">
<td>來(lái)訪者</td>
<td>IP地址</td>
<td>瀏覽器</td>
<td>訪問(wèn)時(shí)間</td>
' 顯示最后10名來(lái)訪者.
</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 IF
NEXT
%>
</table>
[1]
相關(guān)文章
如何用表單的方式推送請(qǐng)求的信息？...2006-11-11
如何獲知文件最后的修改日期和時(shí)間？...2006-11-11
如何決定是否將登錄內(nèi)容保存到Cookie里？...2006-11-11
如何遍歷目錄及目錄下的文件？...2006-11-11
如何實(shí)現(xiàn)人民幣的大寫轉(zhuǎn)換？
如何實(shí)現(xiàn)人民幣的大寫轉(zhuǎn)換？...2006-11-11
如何把Recordset轉(zhuǎn)換成彩色的XML文件
如何把Recordset轉(zhuǎn)換成彩色的XML文件...2006-11-11
如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示？
如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示？...2006-11-11
怎樣給文件加密最安全？...2006-11-11
如何使用表單發(fā)送電子郵件？...2006-11-11
圖像圖表...2006-11-11