%
select case Request("action")
case "modi"
call modi()
case "edit"
call edit()
end select
%>
<%
sub modi()
dim rsMemAdd
dim id
dim sql
id=clng(Request.QueryString("id"))
set rsMemAdd=Server.CreateObject("adodb.recordset")
sql="select * from [syc_member] where ID="&id
rsMemAdd.open sql,conn,1,3
%>
<form action="ad_memmod.asp?action=edit" method="post" name="ad_memmod">
<br />
<br />
<br />
<br />
<br />
<br />
<table width="61%" border="0" align="center">
<tr>
<td width="22%"><div align="center" class="STYLE6">
<div align="right">成员昵称</div>
</div></td>
<td width="78%"><div align="center" class="STYLE4">
<input name="mem_id" type="text" id="mem_id" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_id")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">所在专业</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_subject" type="text" id="mem_subject" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_subject")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">主攻方面</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_work" type="text" id="mem_work" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_work")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">联系QQ</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_qq" type="text" id="mem_qq" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_qq")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">联系EMAIL</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_mail" type="text" id="mem_mail" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_mail")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">最喜欢的一句话</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_words" type="text" id="mem_words" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_words")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">blog地址</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_blog" type="text" id="mem_blog" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_blog")%>" size="50"/>
</div></td>
</tr>
<tr>
<td><div align="center" class="STYLE6">
<div align="right">爱好</div>
</div></td>
<td><div align="center" class="STYLE4">
<input name="mem_favor" type="text" id="mem_favor" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" value="<%=rsMemAdd("mem_favor")%>" size="50"/>
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center" class="STYLE4">
<br />
<hr />
<br />
<br />
<br />
<input type="submit" name="Submit" value="我写好了" />
</div></td>
</tr>
</table>
</form>
<%
rsMemAdd.close
set rsMemAdd=nothing
conn.close
set conn=nothing
end sub
%>
<%
sub edit()
dim mem_id,mem_subject,mem_work,mem_qq,mem_mail,mem_words,mem_blog,mem_favor
mem_id=Request.form("mem_id")
mem_subject=Request.form("mem_subject")
mem_work=Request.form("mem_work")
mem_qq=Request.form("mem_qq")
mem_mail=Request.form("mem_mail")
mem_words=Request.form("mem_words")
mem_blog=Request.form("mem_blog")
mem_favor=Request.form("mem_favor")
dim id
dim sql
dim rsMemAdd
id=clng(Request.QueryString("id"))
set rsMemAdd=Server.CreateObject("adodb.recordset")
sql="select * from [syc_member] where ID="&id
rsMemAdd.open sql,conn,1,3
rsMemAdd("mem_id")=mem_id
rsMemAdd("mem_subject")=mem_subject
rsMemAdd("mem_work")=mem_work
rsMemAdd("mem_qq")=mem_qq
rsMemAdd("mem_mail")=mem_mail
rsMemAdd("mem_words")=mem_words
rsMemAdd("mem_blog")=mem_blog
rsMemAdd("mem_favor")=mem_favor
rsMemAdd.update
rsMemAdd.close
set rsMemAdd=nothing
conn.close
set conn=nothing
response.write "修改成功!"
end sub
%>
这是源文件，目的是修改记录，可是读取都正常，就是最后点修改时报RT错误。求助。谢谢
