如何显示最后十名来访者
2012-12-06 09:27
260 查看
' 添加新数组.
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>来访者</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 IF
NEXT
%>
</table>
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>来访者</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 IF
NEXT
%>
</table>
相关文章推荐
- 如何显示最后十名来访者?
- EditControl控件如何总是显示到最后一行
- Linux - Centos 文件查看 如何显示最后几行 ,某几行
- XP系统,CMD窗口总是只显示最后一屏的信息,如何能让全部信息都显示出来呢??
- 如何将Textctrl的滚动条保持在最后一行并且更新显示
- 向RichTextBox控件不停的追加数据时,如何把光标的焦点始终显示到最后
- MFC控件ListBox如何自动滚动,显示最后一行
- 如何使用CSS 让Table的最后一列的右边框不显示
- UITextView如何把文字显示到最后一行
- 向RichTextBox控件不停的AppendText数据时,如何把光标的焦点始终显示到最后
- ListBox 光标如何定位在最后一行 显示
- asp累加如何将总数量、总金额显示在某日最后一条数据的备注栏?
- EditControl控件如何总是显示到最后一行
- [VB.NET]如何在程序启动后让视图正好显示datagridview的最后一行?
- 对于长时间装载的ASP.NET页面如何在客户端浏览器中显示进度?
- 从servlet中获取的ResultSet结果集如何传递到jsp页面并显示
- 一对多 如何使多的一端信息在页面上同一行中友好显示
- C# 如何使自己的程序在“显示桌面”时不最小化
- ReportView 如何实现按页码控制报表对象的显示属性