<%
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"

%>

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

不能用delete from了..

你下面有rs.delete了..

就用select

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

rs.delete
rs.update
rs.open sql,conn,1,3

Userid=request("Userid")
set rs=server.createobject("adodb.recordset")
sql="delete from login where Userid="&Userid
rs.open sql,conn,1
set rs=nothing

response.redirect "mange.asp"
这样呢

<!--#include file="../inc/conn.asp"-->
<%@ LANGUAGE="VBSCRIPT" %>
<%
dim sql
dim rs
dim Userid
Userid=request("Userid")
set rs=server.createobject("adodb.recordset")
sql="select * from login where Userid="&Userid
rs.open sql,conn,3,3
if not rs.eof then
str="delete from login where Userid="&Userid
conn.execute str
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
这样试试