admin_adminmana.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top1.asp"-->
<br><br><div align="center">
  <center>
<table width="750" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=MainBgcolor%>" style="border-collapse: collapse" bordercolor="#111111">
  <tr> 
    <td valign=top width="5" background="images/line_bg02.gif">
    <img border="0" src="images/line_bg02.gif"></td>
    <td valign=top width="157"><!--#include file="admin_left.asp"--></td>
    <td valign=top width="5" background="images/line_bg02.gif">　</td>
    <td align=center valign=top width="574">
      <table border="1" width="95%" cellspacing="0" cellpadding="0" class="TableLine">
        <tr>
          <td width="100%" colspan=5 height="22" align=center>管理员列表</td>
        </tr>
        <tr>
          <td width="10%" align="center">ID号</td>
          <td width="25%" align="center">名称</td>
          <td width="20%" align="center">权限</td>
          <td width="10%" align="center">修改</td>
          <td width="10%" align="center">删除</td>
        </tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
	  
sql="select * from admin"
rs.open sql,conn,1
%> 
<%
if rs.EOF then
%>
        <tr><td colspan=5 align=center>没有用户：（</td></tr>
<%
else
	do while NOT rs.EOF
if rs("oskey")="super" then oskey="高级管理员"
if rs("oskey")="check" then oskey="中级管理员"
if rs("oskey")="input" then oskey="初级管理员"
%> 
        <tr> 
          <td width="10%" align="center"><%=rs("id")%>　</td>
          <td width="25%" align="center"><%=rs("Username")%>　</td>
          <td width="20%" align="center"><%=oskey%>　</td>
              <td width="10%" align="center"><a href="admin_AdminModify.asp?id=<%=rs("id")%>"><font color="#FFFFFF">修改</font></a></td>
              <td width="10%" align="center"><a href="admin_AdminDel.asp?id=<%=rs("id")%>"><font color="#FFFFFF">删除</font></a></td>
        </tr>
<%
	rs.MoveNext
	loop
end if
rs.close
%> 
      </table>
      <FORM METHOD=POST ACTION="admin_AdminSave.asp" id=form1 name=form1>
        <table border="1" width="40%" cellspacing="0" cellpadding="0" class="TableLine" >
          <tr> 
            <td align="center" height=20 colspan=2>添 加 管 理 员</td>
          </tr>
          <tr>
            <td align="right">管 理 员 名：</td>
            <td><input type=text name=UserName   value="" onfocus=this.select() onmouseover=this.focus() name=keyword size=14 maxlength="30"></td>
          </tr>
          <tr> 
            <td align="right">管 理 权 限：</td>
            <td>
              <select name="oskey">
                <option value=super selected>高极管理员</option>
                <option value=check>中级管理员</option>
                <option value=input>初级管理员</option>
              </select>
            </td>
          </tr>
          <tr> 
            <td align="right">管 理 密 码：</td>
            <td><input type=text name=Password   value="" onfocus=this.select() onmouseover=this.focus() name=keyword size=14 maxlength="30"></td>
          </tr>
          <tr> 
            <td align="center" colspan=2> 
              <input type=hidden value="add" name="act">
              <input type=submit value=增加 name="submit">
              <input type=reset name="Submit" value="取消">
            </td>
          </tr>
        </table>
      </FORM>
    </td>
    <td align=center valign=top width="5" background="images/line_bg02.gif">
      <img border="0" src="images/line_bg02.gif"></td>
  </tr>
  <tr>
    <td valign=top width="755" colspan="5" background="images/line_bg01.gif">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr>
</table>
  </center>
</div>
<br><br>
<%
set rs=nothing
conn.close
set conn=nothing
%>