Question

插入多条记录asp

set rs_buy=conn.execute("select * from buy where zu=false and bianhao='"&request("bianhao")&"' order by id ")
<tr align="center">
<td><input type="text" name="bianhao" style="width:160px" value="<%=rs_buy("bianhao")%>"></td>
<td>
<input type="text" name="title" style="width:160px" value="<%=rs_buy("title")%>">
</td>
<td>
<input type="text" name="huohao" style="width:100px" value="<%=rs_buy("huohao")%>">
</td>
<td>
<input type="text" name="shulian" style="width:100px" value="<%=rs_buy("shulian")%>">
</td>
<td>
<input type="text" name="price2" style="width:100px" >
</td>
</tr>
<%
rs_buy.movenext
loop
%>

nowhuohao=request("huohao")
nowshulian=request("shulian")
nowprice2=request("price2")
nowtitle=request("title")
nowbeizhu=request("beizhu")
if nowprice2="" then
nowprice2=0
end if
set rs_buy=server.createobject("ADODB.RecordSet")
sql="select * from buy where zu=false and bianhao='"&request("bianhao")&"'"
rs_buy.open sql,conn,1,1
do while rs_buy.eof=false
向SELL里面插入值
set rs=server.createobject("ADODB.RecordSet")
rs.open"select * from sell",conn,1,3
rs.addnew
rs("bigclass")=rs_buy("bigclass")
rs("smallclass")=rs_buy("smallclass")
rs("id_produit")=rs_buy("id_produit")
rs("title")=nowtitle
rs("huohao")=nowhuohao
rs("id_ku")=nowku
rs("shulian")=nowshulian
rs("price")=rs_buy("price")
rs("price2")=nowprice2
rs("guige")=rs_buy("guige")
rs("beizhu")=nowbeizhu
rs.update

rs_buy.movenext
loop

rs.close
set rs=nothing

rs_buy.close
set rs_buy=nothing

我现在只能插入一条数据，多条就提示Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'rs'
rs.close
85行 set rs=nothing
/produit/produit_add1.asp，行 85
要将订单表内"buy"记录（1条或者多条）插入在另外一个表"sell"里，有时需要在原来的基础上增加几个字段
有可能要将原来的数字修改后，再添加到SELL里面
三楼的你好，按照你说的方法，已经修改好，但是没有任何记录

Answer 1

这个地方改一下就行啦：
------------------------------
...
rs.update

rs_buy.movenext
loop

rs.close
set rs=nothing
...
---------------------------------
修改为：
---------------------------------
...
rs.update
rs.close
set rs=nothing

rs_buy.movenext
loop
...
-------------------------------------------
原因分析：你要求每rs_buy.movenext都要
set rs=server.createobject("ADODB.RecordSet")
rs.open"select * from sell",conn,1,3
一次，如果只添加一条记录就看不出问题，但要添加多条记录的话，放谁谁受得了？你上次的RS都没关呢，又要打开？

Answer 2

do while rs_buy.eof=false ------> do while not rs_buy.eof

rs_buy.movenext
RS_OK=1
loop
这里要多加一个，因为如果WHILE不循环，你关闭的RS，根本不存在嘛！
IF RS_OK=1 THEN
rs.close
set rs=nothing
END IF

Answer 3

do while有问题，你这个不循环。