急需解决
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
%>
问题: 当点击删除后,没有执行杀出操作。也没有提示任何错误!
请高手帮忙解决,在线等