<!--#include file="../inc/admin_conn.asp"-->
<!--#include file="error.ini"-->
<!--#include file="Top.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<html><HEAD>
<TITLE></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
</HEAD>
<%
   Set rs=Server.CreateObject("Adodb.RecordSet")
   
   sql="select * from ylmv_admin order by id"
   
   rs.Open sql,conn,1,1
%>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<DIV align="center">
  

  <table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>  
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
    <tr bgcolor="#39867B" class="topbg">
      <td height="20" bgcolor="#009ACE"><div align="center" class="样式2"><strong>用户名</strong></div></td>
      <td bgcolor="#009ACE"><div align="center" class="样式2"><strong>密码</strong></div></td>
      <td bgcolor="#009ACE"><div align="center" class="样式2"><strong>权限</strong></div></td>
      <td bgcolor="#009ACE"><div align="center" class="样式2"><strong>操作</strong></div></td>
    </tr>
	<%do while not rs.EOF %>
    <form method="post" action="deladmin.asp" style="margin:0">
       <tr>
      <td width="24%"  class="tdbg"><div align="center" >
        <input type="text" name="manager" value="<%=rs("name")%>" size="12">
        <input type="hidden" name="id" value="<%=rs("id")%>" size="12">
      </div></td>
      <td width="28%" class="tdbg"><div align="center"><input name="newpin" size="12"></div></td>
      <td width="26%" class="tdbg"><div align="center">
        <select size="1" name="flag">
        <option <%if rs("flag")=3 then%> selected <%end if%> value="3">初级管理员
        </option>
        <option <%if rs("flag")=2 then%> selected <%end if%> value="2">高级管理员
        </option>
        <option <%if rs("flag")=1 then%> selected <%end if%> value="1">超级管理员
        </option>
        <option <%if rs("flag")=4 then%> selected <%end if%> value="4">无管理权限
        </option>
        </select>
      </div></td>
      <td width="22%" class="tdbg"><div align="center">
        <input type="submit" name="Submit" value="修改">
        &nbsp;
        <input type="submit" name="Submit" value="删除">
      </div></td>
    
    </tr>
	 </form>
	  <%  
     rs.MoveNext
     
     loop
  %>
  </table>
 <%
  rs.Close
  set rs=Nothing
  
  conn.Close
  set conn=Nothing
%>
  <P>　</P> 
</DIV>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">管理员相关管理权限请到管理首页查看</div></td>
  </tr>
</table>
<P align=center>
</BODY>
</HTML>