usermanage.asp

自做的购物网站

<script>
  function user(id) { window.open("viewuser.asp?user_id="+id,"","height=450,width=700,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");} 
</script>
<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<!--#include file="css.asp"-->
<TABLE cellSpacing=1 cellPadding=0 width="560" align=center bgColor=#999999 
border=0>
  <TBODY> 
  <TR> 
      <TD width="735" background=images/pics/tile_back.gif id=maintitleback> <TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=8 src="images/pics/nav_m.gif" width=8 
            border=0></TD>
              <TD width="100%" height="30" valign="bottom" id=maintitle>用户管理 -&gt;<b>用户管理</b></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD id=mainbg> <table cellspacing=1 cellpadding=4 width="100%" border=0 height="156">
          <tbody>
            <tr> 
              <td width="28" height="30" nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">ID</font></div></td>
              <td height="30" nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">用户名</font></div></td>
              <td height="30" nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">E-mail</font></div></td>
              <td height="30" align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">邮政编码</font></div></td>
              <td align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">地址</font></div></td>
              <td height="30" align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">注册时间</font></div></td>
              <td align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">类型</font></div></td>
              <td height="30" align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">删除</font></div></td>
              <td align=middle nowrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">VIP</font></div></td>
            </tr>
            <tr> 
              <%
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
sql="select * from member order by user_id desc"
rs.open sql,conn,3,3
if rs.eof then
%>
              <td height="30" colspan="9" bgcolor=#ffffff>暂且没有任何用户注册</td>
            </tr>
            <%else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
dim user_id(),user_name(),user_mail(),user_postcode(),user_adds(),user_regtime(),user_type()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve user_id(i),user_name(i),user_mail(i),user_postcode(i),user_regtime(i),user_type(i),user_adds(i)
user_id(i)=rs("user_id")
user_name(i)=rs("user_name")
user_mail(i)=rs("user_mail")
user_postcode(i)=rs("user_postcode")
user_regtime(i)=rs("user_regtime")
user_type(i)=rs("user_type")
user_adds(i)=rs("user_adds")
rs.movenext
loop
rs.close
for i=1 to ubound(user_id)
%>
            <tr> 
              <td bgcolor=#ffffff height="30"><div align="center"><%=user_id(i)%></div>
                <div align="center"></div></td>
              <td width=65 height="30" align=middle bgcolor=#ffffff><div align="center"><font color=#333333><%=user_name(i)%> 
                  </font></div></td>
              <td width=86 height="30" align=middle bgcolor=#ffffff><div align="center"><%=user_mail(i)%></div></td>
              <td width=64 height="30" align=middle bgcolor=#ffffff> <div align="center"><font color="#FF0000">&nbsp;<%=user_postcode(i)%></font></div></td>
              <td width=159 height="30" align=middle bgcolor=#ffffff><div align="center"><%=user_adds(i)%></div></td>
              <td width=90 height="30" bgcolor=#ffffff><div align="center"><%=user_regtime(i)%></div></td>
              <td width=34 height="30" bgcolor=#ffffff><div align="center"><%=user_type(i)%></div></td>
              <td width=45 height="30" align=middle bgcolor=#ffffff> <div align="center"><a href="viewuser.asp?user_id=<%=user_id(i)%>&action=deluser"><img src="images/pics/delete.gif" width="45" height="20" border="0"></a></div></td>
              <td width=45 height="30" align=middle bgcolor=#ffffff><div align="center"><a href="sheng.asp?user_id=<%=user_id(i)%>&action=up"><img src="images/pics/up.gif" width="45" height="20" border="0"></a></div></td>
            </tr>
            <%next
%>
            <tr> 
              <td height="30" colspan="9" bgcolor=#ffffff><div align="center"><img src="../IMAGES/pics/seperator.gif" width="359" height="1"></div></td>
            </tr>
            <tr> 
              <td id=mainfoot 
colspan=9 height="30"> <div align="center">共<font color=red><%=totalpage%></font>页 
                  第<%=page%>页 <font color=666666> 
                  <%if page-1>0 then%>
                  <a href="usermanage.asp?page=<%=page-1%>">上一页</a> 
                  <%else%>
                  <font color=666666>上一页</font> 
                  <%end if%>
                  　 
                  <%if page+1<=totalpage then%>
                  <a href="usermanage.asp?page=<%=page+1%>">下一页</a> 
                  <%else%>
                  <font color=666666>下一页</font> 
                  <%end if%>
                  </font> </div></td>
            </tr>
          </tbody>
        </table>
		<%end if%>
		</TD>
    </TR>
  </TBODY>
</TABLE>