时间:2021-05-18
<%
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]
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
对于很多淘宝新人卖家和旧店新开业的卖家来说,因为不习惯淘宝的规则,不知道系统的运营方法,所以每天都有几个来访者,无论如何都不能提高来访者,感觉比登天难,下面的电
长沙网站建设谈谈优秀的网站设计应具备什么特点?简易而言,网站设计的目地是造成网站。而一个优秀的、特点的网站设计能充足吸引住来访者的专注力,让来访者造成视觉效
很多店铺在开业时,经常遇到淘宝来访者突然减少的情况,但很少有卖方分析原因。大多数没有违反,也没有被降级。淘宝来访者下降的原因是什么?淘宝客户下降的原因是什么?1
简易而言,网站设计的目地是造成网站。而一个出色的、特点的网站设计能充足吸引住来访者的专注力,让来访者造成视觉效果上的满足感,进而提升网站浏览总流量。那让小编
PV是pageview的简写。PV是指页面刷新的次数,每一次页面刷新,就算做一次pv流量。PV高一定代表来访者多吗?解答:不一定如此,一般来说,PV与来访者的数