Question

asp从一表里调用的多条数据,批量添加到另一个表里

这个图里的数据是通过一个数据表里查询得到的，而且这个数据的条数是不固定的，想把这些查询的数据分条提交到数据库另外一个新表，如何来做。单条提交我会做，多条不知道怎么操作，有高人帮忙下，谢谢。
查询数据代码：
<table width="95%" border="0" align="center" cellspacing="1">
<%
dim rs2,sql2,id
set rs2=server.createobject("adodb.recordset")
sql2="select * from xinxi order by id asc"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
else
do while not rs2.eof
id=cdbl(rs2("jbxx_id"))
%>
<tr>
<td width="4%" height="20" align="center" valign="middle">·</td>
<td width="23%"><input name="renshu" type="text" id="renshu" value="<%=rs2("renshu")
%>" /></td>
<td width="14%"> </td>
<td width="18%"><%=rs2("shijian")%></td>
</tr>
<%
rs2.movenext
loop
end if
%>
</table>
想求向数据库写数据，分条写入数据库的代码，谢谢。

Answer 1

只要提交jbxx_id这个字段的数据吗？ 可以这样写：

显示程序加上表单：
<form name="form1" action="add.asp" method="post">
<table width="95%" border="0" align="center" cellspacing="1">
<%
dim rs2,sql2,id
set rs2=server.createobject("adodb.recordset")
sql2="select * from xinxi order by id asc"
rs2.open sql2,conn,1,1
do while not rs2.eof
id=cdbl(rs2("jbxx_id"))
%>
<tr>
<td width="4%" height="20" align="center" valign="middle">·</td>
<td width="23%"><input name="renshu" type="text" id="renshu" value="<%=rs2("renshu")%>" /></td>
<td width="14%"> </td>
<td width="18%"><%=rs2("shijian")%></td>
</tr>
<%
rs2.movenext
loop
%>
</table>
<input type="submit" name="submit" value="批量提交">
</form>
添加程序add.asp：
数据库连接代码略去...
<%
dim rs2,sql2,id
set rs2=server.createobject("adodb.recordset")
sql2="select * from newtable" '这里的newtable改成新表名
rs2.open sql2,conn,1,3
rs2.addnew
for i=1 to request.form("renshu").count
rs2("jbxx_id")=request.form("renshu")(i)
rs2.update
next
rs2.close
%>
数据库关闭代码略去...

追问

add.asp代码：alert('添加成功!');location.href='piliang.asp'")
rs2.close %>只能提交最后一条数

追答

哦 弄错了
你把 rs2.addnew 往下移一行，放到循环里面。