Question

asp中修改记录

我通过表单插入了一条数据到表siliuji1中，现在我想通过同样的一个表单提交一条数据（2数据姓名相同）来覆盖原有的数据，代码如下：
<!--#include file="conn.asp"-->
<%

dim sql,sql1,sql2,rs,rs1,rs2,idnum,name,phone,dept,language,xh1,xh,id
if session("uid")="" then
response.redirect"login.asp"
end if
id=session("uid")
sql="select * from siliuji1 where 姓名='"&id&"'"
sql1="select * from student"
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs1.open sql1,conn,1,1
if not rs.eof then
name=rs("姓名")
xh1=rs1("学号")
idnum=request.form("idnum")
phone=request.form("phone")
dept=request.form("usertype")
language=request.form("usertype1")
if name<>"" then
sql2="select * from siliuji1 where 姓名='"&id&"'"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
rs2("姓名")=name
rs2("学号")=xh1
rs2("身份证号")=idnum
rs2("联系方式")=phone
rs2("院系编号")=dept
rs2("语言级别代码")=language
rs2.update
response.redirect "ok.asp?w=修改成功"
end if
end if

%>
请大大们帮我看看有什么地方出问题了，报错说是在rs2("院系编号")=dept，并且服务器端报错说多个OLE DB没有执行，没有工作被完成
应该怎么处理？

Answer 1

rs2.open sql2,conn,1,3或者rs2.open sql2,conn,3,3

还有就是rs2跟rs都是统一的表在查询，没必要开2次

Answer 2

你打开的记录集太多了。一个就行
关闭记录集试试
rs.close
rs1.close
rs2.close