[b]以下是实现 更改或删除用户 功能[/b]
要做一个后台，实现对用户的权限进行更改
先取得库中各用户原来的相对应的级别，显示在下拉列表中，如果我要更改权限级别，例如原来是计划员现在改成管理员，点击“更改”后却不能实现，但是"用户名称“和”密码“都能更改，不知是怎么回事，怎样能取到列表中的值

<%Set records= Server.CreateObject("ADODB.RecordSet")
  strsql="Select * from adgl order by adname"
  records.Open strsql,conn,1,2
 %> 

 <%do while not records.eof%>
 <form name="form16a" method="post" action="admin_change.asp?lid=<%=records("id")%>">
    <td width="56" align="center">
       <input name="aadname" type="text" value="<%=records("adname")%>" size="8">
    </td>
    <td width="105" align="left">
       <input name="aadmima" type="text" value="<%=records("admima")%>" size="15">
    </td>
       <input name="lid" type="hidden" value="<%=records("id")%>" size="15">
                                          
  <%Set ss= Server.CreateObject("ADODB.RecordSet")
    strsql="Select * from ad_grade order by id"
    ss.Open strsql,conn,1,1
   %>
    <td width="42" align="center">
       [b]<!--以下的IF是判断下拉列表的默认值为数据库中原数据时，OPTION项被SELECTED-->[/b]
       <select name="aadgrade" id="aadgrade" size="1">
          <%do while not ss.eof%>
         [color=800080] <option value="<%=trim(records("adgrade"))%>"<%IF cint(Trim(records("adgrade")))=cint(Trim(ss("id"))) Then Response.write " Selected"%>><%=ss("ad_grade_name")%>[/color]
          </option>
          <%ss.movenext
           loop
           %>
       </select>
    </td>
    <td width="160" align="left">
    <input type="submit" value="更改">&nbsp;<a href="admin_del1.asp?lid=<%=records("id")%>"><span class="news1">删除</span></a>
    </td>
</form>