admin_adminmana.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmins%>
<!--#include file="top.asp"-->
<table width="770" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td width="157" bgcolor="<%=Tabletitlecolor%>"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="609" bgcolor="<%=Tablebodycolor%>"> 
      <table border="0" width="95%" cellspacing="1" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=Tablebackcolor%>" align="center">
        <tr bgcolor="<%=Tabletitlecolor%>"> 
          <td colspan=6 height="22" align=center><b>修改管理员信息</b></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td align="center">用户名</td>
          <td align="center">密码</td>
          <td align="center">重复密码</td>
          <td align="center">权限</td>
          <td align="center">修改</td>
          <td align="center">删除</td>
        </tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs.open sql,conn,1,1
	do while NOT rs.EOF
%>
        <tr bgcolor="#FFFFFF"> 
          <FORM METHOD=POST ACTION="admin_AdminSave.asp?action=edit&id=<%=rs("id")%>">
            <td align="center"> 
              <input type="text" name="admin" size="18" maxlength="30" value="<%=rs("admin")%>">
            </td>
            <td align="center"> 
              <input type="password" name="password" size="18" maxlength="30" value="<%=rs("password")%>">
            </td>
            <td align="center"> 
              <input type="password" name="password2" size="18" maxlength="30" value="<%=rs("password")%>">
            </td>
            <td align="center"> 
              <select name="flag">
                <option value=1<%if rs("flag")=1 then%> selected<%end if%>>初级管理员</option>
                <option value=2<%if rs("flag")=2 then%> selected<%end if%>>中级管理员</option>
                <option value=3<%if rs("flag")=3 then%> selected<%end if%>>超级管理员</option>
              </select>
            </td>
            <td align="center"> 
              <input type=submit value=修改 name="edit">
            </td>
          </form>
          <FORM METHOD=POST ACTION="admin_AdminSave.asp?action=del&id=<%=rs("id")%>">
            <td align="center"> 
              <input type=submit value=删除 name="del">
            </td>
          </form>
        </tr>
        <%
	rs.MoveNext
	loop
rs.close
%>
      </table>
      <br>
      <table border="0" width="95%" cellspacing="1" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=Tablebackcolor%>" align="center">
        <tr bgcolor="<%=Tabletitlecolor%>"> 
          <td colspan=5 height="22" align=center><b>添加管理员</b></td>
        <tr bgcolor="#FFFFFF"> 
          <form method=POST action="admin_AdminSave.asp?action=add">
            <td align="center"> 
              <input type="text" name="admin" size="18" maxlength="30">
            </td>
            <td align="center"> 
              <input type="password" name="password" size="18" maxlength="30">
            </td>
            <td align="center"> 
              <input type="password" name="password2" size="18" maxlength="30">
            </td>
            <td align="center"> 
              <select name="flag">
                <option value=1 selected>初级管理员</option>
                <option value=2>中级管理员</option>
                <option value=3>超级管理员</option>
              </select>
            </td>
            <td align="center">
              <input type=submit value=　添　　加　 name="add">
            </td>
          </form>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="copyright.asp"-->
</body>
</html>