<!--#include file="../include/nowshop.asp"-->
<!--#include file="checkadmin.asp"-->
<!--#include file="tj.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
     <%
sub checkmanage(str)
Set mrs = conn.Execute("select * from manage where username='"&request.cookies("buyok")("admin")&"'")
if not (mrs.bof and mrs.eof) then
manage=mrs("manage")
if instr(manage,str)<=0 then
response.write "<script language='javascript'>"
response.write "alert('警告：您没有此项操作的权限！');"
response.write "location.href='quit.asp';"
response.write "</script>"
response.end
else
session("buyok_admin_login")=0
end if
else 
response.write "<script language='javascript'>"
response.write "alert('没有登陆，不能执行此操作！');"
response.write "location.href='quit.asp';"
response.write "</script>"
response.end
end if
set mrs=nothing
end sub
%>
<%call checkmanage("11")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../images/css.css" type=text/css rel=stylesheet>
<LINK href="../list/newhead.css" type=text/css rel=stylesheet>
</head>
<BODY bgcolor="#D9EAFC">

<%
action=request("day")
if action="" then action=date()
%>
		  <table height="5"><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=95% border=0 style="BORDER-RIGHT: #b1bfee 1px solid; BORDER-TOP: #b1bfee 1px solid; BORDER-LEFT: #b1bfee 1px solid; BORDER-BOTTOM: #b1bfee 1px solid" 
>
  <TBODY>
    <TR> 
      <TD width="90%" bgColor=#f4f5fd><font color="#000000">　<B><font color="#FF0000">访问明细统计（日期：<%=action%>）</font></B></font></TD>
      <TD bgColor=#f4f5fd height=30><font color="#000000">&nbsp;<a href="http://www.nowshop.com.cn/help/index.asp?boardid=2&page=1" target="_blank">设置帮助</a></font></TD>
    </TR>
  </TBODY>
</TABLE>		  <table height="5"><tr><td></td></tr></table>

<table width="95%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#b1bfee">
  <tr bgcolor="#FFFFFF">
    <td> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
        <tr bgcolor="#FFFFFF"> 
          <td height="30">时间</td>
          <td>IP</td>
          <td>地区</td>
          <td>浏览器</td>
          <td>操作系统</td>
          <td>来源</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 bgcolor="#FFFFFF"> 
          <td height="30" colspan=3>暂时没有统计数据</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 bgcolor="#FFFFFF"> 
          <td height="30"><%=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='../gotourl.asp?"&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>
  <tr bgcolor="#FFFFFF">
    <td height="30"> <input type="button" onClick="javascript:location.href='javascript:history.go(-1)';" value="返回上一页"> 
    </td>
  </tr>
</table>
<table width="95%" border="0">
  <tr> 
    <td height="60"><font color="#FF0000">我们将为购买正版NowShop商城系统者免费设计全套广告图片；提供免费安装调试；免费送1%网银接口、支付宝接口；免费提供技术支持；免费提供系统升级；免费提供系统模板更换；免费代办网站ICP备案；使您的网店更具吸引力！</font></td>
  </tr>
  <tr> 
    <td><p>购买咨询或技术支持，请在周一至周五8：00-18：00间联系<br>
        Email / MSN：shop@nowshop.com.cn<br>
        电话：0551-5123308&nbsp;&nbsp;13965090551<br>
        QQ：2055008<br>
        网站：<a href="http://www.nowshop.com.cn" target="_blank">http://www.nowshop.com.cn</a><br>
        演示：<a href="http://ys.nowshop.com.cn" target="_blank">http://ys.nowshop.com.cn</a><br>
      </p>
      <p>Powerd By：NowShop商城系统 V3.5</p></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
%>
