<!--#include file="menu.asp"-->
<!--#include file="tj_ip.asp"-->
<%
	action=request("day")
	if action="" then action=date()
%>
<table width="100%" border="1" cellPadding=0 cellSpacing=0 bordercolor="#E7EFFF" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bgcolor="#E7EFFF">
<tr class=backs><td height=26 bgcolor="#E7EFFF" class=td>&nbsp;&nbsp;访问明细统计（日期：<%=action%>）</td>
</tr>
<tr><td bgcolor="#FFFFFF">
<table border="1" width="100%" cellSpacing=0 cellPadding=3 bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF">
  <tr>
    <td bgcolor="#E7EFFF">时间</td>
    <td bgcolor="#E7EFFF">IP</td>
    <td bgcolor="#E7EFFF">地区</td>
    <td bgcolor="#E7EFFF">浏览器</td>
    <td bgcolor="#E7EFFF">操作系统</td>
    <td bgcolor="#E7EFFF">来源</td>
  </tr>

<%
	set rs=Server.CreateObject("ADODB.recordset")
	sql="select * from count_shop where day=#"&action&"# order by times desc"
	rs.cursorlocation = 3     '游标
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then
%>
  <tr>
    <td colspan=6>暂时没有统计数据</td>
  </tr>
<%
	else
		pages = 20			'每页记录数
		rs.pageSize = pages
		allPages = rs.pageCount		'计算一共能分多少页
		page = Request("page")
		'if语句属于基本的排错处理
		if isEmpty(page) or clng(page) < 1 then
			page = 1
			elseif clng(page) >= allPages then
			page = allPages 
		end if
		rs.AbsolutePage = page
		
		do while not rs.eof and pages>0
		info=rs("info")
		
		if instr(info,"MSIE 6.0b") THEN
			browser= "IE 6.0b"
		elseif instr(info,"MSIE 5.5") THEN
			browser= "IE 5.5"
		elseif instr(info,"NetCaptor 6.5.0") THEN
			browser= "NetC 6.5.0"
		elseif instr(info,"NetCaptor 6.5.PB1") THEN
			browser= "NetC 6.5.PB1"
		elseif instr(info,"MSIE 5.01") THEN
			browser= "IE 5.01"
		elseif instr(info,"MSIE 6.0") then
			browser= "IE 6.0"
		elseif instr(info,"MSIE 4.0") THEN
			browser= "IE 4.01"
		elseif instr(info,"MyIe 3.1") THEN
			browser= "NetC 6.5.0RC1"
		elseif instr(info,"MSIE 5.0") then
			browser="IE 5.0"
		elseif instr(info,"MSIE 7") then
			browser="IE 7.0"
		else
			browser="未知"
		end if
		if instr(info,"Tel") then
			system="Telport"
		elseif instr(info,"98") then
			system="Win98"
		elseif instr(info,"95") then
			system="Win95"
		elseif instr(info,"NT 5.1") then
			system="WinXP"
		elseif instr(info,"NT 4") then
			system="WinNT"
		elseif instr(info,"webzip") then
			system="webzip"
		elseif instr(info,"NT 5") then
			system="Win2000"
		else
			system="未知"
		end if
%>
  <tr>
	<td><%=rs("times")%></td>
	<td>
	<%=rs("ip")%> 
	</td>
	<td><%=address(rs("ip"))%></td>
	<td><%=browser%></td>
	<td><%=system%></td>
	<td>
<%
	if rs("where")<>"" then
		response.write "<a href='"&rs("where")&"' alt="&rs("where")&" target='_blank'>"&lleft(rs("where"),30)&" ...</span>"
	else
		response.write "从收藏夹打开或直接输入网址"
	end if
%>
	</td>
  </tr>
<%
	pages = pages - 1
	rs.movenext
	if rs.eof then exit do
		loop
	end if
	rs.close
	set rs=nothing
	set rs1=nothing
	conn.close
	set conn=nothing
%>
</table>
<%
call listpages()
%>
</td>
</tr>
</table>
</body>
</html>
<%
'分页
	sub listPages() 
	if allpages <= 1 then exit sub 
	if page = 1 then
		response.write "<font color=darkgray>首页 前页</font>"
	else
		response.write "<a href="&request.ServerVariables("script_name")&"?day="&action&"&page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&page-1&">前页</a>"
	end if
	if page = allpages then
		response.write "<font color=darkgray> 下页 末页</font>"
	else
		response.write " <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?day="&action&"&page="&allpages&">末页</a>"
	end if
	response.write " 第"&page&"页 共"&allpages&"页"
	end sub
%>
