<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" colspan="3" align="center" bgcolor="#E9F1F8">编辑管理员</td>
  </tr>
  <tr>
    <td width="27%" height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td width="39%" height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td width="34%" height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF">管理员UID</td>
    <td height="20" align="center" bgcolor="#FFFFFF">密码PWD[点击修改]</td>
    <td height="20" align="center" bgcolor="#FFFFFF">管理</td>
  </tr>
  <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from system"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then 
  %>
  <%while not rs.eof %>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8"><%=rs("s_uid")%></td>
    <td height="20" align="center" bgcolor="#E9F1F8"><a href='vbscript:openWin("mod_sys.asp?id=<%=rs("s_id")%>" )'>更改密码</a></td>
    <td height="20" align="center" bgcolor="#E9F1F8"><a href="sys_del.asp?id=<%=rs("s_id")%>" onClick="return confirm('是否确定删除本记录？');" class="a1">删除</a></td>
  </tr>
  <%rs.movenext
  wend%>
  <%else%>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <%end if%>
  <%rs.close 
	set rs=nothing%>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
</table>
<!--#include file="opennew.asp"-->