<!--#include file="../inc/conn.asp"-->
<%@ LANGUAGE="VBSCRIPT" %>
<%
dim sql
dim rs
dim Userid
Userid=request("Userid")
set rs=server.createobject("adodb.recordset")
sql="delete from login where Userid="&Userid
rs.open sql,conn,3,2
if not rs.eof then
rs.delete
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("删除成功")
else
response.write("删除失败")
end if

response.redirect "mange.asp"

%>
deledl.asp

<td align="center"><a href="deledl.asp?Userid=<%=rs("Userid")%>">删除</a> </td>
命令语句


<%
dim conn
set conn=Server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/sllj.mdb")
If err.number<>0 then
Response.write("连接数据库时产生错误！")
Response.End
End if
%>
cinn.asp

<%
dim sql
dim rs
dim Userid
Userid=request("Userid")
set rs=server.createobject("adodb.recordset")
sql="delete from login where Userid='"&Userid&"'"
rs.open sql,conn,3,3
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

response.redirect "mange.asp"

%>

我把代码改成这样了，结果还是出现了上面说的情况！

上面的问题我也注意到了，不是删除了rs.delete，为什么还是不行呢 ？