admin_add.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<link rel="stylesheet" type="text/css" href="../1.CSS">
<div align="center">
  <form method="POST" action="admin_addchk.asp">
  <center>
  <table style="BORDER-COLLAPSE: collapse" borderColor="#cccccc" height="68" cellSpacing="0" cellPadding="0" width="333" border="1">
    <tr>
      <td bgColor="#ffcc00" height="25">
      <p align="center">增加管理员</td>
    </tr>
    <tr>
      <td style="BORDER-BOTTOM: medium none" align="middle" height="21"><br>
      用户名：<input name="username" size="20" maxlength="20"></td>
    </tr>
    <tr>
      <td style="BORDER-TOP: medium none; BORDER-BOTTOM: medium none" align="middle" height="25">密&nbsp; 码：<input name="password" size="20" maxlength="20"></td>
    </tr>
    <tr>
      <td style="BORDER-TOP: medium none" height="25">
      <p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="submit" value="提交" name="B1"></td>
    </tr>
  </table>
  </center>
  </form>
</div>
<div align="center">
<%
ijob=request("ijob")
if ijob="del" then
call del()
else%>
</div>
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="334">
    <tr>
      <td width="46" height="24" align="center"><font color="#990000">编号</font></td>
      <td width="221" height="24" align="center"><font color="#990000">管理帐号</font></td>
      <td width="65" height="24" align="center"><font color="#990000">操作</font></td>
    </tr>
<%
dim rs,sql,i,id,ijob
i=1
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select id,username from [admin]" 
rs.open sql,conn,1,1
do while not rs.eof
%>
    <tr>
      <td width="46" height="24" align="center"><%=i%></td>
      <td width="221" height="24" align="center"><%=rs("username")%></td>
      <td width="65" height="24" align="center"><a href="?ijob=del&id=<%=rs("id")%>">删除</a></td>
    </tr>
<%
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
sub del()
id=request("id")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="delete from [admin] where id="&cstr(id)
rs.open sql,conn,1,3
response.write "<font size=2>帐号删除成功!</font><br>"
response.end
end sub
set rs=nothing
end if
closedb
%>
  </table>
  </center>
</div>