asp如何显示最后十名来访者信息?
发布时间:2010-06-09 18:45:00
如何显示最后十名来访者?
代码和说明见下:
<%
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
' 创建或者取得最近10个Application数组
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 )
' 在数组里向下移动每位来访者
NEXT
END IF
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
%>
<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>
猜你喜欢
- 今天老肥让我试试百度知道的新功能:插入地图。该功能需要登录才能操作,因此我意外的发现百度用户登录的弹出层变了。我很喜欢这个改进,利用TAB来
- 很多人在使用AJAX调用别人站点内容的时候,JS会提示"没有权限"错误,这是XMLHTTP组件的限制-安全起见禁止访问非
- 例如:我们在百度中搜索 词典网,则网址后面的参数就是http://www.baidu.com/s?cl=3&wd=%B4%CA%B5
- 鼠标经过超链时的提示图层源码运行代码框<script>var oPopup = window.createPopup();fun
- 开发web应用程序是一件非常辛苦的事情,你需要花大把大把的时间来做无数的事情。假如你不运用有条理的方法,尤其是在复杂的项目中,你会承受忽视项
- 那天突然的一个灵感,是针对防盗链的。正常上传的文件,若被人盗链则增加了自己服务器的负担,上次164.cc就因此被挂。然后想想对策,目前各类防
- 在自己的网站主页上增加社会化分享按钮,是有效提高自己网站流量的一种方法。今天我在无争围棋网上增加了社会化按钮,根据我个人的习惯,我选择了豆瓣
- 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001&quo
- 数据库的表Info,表部分结构:Info_Id  
- 下面是Sql Server 和 Access 操作数据库结构的常用Sql,如如何新建一个表,如何删除表,如何删除数据,插入数据等等..希望对
- 为什么是三谈为什么是三谈呢?一是因为这真的是一个被说烂的话题,二是因为太师傅在n年前就写过这篇再谈iframe自适应高度。之所以再提该问题,
- 问:怎样才能取得局域网中所有SQL Server的实例?答:请参考以下的具体步骤:SmoApplication.EnumAvailableS
- 不是炒冷饭,我添加了很多新的功能哦演示地址: xwinhtcdemo.htmCSS: global.cssHTC: xwin.htc特点:1
- 1、注册时验证数据库用户名是否存在。 2、输入密码时提示密码强度和验证2次密码输入是否一样。 3、注册时验证数据库联系邮箱是否存在。 4、注
- 现代浏览器可以基于RFC 2397标准使用base64把图片进行编码,然后输出类似data:image/png;base64,iVBORw0
- 本篇文章适合css新手学习,对于已经掌握了css的朋友们也可以通过本片文章来复习知识。作者通过实践,认为在有些情况下css的代码是可以更加简
- 数据库镜像是将数据库事务处理从一个数据库移动到不同环境中的另一个数据库中。镜像的拷贝是一个备用的拷贝,不能直接访问,它只用在错误恢复的情况下
- tips:如果根目录下有favicon.ico,可省去<link rel="shortcut icon" ...&
- 在今天网络开发方面,JavaScript起了很关键的作用;像jQuery, MooTools, Prototype等等JavaScript框
- 具体特征如下: 1、通过模板实现俄文正常。 2、通过后台数据库生成的静态俄文信息,后台显示正常, 前台乱码。 3、英文正常。 和该主题相关的