求助，修改的问题！谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"-->
<head>
<title>项目成果</title>
</head>
<body>
<%
select case Request("menu")
'保存模块
case "save"
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where 用户名='"&yhm&"'"
rs.open sql,conn,1,3
'禁止输入空值
mm=trim(request.form("密码"))
sqqx=trim(request.form("申请权限"))
qx=trim(request.form("权限"))
xm=trim(request.form("姓名"))
xb=trim(request.form("性别"))
zc=trim(request.form("职称"))
csny=trim(request.form("出生年月"))
gl=trim(request.form("工龄"))
jgbh=trim(request.form("机构编号"))
xmbh=trim(request.form("项目编号"))
xmmc=trim(request.form("项目名称"))
grcj=trim(request.form("个人成就"))
if mm="" or sqqx="" or qx="" or xm="" or xb="" or zc="" or csny="" or gl="" or jgbh="" then
Response.Write("<SCRIPT language=JavaScript>alert('项目修改格式不正确！');this.location.href='user management_b.asp';</SCRIPT>")
response.end
else
rs("密码")=request.Form("密码")
rs("申请权限")=request.Form("申请权限")
rs("权限")=request.Form("权限")
rs("姓名")=request.Form("姓名")
rs("性别")=request.Form("性别")
rs("职称")=request.Form("职称")
rs("出生年月")=request.Form("出生年月")
rs("工龄")=request.Form("工龄")
rs("机构编号")=request.Form("机构编号")
rs("项目编号")=request.Form("项目编号")
rs("项目名称")=request.Form("项目名称")
rs("个人成就")=request.Form("个人成就")
rs.update
rs.close
set rs=nothing
Response.Write("<SCRIPT language=JavaScript>alert('项目修改成功！');this.location.href='user management_b.asp';</SCRIPT>")
Response.End
end if
'修改表单模块
case else
%>
<table width="100%" height="100%" border="0">
<tr>
<td width="26%" height="109"> </td>
<td height="109" colspan="2"> </td>
</tr>
<td colspan="2">
<% yhm=request("yhm")
sql="select * from users where 用户名='"&yhm&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
%>
<form id="form" name="form" method="post" action="?menu=save">
<table width="100%" border="1">
<tr>
<td width="15%">用户名</td>
<td width="35%"><input name="用户名" type="text" value="<%=rs("用户名")%>" size="20" readonly="readonly" /></td>
<td width="15%">密码</td>
<td width="35%"><input name="密码" type="text" value="<%=rs("密码")%>" size="20" /></td>
</tr>
<tr>
<td>申请权限</td>
<td><input name="申请权限" type="text" size="20" value="<%=rs("申请权限")%>" /></td>
<td>权限</td>
<td><input name="权限" type="text" size="20" value="<%=rs("权限")%>" /></td>
</tr>
<tr>
<td>姓名</td>
<td><input name="姓名" type="text" value="<%=rs("姓名")%>" size="20" /></td>
<td>性别</td>
<td><input name="性别" type="text" size="20" value="<%=rs("性别")%>" /></td>
</tr>
<tr>
<td>职称</td>
<td><input name="职称" type="text" value="<%=rs("职称")%>" size="20" /></td>
<td>出生年月</td>
<td><input name="出生年月" type="text" value="<%=rs("出生年月")%>" size="20" /></td>
</tr>
<tr>
<td>工龄</td>
<td><input name="工龄" type="text" size="20" value="<%=rs("工龄")%>" /></td>
<td>机构编号</td>
<td><input name="机构编号" type="text" size="20" value="<%=rs("机构编号")%>" /></td>
</tr>
<tr>
<td>项目编号</td>
<td><input name="项目编号" type="text" size="20" value="<%=rs("项目编号")%>" /></td>
<td>项目名称</td>
<td><input name="项目名称" type="text" size="20" value="<%=rs("项目名称")%>" /></td>
</tr>
<tr>
<td colspan="4">个人成就</td>
</tr>
<tr>
<td colspan="4">
<textarea name="个人成就" cols="100%" rows="10"><%=rs("个人成就")%></textarea>
</td>
</tr>
<tr>
<td colspan="4" align="center">
<input type="submit" name="Submit" value="保存" />
<a href="user management_b.asp">返回</a>
</td>
</tr>
</table>
</form>
<td>
</tr>
</table>
<%
end select
%>
</body>
</html>
运行之后，把修改的值，赋给了表的第一个用户。怎么改啊？！谢谢！
