急需解决

ad-user.asp
<%
    set conn= Server.CreateObject("adodb.connection")
    cs="provider=microsoft.jet.oledb.4.0;data source="
    conn.open (cs & server.MapPath("info-share.mdb"))
    'response.Write conn.state
    'response.end
    'conn.open
    
    set rs= Server.CreateObject("adodb.recordset")
       sql="select * from [user] "
       rs.open sql,conn,1,3
    
%>

 <table align="center"  border="0">
  <tr><td width="200" align="center" valign="top" >账号</td>
      <td width="200" align="center" valign="top" >密码</td>
      <td width="200" align="center" valign="top" >权限</td>
      <td width="200" align="center" valign="top" >操作</td>
  </tr>
  <tr><td><hr size="1" /></td><td><hr size="1"/></td><td><hr  size="1"/></td><td><hr  size="1"/></td></tr>
 


 <% do while not rs.eof     %>
    <tr><td><%=rs("username")%></td>
        <td><%=rs("userpassword")%></td>
        <td><%=rs("userduty")%></td>
        <td><a href="deleteuser.asp?&id1=<%=rs("username")%>">删除</a>/<a href="updateuser.asp?&id2=<%=rs("username")%>">更新</a></td>
          </tr>
     <tr><td><hr /></td>
         <td><hr /></td>
         <td><hr /></td>
         <td><hr /></td>
             </tr>
<% rs.movenext
   loop
 %>
</table>                   
<%
  rs.close
  set rs=nothing
%>


deleteuser.asp

<%
    set conn= Server.CreateObject("adodb.connection")
    cs="provider=microsoft.jet.oledb.4.0;data source="
    conn.open (cs & server.MapPath("info-share.mdb"))
    'response.Write conn.state
    'response.end
    'conn.open
    dim strname
    strname=request("id1")

    
    set rs= Server.CreateObject("adodb.recordset")
    sql="delete from [user] where username='"&trim(strname)&"'"
        rs.open sql,conn,1,3
             
            
      response.Redirect("ad-user.asp")
%>
<%
   rs.close
   set rs=nothing
%>


问题： 当点击删除后，没有执行杀出操作。也没有提示任何错误！


请高手帮忙解决,在线等