<!--#include file="conn.asp"-->
<%if session("admin")<>"" then
else
response.Redirect("admin.asp")   '为空的话就转向登陆页，重新登陆，这样的话，直接输入网址的话就会跳到admin.asp
end if
%>

<%
set rs=server.createobject("adodb.recordset")      '利用Server内置对象创建一个记录集
sql="select * from admin"    'SQL语句，这里的意思是选择数据库中的所有字段，指定该数据表的名称是“admin”
rs.open sql,conn,1,1     '用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据 （1,1为只读数据,1,3为插入数据，2,3是修改数据)
%>

<%
if request("action")="del" then
set rs=server.createobject("adodb.recordset")   '利用Server内置对象创建一个记录集
id=Request.QueryString("id")  '用id取值字符串中传的id
sql="select * from admin where id="&id  '用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为admin的字段，它的条件是当数据库中的id字段是字串所传来的id
rs.open sql,conn,2,3   '打开符合条件的记录（1,1为只读数据,1,3为插入数据，2,3是修改数据)
rs.delete  '执行删除
rs.update  '更新
rs.close   '关闭记录集
conn.close  '关闭数据库连接
response.redirect "adminstrator.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>心情故事屋留言本系统-后台管理员管理</title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 18px}
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style></head>

<body>
<!--#include file="top.asp" -->
<table width="525" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="10">　</td>
    <td width="370"><span class="j1"> </span></td>
    <td width="370">　</td>
    <td width="740"><div align="center"><a href="index.asp">查看留言</a></div></td>
    <td width="740"><div align="center"><a href="addload.asp">签写留言</a></div></td>
    <td width="740"><div align="center"><a href="admin.asp">管理留言</a></div></td>
    <td width="20">　</td>
  </tr>
</table>
<table 
width=520 border=0 align="center" cellpadding=0 cellspacing=0 style="BORDER-BOTTOM: #d2e8b5 1px dotted">
  <tbody>
    <tr>
      <td></td>
    </tr>
  </tbody>
</table>
<table width="525" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FCA2A1">
    <tr bgcolor="#FFE7E7">
      <td height="40"><div align="center"><span class="text3 style2">　心情故事屋留言本系统-后台管理员管理</span></div></td>
    </tr>
</table>
  <table width="50" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
  <table width="525" height="20" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FCA2A1">
    <tr>
      <td width="41" bgcolor="#FFE7E7"><div align="center">ID</div></td>
      <td width="131" bgcolor="#FFE7E7"><div align="center">用户账号</div></td>
      <td width="148" bgcolor="#FFE7E7"><div align="center">用户密码</div></td>
      <td width="125" bgcolor="#FFE7E7"><div align="center">操作</div></td>
    </tr>
</table>
  <table width="50" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
  <%
do while not rs.eof    '用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。(循环开始）
%>
  <table width="525" height="20" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FCA2A1">
    <tr bgcolor="#FFE7E7">
      <td width="46"><div align="center"><%=rs("id")%></div></td>
      <td width="143"><div align="center"><%=rs("admin")%></div></td>
      <td width="165"><div align="center"><%=rs("password")%></div></td>
      <td width="52" bgcolor="#FFE7E7"><div align="center"><a href="adminstrator.asp?action=add">添加</a></div></td>
      <td width="48" bgcolor="#FFE7E7"><div align="center"><a href="adminstrator.asp?action=edit&id=<%=rs("id")%>">编辑</a></div></td>
      <td width="39" bgcolor="#FFE7E7"><div align="center"><a href="adminstrator.asp?action=del&id=<%=rs("id")%>" style="color:#000099" onclick="return confirm('是否真的要删除本管理员？');">删除</a></div></td>
    </tr>
</table>
  <table width="50" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
<%
rs.movenext      '用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。(循环结束）
loop
%>
<%
if request("action")="add" then
%>
<form name="form1" method="post" action="adminstrator.asp?action=add_admin">
  <table width="525" height="20" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FCA2A1">
    <tr bgcolor="#FFE7E7">
      <td height="25" colspan="2"><div align="center"></div>
          <div align="center">添加管理员</div>
          <div align="center"></div>
          <div align="center"></div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td width="100" height="25"><div align="center">用户名：</div></td>
      <td width="397" height="25" bgcolor="#FFE7E7"><div align="left">
          <input name="admin" type="text" id="admin">
      </div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td height="25"><div align="center">密　码：</div></td>
      <td height="25" bgcolor="#FFE7E7"><div align="left">
          <input name="password" type="text" id="password">
      </div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td height="25"><div align="center"></div></td>
      <td height="25"><div align="center">
          <input type="submit" name="Submit" value="提交">
        　　　　　
        <input type="reset" name="Submit2" value="取消">
      </div></td>
    </tr>
  </table>
