set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where userid="&userid,conn,1,3
if trim(request.form("UserPassword"))<>"" then rs("UserPassword")=md5(trim(request.form("UserPassword")))
rs("realname")=trim(request.form("realname"))
rs("identify")=trim(request.form("identify"))
rs("UserMobile")=trim(request.form("UserMobile"))
rs("userqq")=trim(request.form("userqq"))
rs("MSN")=trim(request.form("MSN"))
rs("useremail")=trim(request.form("useremail"))
rs("UserQuestion")=trim(request.form("UserQuestion"))
if trim(request.form("UserAnswer"))<>"" then rs("UserAnswer")=md5(trim(request.form("UserAnswer")))
rs("UserSex")=request.form("UserSex")
rs("city")=trim(request.form("city"))
rs("address")=trim(request.form("address"))
rs("postcode")=trim(request.form("postcode"))
rs("usertel")=trim(request.form("usertel"))
rs("score")=trim(request.form("score"))
rs("deposit")=trim(request.form("deposit"))
rs("GrpID")=trim(request.form("GrpID"))
rs("book")=trim(request.form("book"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"


为什么显示操作成功，但是数据并没有被更改呢？

<%
userid=request("userid")
set rs=server.CreateObject("adodb.recordset")
sql="select * from [user] where userid="&userid
rs.Open sql,conn,1,3
if trim(request.form("UserPassword"))<>"" then
rs("UserPassword")=md5(trim(request.form("UserPassword")))
end if
rs("realname")=trim(request.form("realname"))
rs("identify")=trim(request.form("identify"))
rs("UserMobile")=trim(request.form("UserMobile"))
rs("userqq")=trim(request.form("userqq"))
rs("MSN")=trim(request.form("MSN"))
rs("useremail")=trim(request.form("useremail"))
rs("UserQuestion")=trim(request.form("UserQuestion"))
if trim(request.form("UserAnswer"))<>"" then
rs("UserAnswer")=md5(trim(request.form("UserAnswer")))
end if
rs("UserSex")=request.form("UserSex")
rs("city")=trim(request.form("city"))
rs("address")=trim(request.form("address"))
rs("postcode")=trim(request.form("postcode"))
rs("usertel")=trim(request.form("usertel"))
rs("score")=trim(request.form("score"))
rs("deposit")=trim(request.form("deposit"))
rs("GrpID")=trim(request.form("GrpID"))
rs("book")=trim(request.form("book"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"
%>


这样试试.

说明rs.Open "select * from [user] where userid="&userid,conn,1,3没有找到你要找的那条记录,最好你在下边补上一句:
if not rs.eof then

response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"

我觉得这句啊！你都操作完了还返回去干吗呢！这不是给人误导吗！还因为没有修改好呢！还是写成：
response.Write "<script language=javascript>alert('操作成功!');window.location.href='你要跳转的页面';</script>"

楼主用的是什么数据库？

我用的
access的

并且前面还有<%dim userid,rsUser,UserNum
userid=SafeRequest("id",1)
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user] where userid="&userid ,conn,1,1
%>

为什么参数没有传递呢？

LZ把代码帖全点，给出的这段程序没看出有什么问题，如果文件开头有 on error resume next 等调试时建议注释掉

<form name="form1" method="post" action="saveuser.asp?action=save&id=<%=userid%>">
<td valign="top" bgcolor="#FFFFFF"> <br>
<table width="95%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="20%" height="25" align="right" background="images/topbg.gif" bgcolor="#F7F7F7">用户名称：</td>
<td width="80%"><font color=#FF6600><%=trim(rs("username"))%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">登录密码：</td>
<td>
<input name="UserPassword" type="text" class="input_sr" id="UserPassword" size="30">
不改密码请为空!</td>
............................................................................................

<br>
</td></form>


saveuser.asp



dim userid,action
action=FormatSQL(SafeRequest("action",0))
userid=SafeRequest("id",1)
if userid="" then userid=request.form("userid")
select case action
case "save"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权编辑用户信息！');history.go(-1);</script>"
response.End
end if

userid=request("userid")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from user where userid="&userid,conn,1,3
if trim(request.form("UserPassword"))<>"" then rs("UserPassword")=md5(trim(request.form("UserPassword")))
rs("realname")=trim(request.form("realname"))
...............................................
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"
case "del"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权删除用户！');history.go(-1);</script>"
response.End
end if
conn.execute "delete from [user] where userid in ("&userid&") "
conn.execute "delete from orders where userid in ("&userid&")"
response.Redirect "b2b_user.asp"
end select
%>

问题还没有解决