5天学会asp(8)

        </tr>
        <%
rs.movenext
wend
rs.close
set rs=nothing
%>
      </table> 
</body>
</html>
----------------------编号id的接受页admin_AdminModify.asp-------------------------

<%
<!--#include file=conn.asp-->
'QueryString的方法取得用户id
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&id
rs.open sql,conn,1,1
if rs.eof then
response.write"<SCRIPT language=javascript>alert('服务器出错，请联系管理员！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
admin=rs("admin")
password=rs("password")
aleave=rs("aleave")
<table>
<form method="POST" action="admin_adminSave.asp?id=<%=id%>">

    <tr> 
      <td colspan=2 align=center><b>修 改 管 理 员 资 料</b></td>
</tr>
    <tr> 
      <td width="30%" height="22" align="right">用户名：</td>
      <td width="70%"> 
        <input type="text" name="admin" value="<%=admin%>" size="20"></td>
</tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="30%" height="22" align="right">密码：</td>
      <td width="70%"> 
        <input type="text" name="password" value="<%=password%>" size="20"></td>
</tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="30%" height="22" align="right">权限：</td>
      <td width="70%" height="22"> 
        <select name="aleave" style="font-size:9pt" class="input">
<option value=super<%if aleave="super" then%> selected<%end if%>>超级管理员</option>
<option value=check<%if aleave="check" then%> selected<%end if%>>普通管理员</option>
</select>
</td>
</tr>
    <tr align="center" bgcolor="#FFFFFF" height="24"> 
      <td height="30" colspan=2>