如何显示最后十名来访者？

<%
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>

[1]

赞 (0)

相关推荐

  • 如何显示最后十名来访者？

    <%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN  DIM dummy( 10, 3 )  Application( "lastTen" ) = dummy ' 创建或者取得最近10个Application数组.END IF  lastTen = Application( "lastTen" )Application.UnLock IF lastTen( 9,

  • 挖掘谁在偷窥你的电脑？

    当你发现硬盘灯突然闪烁不停时,你是否想知道是谁访问了你的电脑?他们又在你的电脑里干什么?让我们一起揭开来访者头上的神秘面纱. 一.在Windows 98/Me中 使用Windows 98/Me提供的"网络监视器"可以查看目前谁在使用你的计算机上的资源.可以添加共享文件夹,也可以断开用户与你的计算机或指定的文件的连接. 安装 打开"控制面板",选择"添加删除程序→Windows安装程序"标签,在"组件"列表框中选中"系

  • php 向访客和爬虫显示不同的内容

    听说本方法会触犯搜索引擎的一些操作原则, 有可能被被各搜索引擎处罚, 甚至删除网站. 所以我刚刚已经撤下这样的处理, 直到确定其不属于作弊. 有魄力的朋友可以继续使用, 但后果自负. 本博客的首页和存档页面以列表的形式显示文章, 在访客点击展开文章时才加载文章的内容. 因为文章的内容部分包含了大量的文字和图片, 需要大量的加载时间和流量. 尽快地向访客展示网页可以挽留大量的来访者. 而对于手机用户来说, 加载时间和流量则更为重要. 一般来说, 网站的首页是搜索引擎访问最多的页面, 应该尽可能的向

  • 如何按时间显示最新标志

    <%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中时间,如相差小于1,即显示图片new.gif%><img src="images/new.gif"><%end if%>

  • Flex播放器(实现播放、缓冲进度条和音频曲线显示)

    Flex播放器(实现播放、缓冲进度条和音频曲线显示)

    一时兴起,玩起了Flex,本来还想要做个Flex博客,不过目前还只能在里面树个公告...没办法做完啊,河蟹的个杯具的!Flex布局不像是CSS,精美Flash动画不是拖一个两个控件就能做出来滴,而是一笔一条线绘制出来滴!这些我都还不熟悉,所有折腾快一个星期了,每天都是搞到头大才睡觉,今天终于能出一个简单的播放器. 一直很喜欢音乐这个东西,喜欢Jay,更喜欢他的歌,也很崇拜小猪,他的一段灰色空间曾让我激流奋进,想过自己能做个播客放自己喜欢听的歌曲,出于自恋那样会更有一点点满足感.呃~走神了,前二天

  • access中显示MSysObjects系统表的设置方法

    access中显示MSysObjects系统表的设置方法

    默认access的系统表MSysObjects等是不显示的,需要手动设置access显示MSysObjects等系统表. 设置方法如下: 1. 打开Access 2. 点击"工具"菜单,选择"选项" 3. 在"视图"页上,将"系统对象"勾上 4. 点击"确定"按钮保存设置 5. 点击"工具"菜单,选择"安全"中的"用户与组权限" 6. 选择&quo

  • extjs_02_grid显示本地数据、显示跨域数据

    extjs_02_grid显示本地数据、显示跨域数据

    1.显示表格 http://img.blog.csdn.net/20140622133941015?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvYWRhbV93enM=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast <%@ page language="java" import="java.util.*" pag

  • ExtJS4如何自动生成控制grid的列显示、隐藏的checkbox

    ExtJS4如何自动生成控制grid的列显示、隐藏的checkbox

    由于某种原因,需要做一个控制grid列显示的checkboxgroup,虽然EXTJS4中的gridpanel自带列表可以来控制列的显示隐藏,但是有这样的需求(需要一目了然) 下面先上图 接着前几天做的工作,今天上午完成了定制字段,思路是在上面的普通查询或者高级查询结束以后,获得了列的fields,columns等信息,然后交给一个处理函数 makeCustomMadePanel,该函数用来生成checkboxgroup,生成的时候给它加上一个事件,原本以为checkbox会有类似于check的

  • vueJS简单的点击显示与隐藏的效果【实现代码】

    目前前端框架太多,接触过angular.ember,现在开始倒腾vue 此处用到v-if.v-else.v-show,v-if或让元素不在DOM上,v-show只是改变display:block属性,感觉v-if好 感觉跟适合. <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>v-if.v-else.v-show&l

  • AngularJS实现DOM元素的显示与隐藏功能

    本文实例讲述了AngularJS实现DOM元素的显示与隐藏功能.分享给大家供大家参考,具体如下: DOM元素的显示与隐藏 ,是前端开发中常常会用到的功能,AngularJS中是使用 ng-hide/ng-show 两个属性来实现的其实我们只要使用其中的一个属性即可实现所有功能他们的取值为 boolean. [HTML代码] <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <m

随机推荐