admin_manager.asp

通盈企业全站系统 v2.12

<!--#include file="Include/Tyi86_setup.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<!--#include file="other/Tyi86_md5.asp" -->
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
    <!--
    function doSubmit(){
		if (document.Manage_add.username.value==""){
			alert("用户名不能为空！");
			return false;
		}		
		if (document.Manage_add.password.value==""){
			alert("密码不能为空！");
			return false;
		}
		return true;
	}
    //-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23"><div align="center"><a href="Admin_Manager.asp">所有管理员信息</a></div></td>
</tr>
</table>
<%
    CheckAdmin3
    if Request.QueryString("Action")="Modify" then
    UserName=request("UserName")
    password=request("Password")
    Md5_Pass=md5(password)
    If UserName="" Then
    Response.Write "<script>alert(""请输入用户名!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    ID=Request("ID")
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from Admin where ID="&ID&""
    rs.open sql,conn,1,3
    rs("Username")=UserName
    rs("oskey")=request("oskey")
    If password<>"" Then
    rs("Password")=Md5_Pass
    end if
    rs.update
    rs.close
    response.redirect "Admin_Manager.asp"
    end if
    'del----------------------
    if request("Action")="Del" then
    id=Request.QueryString("id")
    delsql="delete from admin where id="&id
    conn.execute(delsql)
    conn.close
    response.redirect"Admin_Manager.asp"
    end if
    'add----------------------
    if request("Action")="Add" then
    UserName=request("UserName")
    password=request("Password")
    Md5_Pass=md5(password)
    If UserName="" Then
    Response.Write "<script>alert(""请输入用户名!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    If password="" Then
    Response.Write "<script>alert(""请输入密码!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from admin where username='"&username&"'"
    rs.open sql,conn,1,3
    if (rs.eof and rs.bof) then
    rs.addnew
    rs("oskey")=request("oskey")
    rs("Username")=UserName
    rs("Password")=Md5_Pass
    rs.update
    rs.close
    else
    response.Write("<script>alert(""用户已存在！"");location.href=""Admin_Manager.asp"";</script>")
    end if
    end if 
    if request("Action")="Edit" then
    id=request.QueryString("id")
    set rs=server.createobject("adodb.recordset")
    sql="select * from admin where id="&id
    rs.open sql,conn,1,1
    Username=rs("Username")
    Password=rs("Password")
    oskey=rs("oskey")
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form method="POST" action="Admin_Manager.asp?Action=Modify" id="Manage" name="Manage">
<tr bgcolor="#EAEAEA">
<td width="100%" height="24" colspan=2 align=center><b>修 改 管 理 员 资 料</b></td>
</tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" height="22" align="right">用户名：</td>
            <td width="70%"> 
              <input type="text" name="username" value="<%=Username%>" size="20" class=input></td>
</tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" height="22" align="right">密码：</td>
            <td width="70%"> 
              <input type="password" name="password" size="20" class=input>
        不修改时保留 </td>
</tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" height="22" align="right">权限：</td>
            <td width="70%" height="22"> 
              <select name="oskey" style="font-size:9pt">
<option value=super<%if oskey="super" then%> selected<%end if%>>高级管理员</option>
<option value=check<%if oskey="check" then%> selected<%end if%>>中级管理员</option>
<option value=input<%if oskey="input" then%> selected<%end if%>>初级管理员</option>
</select>
</td>
</tr>
          
<tr align="center" bgcolor="#EAEAEA" height="24"> 
<td height="24" colspan=2><input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input type="submit" value=" 修 改 " name="cmdok2" class=input onClick="return doSubmit()">&nbsp;
<input type="reset" value=" 清 除 " name="cmdcance2l" class=input>
</td>
</tr>
</form>
</table>
<%
    response.end
    end if
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF"> 
                
<td width="100%" height="22" colspan=5 align=center><strong>管 理 员 列 表</strong></td>
</tr>
              
<tr bgcolor="#EAEAEA" height=22> 
<td width="10%" height="21" align="center">ID号</td>
<td width="25%" height="21" align="center">名称</td>
<td width="20%" height="21" align="center">权限</td>
<td width="10%" height="21" align="center">修改</td>
<td width="10%" height="21" align="center">删除</td>
</tr>
<%
    set rs=server.CreateObject("ADODB.RecordSet")	
    sql="select * from admin"
    rs.open sql,conn,1
%>
<% if rs.EOF then %>
              <tr bgcolor="#FFFFFF">
<td height="22" 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 bgcolor="#FFFFFF" height="22"> 
                <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_Manager.asp?Action=Edit&id=<%=rs("id")%>">修改</a></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><a href="Admin_Manager.asp?Action=Del&id=<%=rs("id")%>">删&nbsp;除</a></td>
</tr>
<%
    rs.MoveNext
    loop
    end if
    rs.close
%>
<%
    set rs=nothing
    conn.close
    set conn=nothing
%>
</table>
<br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" style="border-collapse:collapse;">
  <FORM METHOD=POST ACTION="Admin_Manager.asp?Action=Add" id="Manage_add" name="Manage_add">
    <tr bgcolor="#EAEAEA"> 
      <td height=24 colspan=2 align="center"><strong>添 加 管 理 员</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td height="39" colspan="2" Valign="top"><p> 1.&quot;初级管理员&quot;： 可以进行留言管理。</p>
        <p> 2.&quot;中级管理员&quot;： 可以对留言内容及新闻内容进行管理。</p>
        <p>3.&quot;高极管理员&quot;： 后台管理的所有权限。</p>
        </td>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td width="188" height="23" align="right">管 理 员 名：</td>
      <td width="409" height="23"> <input name=username type=text  class=input id="username" onfocus=this.select() onmouseover=this.focus() value="" size="15" maxlength="30"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="23" align="right">管 理 权 限：</td>
      <td height="23"> <select name="oskey">
          <option value=super selected>高极管理员</option>
          <option value=check>中级管理员</option>
          <option value=input>初级管理员</option>
        </select> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="23" align="right">管 理 密 码：</td>
      <td height="23"> <input name=password type=password class=input id="password" onfocus=this.select() onmouseover=this.focus() value="" maxlength="30"></td>
    </tr>
    <tr bgcolor="#EAEAEA"> 
      <td height="24" colspan=2 align="center"> <input type=hidden value="add" name="act"> 
        <input type=submit value=增加 name="submit" class=input onClick="return doSubmit()"> 
        <input type=reset name="Submit" value="取消" class=input> </td>
    </tr>
  </FORM>
</table>