<!--#include file="menu.asp"-->
<table width="100%" border="1" cellPadding=0 cellSpacing=0 bordercolor="#E7EFFF" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bgcolor="#E7EFFF">
<tr class=backs>
<td class=td height=27>&nbsp;&nbsp;网站访问数据日报表</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="1" width="100%" cellSpacing=0 cellPadding=3 bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF">
  <tr>
    <td width="33%" bgcolor="#E7EFFF">日期</td>
    <td width="33%" bgcolor="#E7EFFF">IP访问量</td>
    <td width="33%" bgcolor="#E7EFFF">当日明细</td>
  </tr>

<%
set rs=Server.CreateObject("ADODB.recordset")
sql="select count(*) as temp, day from count_shop group by day order by day desc"
rs.cursorlocation = 3     '游标
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
%>
  <tr>
    <td colspan=3>暂时没有统计数据</td>
  </tr>
<%
else


pages = 31			'每页记录数
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
%>

  <tr>
    <td><%=rs("day")%></td><td><%=rs("temp")%></td><td><a href="more.asp?day=<%=rs("day")%>">查看当日明细</a></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")&"?page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?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")&"?page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页"
end sub
%>
