<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%If SysCode="" Then Response.End%>

<%
Myarray=Split(Application("CFCountLy_"&UserName),"|")


%>

<table class="tb_1">
<tr class="tr_1">
<td colspan="8" >最新访问记录</td>
</tr>
<tr class="tr_2"> 
<td class="td_nowrap">IP</td>
<td class="td_nowrap">PV数量</td>
<td class="td_nowrap">屏幕分辨率</td>
<td class="td_nowrap">屏幕色彩</td>
<td class="td_nowrap">操作系统</td>
<td class="td_nowrap">浏览器</td>
<td class="td_nowrap">开始访问时间</td>
<td class="td_nowrap">最后访问时间</td>
</tr>
<%For I=Ubound(Myarray)-1 To 0 Step -1%>
<%MyArray_2=Split(MyArray(I),"\")
  J=J+1%>
<tr class="tr_2"> 
<td><%If Ip=MyArray_2(0) Then Response.Write "<font color=ff0000>"%><%=Server.HtmlEncode(MyArray_2(0))%><%If Ip=MyArray_2(0) Then Response.Write "</font>"%><%If RsSet("IpArea")=-1 And J<=20 Then
Response.write "<br>"&GetIpArea(MyArray_2(0))
End If%></td>
<td><%=MyArray_2(7)%></td>
<td><%=MyArray_2(8)&"×"&MyArray_2(9)%></td>
<td><%=MyArray_2(10)%></td>
<td><%=MyArray_2(11)%></td>
<td><%=MyArray_2(12)%></td>
<td><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
<td><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
</tr>
<tr>
<td colspan="8">
来源：<%If MyArray_2(3)="" Then%>
直接从浏览器输入 
<%Else%><a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(3))%>" target='_blank'><%=MyArray_2(3)%></a>
<%End If%></td>
</tr>
<tr>
<td colspan="8" style="border-bottom: 1px dotted #FF0000;padding-left:6px;empty-cells:show;">
受访页：<%If MyArray_2(5)="" Then%>
<%=MyArray_2(12)%>-直接从浏览器输入 
<%Else%>
<a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(5))%>" target='_blank'><%=URLDecode(MyArray_2(13))%>&nbsp;&nbsp;<%=MyArray_2(5)%></a>
<%End If%></td>
</tr>

<tr>
<td colspan="8" style="border-bottom: 1px dotted #FF0000;padding-left:6px;empty-cells:show;">
参数：<%=MyArray_2(6)%></td>
</tr>

<tr> 
<td colspan="9" >(注：红色IP为你自己的IP) </td>
</tr>
<%
Next%>
</table>