<!--#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

错误代码

[CODE]sql="delete from login where Userid="&Userid[/CODE]

应该改成[CODE]sql="delete from login where Userid='"&Userid&"'"[/CODE]

你试下看看``

sql="delete * from login where Userid="&Userid

还是不行哈，烦死了

出现上面提示后，数据库内的记录倒是删除了，能不能看看我的代码那里还有错误！

rs.open sql,conn,3,2
改成
rs.open sql,conn,3,3

问题依旧存在啊，和上面一样

rs.close
set rs=nothing
conn.close
set conn=nothing
这四行不能放在判断语句里面，得放在判断语句外面

[CODE]rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("删除成功")
else
response.write("删除失败")
end if
response.redirect "mange.asp"[/CODE]
改成这样就可以了


[CODE]
rs.update
response.write("删除成功")
else
response.write("删除失败")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "mange.asp"
[/CODE]

这个错误说明楼主可能提前执行了rs.close