中科新闻网卡农舞蹈视频表演:asp与access连接问题2?
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 12:25:30
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/asp/ljw/newuseradd.asp, 第 91 行
我的代码是:82行<%else
dim connstr,conn,rs,sql
connstr="dbq=" & server.MapPath("mdb/shop.mdb") & ";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from guest"
rs.Open sql,conn,3,3
91行if rs.EOF=true then
rs.MoveLast
end if
rs.addnew
rs("yonghuname")=temp
rs("name")=name
rs("password")=pw1
rs("tel")=tel
rs("addr")=addr
rs("zip")=zip
rs("email")=email
rs.Update
rs.close
conn.close
set conn=nothing
set rs=nothing
%>
<script language="javascript">
alert("已经成功添加了一条记录！谢谢！")
document.location="main.asp"
</script>
<% end if%>
在结果集末尾添加一条记录，直接用rs.Addnew语句，不用检测记录指针有不有到达记录集的末尾。也就是说：去掉以下三行语句
91行if rs.EOF=true then
rs.MoveLast
end if
试试吧！
<%else
dim connstr,conn,rs,sql
connstr="dbq=" & server.MapPath("mdb/shop.mdb") & ";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from guest"
rs.Open sql,conn,3,3
rs.addnew
rs("yonghuname")=temp
rs("name")=name
rs("password")=pw1
rs("tel")=tel
rs("addr")=addr
rs("zip")=zip
rs("email")=email
rs.Update
rs.close
conn.close
set conn=nothing
set rs=nothing
%>
<script language="javascript">
alert("已经成功添加了一条记录！谢谢！")
document.location="main.asp"
</script>
<% end if%>
91行??
这样试试
if not rs.bor or not rs.eof then
rs.MoveLast
end if