admin_admin.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="admin_loginchk.asp"-->
<%admin1%>
<title>管理员管理</title>
<LINK rel="stylesheet" href="../style.css">
<table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="#D8D5B4">
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top>
      <div align="center">
        <center>
      <table border="0" cellpadding="4" cellspacing="0" width="98%" style="border-collapse: collapse">
        <tr align="center"> 
          <td bgcolor="#D8D5B4">管 理 员 管 理 </td>
        </tr>
        <tr align="center"> 
          <td align="center" valign="top">
            <table border="0" width="568" cellpadding="3" cellspacing="1" style="border-collapse: collapse">
              <tr> 
                <td  colspan="4" align="center" width="566"><b><font color="#FF0000">管 
                  理 员 是 一 个 网 站 的 核 心 请 慎 重 操 作 ！</font></b></td>
              </tr>
              <tr> 
                <td align="center" colspan="4" height="20" bgcolor="#FFFFFF" width="566">　</td>
              </tr>
              <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT  * From admin order by id"
rs.open sql6,Conn,3,3
%>
              <tr align="center"> 
                <td bgcolor="#D8D5B4" width="115">管理员用户名</td>
                <td width="148" bgcolor="#D8D5B4">管理员密码</td>
                <td width="131" bgcolor="#D8D5B4">执&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;行</td>
                <td width="169" bgcolor="#D8D5B4">管理员等级</td>
              </tr>
              <%			
i=0
do while not rs.eof
i=i+1%>
              <tr> 
                <td align="center" bgcolor="#F2F1E6" height="13" width="115"><%=rs("UserName")%></td>
                <td width="148" align="center" bgcolor="#F2F1E6" valign="bottom" height="13"> 
                  <form name="form1" method="post" action="admin_adminfuntion.asp?ID=<%=rs("id")%>">
                    <input type="password" name="passwd" value="<%=rs("PassWD")%>" maxlength="50" size="8">
                    <input type="submit" name="Submit" value="修 改">
                    <input type="hidden" name="action" value="modipwd">
                  </form>
                </td>
                <td width="131" bgcolor="#F2F1E6" align="center" height="13"><a href="admin_adminfuntion.asp?action=del&id=<%=rs("id")%>">删除</a> 
                   <a href="admin_adminfuntion.asp?action=setlock&id=<%=rs("id")%>"> 
              <%if rs("lock")=true then%>
              解锁
              <%else%>
              锁定 
              <%end if%>
              </a></td>
                
                <td width="169" bgcolor="#F2F1E6" align="center" height="13"> 
                  <form name="form1" method="post" action="admin_adminfuntion.asp?ID=<%=rs("ID")%>&action=modioskey">
                    <select name="oskey">
                      <option <% If rs("oskey")="super" Then %> selected <% End If %> value="super">超级管理员</option>
                      <option <% If rs("oskey")="input" Then %> selected <% End If %> value="input">程序录入员</option>
                    </select>
                    <input type="submit" name="Submit2" value="设 定">
                  </form>
                </td>
              </tr>
              <%
rs.MoveNext
Loop

rs.close
set rs=nothing
%>
              <tr> 
                <td colspan="4" height="20" align="center" bgcolor="#FFFFFF" width="566">　</td>
              </tr>
              <tr> 
                <form method="post" action="admin_adminfuntion.asp?action=addadmin" name="type">
                  <td align="center" colspan="4" bgcolor="#F2F1E6" height="60" width="566"> 
                    添加管理员： 
                    <input class=text type="text" name="username" size="8">
                    密码 ： 
                    <input class=text type="text" name="passwd" size="8">
                    权限： 
                    <select name="oskey">
                      <option value="super">管理员</option>
                      <option value="input"  selected>录入员</option>
                    </select>
                    <input type="submit" name="Submit" value="添加">
                    <input type="reset" value="重写" name="B1">
                  </td>
                </form>
              </tr>
            </table>
 </td>
        </tr>
        </table>
      
        </center>
      </div>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%conn.close
set conn=nothing%></body></html>