<!--#include file="cn.asp"-->
<%if session("admin")=""  or request.cookies("timesshop")("admin")="" then 
response.Write "<script language='javascript'>alert('請先登錄！');window.location.replace('login.asp');</script>"
response.End
end if
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>

<table width="650" border="0" cellpadding="0" cellspacing="0" align="center">
  <!--DWLayoutTable-->
  <tr>
    <td width="500" height="68" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="500" height="13" valign="top"><table width="650" border="0" cellpadding="0" cellspacing="0" bgcolor="#B1C3D9">
            <tr>
              <td width="97" height="20" align="center">用戶名</td>
              <td width="79" align="center">真實姓名</td>
              <td width="54" align="center">性別</td>
              <td width="104" align="center">注冊時間</td>
              <td width="76" align="center">登陸次數</td>
              <td width="90" align="center">詳細信息</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="21" valign="top"><table width="650" border="0" cellpadding="0" cellspacing="1" bgcolor="#BBCEFD">
            <%set rs=server.CreateObject("adodb.recordset")
sql="select * from users order by id desc"
rs.open sql,cn,1,1
if rs.eof then
 response.Write "<script language='javascript'>alert('無記錄！');window.location.replace('index.asp');</script>"
 end if
'分頁
jil=rs.recordcount
page=cint(request.QueryString("page"))
rs.pagesize=30
tpage=cint(rs.pagecount)
 if page="" or page=0 then 
		 page=1
		 end if
		  if  page>rs.pagecount then 
		 page=rs.pagecount
		 end if
 rs.Absolutepage=page
 
do while not rs.eof
%>
            <tr>
              <td width="97" height="20" align="center" bgcolor="#FFFFFF"><%=rs("uname")%></td>
              <td width="79" align="center" bgcolor="#FFFFFF"><%=rs("tname")%></td>
              <td width="54" align="center" bgcolor="#FFFFFF"><%=rs("sex")%></td>
              <td width="104" align="center" bgcolor="#FFFFFF"><%=left(rs("addtime"),10)%></td>
              <td width="76" align="center" bgcolor="#FFFFFF"><%=rs("times")%></td>
              <td width="90" align="center" bgcolor="#FFFFFF"><a href="userxx.asp?id=<%=rs("id")%>&amp;name=<%=rs("uname")%>">詳細信息</a></td>
            </tr>
            <%
		  rs.movenext
		  loop
		  %>
        </table></td>
      </tr>
      <tr>
        <td height="27" align="center" valign="bottom">共<%=jil%>條記錄 &nbsp;每頁顯30示條&nbsp;共<%=tpage%>頁 &nbsp;第<%=page%>頁 &nbsp;<a href="alluser.asp?page=1">第一頁</a> &nbsp;<a href="alluser.asp?page=<%=page+1%>">下一頁</a> &nbsp;<a href="alluser.asp?page=<%=page-1%>">上一頁</a>&nbsp;<a href="alluser.asp?page=<%=tpage%>">最后一頁</a></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="300">&nbsp;</td>
  </tr>
</table>