</form>
<% end if %>

<%
if request("action")="edit" then
%>
<%
if request("action")="edit" then
set rs=server.createobject("adodb.recordset")   '利用Server内置对象创建一个记录集
id=Request.QueryString("id")  '用id取值字符串中传的id
sql="select * from admin where id="&id  '用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为admin的字段，它的条件是当数据库中的id字段是字串所传来的id
rs.open sql,conn,1,1   '打开符合条件的记录（1,1为只读数据,1,3为插入数据，2,3是修改数据)
end if
%>
<form name="form1" method="post" action="adminstrator.asp?action=edit_admin&id=<%=rs("id")%>">
  <table width="525" height="20" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FCA2A1">
    <tr bgcolor="#FFE7E7">
      <td height="25" colspan="2"><div align="center"></div>
          <div align="center">管理员编辑</div>
          <div align="center"></div>
          <div align="center"></div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td width="100" height="25"><div align="center">用户名：</div></td>
      <td width="397" height="25" bgcolor="#FFE7E7"><div align="left">
          <input name="admin" type="text" id="admin" value="<%=rs("admin")%>">
      </div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td height="25"><div align="center">密　码：</div></td>
      <td height="25" bgcolor="#FFE7E7"><div align="left">
          <input name="password" type="text" id="password" value="<%=rs("password")%>">
      </div></td>
    </tr>
    <tr bgcolor="#FFE7E7">
      <td height="25"><div align="center"></div></td>
      <td height="25"><div align="center">
          <input type="submit" name="Submit" value="提交">
        　　　　　
        <input type="reset" name="Submit2" value="取消">
      </div></td>
    </tr>
  </table>
</form>
<% end if %>
<table width="770" height="1" border="0" align="center" cellpadding="0" cellspacing="0" id="talbe0001"> 
    <tr> 
      <td height="1" background="image/0004.gif"></td> 
    </tr> 
</table>

</body>
</html>
<%
if request("action")="add_admin" then
set rs=server.createobject("adodb.recordset")   '利用Server内置对象创建一个记录集
sql="select * from admin"  '这里的*是通配符，SQL语句，这里的意思是选择数据库中的所有字段，指定该数据表的名称是“main”
rs.open sql,conn,1,3   '用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据（1,1为只读数据,1,3为插入数据，2,3是修改数据)
rs.addnew  '添加一条新记录
admin=request.form("admin")   '请求表单的变量，定义变量为admin，这里request.form是请求表单的意思
password=request.form("password")  
rs("admin")=admin     '将请求到的表单值传向记录集中代表admin字段的名称
rs("password")=password 
rs.update  '更新
rs.close   '关闭记录集
conn.close  '关闭数据库连接
response.write"<SCRIPT language=JavaScript>alert('添加管理员成功');"
response.write"this.location.href='adminstrator.asp';</SCRIPT>" 
end if
%>

<%
if request("action")="edit_admin" then
id=Request.QueryString("id")  '用id取值字符串中传的id
set rs=server.createobject("adodb.recordset")   '利用Server内置对象创建一个记录集
sql="select * from admin where id="&id  '用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为admin的字段，它的条件是当数据库中的id字段是字串所传来的id
rs.open sql,conn,1,3   '用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据（1,1为只读数据,1,3为插入数据，2,3是修改数据)
admin=request.form("admin")   '请求表单的变量，定义变量为admin，这里request.form是请求表单的意思
password=request.form("password")  
rs("admin")=admin     '将请求到的表单值传向记录集中代表admin字段的名称
rs("password")=password 
rs.update  '更新
rs.close   '关闭记录集
conn.close  '关闭数据库连接
response.write"<SCRIPT language=JavaScript>alert('编辑管理员成功');"
response.write"this.location.href='adminstrator.asp';</SCRIPT>" 
end if
%>