28,390
社区成员
发帖
与我相关
我的任务
分享添加多条记录出错
同时像库中添加多条记录，但是每次都只入一条
bt=request.form("bt")
nr=request.form("nr")
ck=request.form("numlist")
kk=split(ck,",")
r_id=ubound(kk)
if request.form("sb")="发送" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from class_msg",con,3,3
for i=0 to r_id
rs.addnew
rs("ksbj_bm")=request.QueryString("bj") '取值肯定对
rs("senderid")=request.QueryString("bianhao") '取值也对
rs("title")=bt
rs("content")=nr
rs("receiverid")=kk(i)
rs("shijian")=now
rs.update
rs.movenext
next
rs.close
set rs=nothing
end if
我也单独验证kk(i)的值了，在我这个程序里，它收到4个值，但是在执行时，就入库了一条记录，其他的三条都没有进去，这是为什么呢？大家帮看看，谢谢了
bt=request.form("bt")
nr=request.form("nr")
ck=request.form("numlist")
kk=split(ck,",")
r_id=ubound(kk)
if request.form("sb")="发送" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from class_msg",con,3,3
for i=0 to r_id
rs.addnew
rs("ksbj_bm")=request.QueryString("bj") '取值肯定对
rs("senderid")=request.QueryString("bianhao") '取值也对
rs("title")=bt
rs("content")=nr
rs("receiverid")=kk(i)
rs("shijian")=now
rs.update
rs.movenext
next
rs.close
set rs=nothing
end if
我也单独验证kk(i)的值了，在我这个程序里，它收到4个值，但是在执行时，就入库了一条记录，其他的三条都没有进去，这是为什么呢？大家帮看看，谢谢了
...全文
请发表友善的回复…
发表回复
dicklee1214 2003-08-01
- 打赏
- 举报
rs.movenext不能移动i的值吧！还要另外控制i得值
lfengchao 2003-08-01
- 打赏
- 举报
不对啊
iceadf 2003-08-01
- 打赏
- 举报
kk是什么东东。
iceadf 2003-08-01
- 打赏
- 举报
UP
lfengchao 2003-08-01
- 打赏
- 举报
不是那个错误，i值自动增1
zorou_fatal 2003-07-31
- 打赏
- 举报
rs.movenext
把这个移走看看。
把这个移走看看。
