当前位置：首页 > 资讯 > 技术文档

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

时间：2022-03-18 13:51 编辑：来源：阅读：
扫一扫，手机访问

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

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

[b][1][/b]

全部评论(0)

上一篇：如何刪除客户端的Cookies？
下一篇：如何实现网上考试？

资讯排行榜
更多>>