源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2022-03-18 13:51 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何显示最后十名来访者?
<% Application.Lock IF NOT isArray( Application( "lastTen" ) ) THEN   DIM dummy( 10, 3 )   Application( "lastTen" ) = dummy

' 创建或者取得最近10Application数组. 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)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部