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

哦，你要在修改表单后面加一个隐藏的文本框，name设置为一样的，里面记录数据库ID，而下面的修改数据也可以设置为同名的NAME。
你这个的话，把表单提交后使用request("")获得表单数据，因为同名的NAME获得的多个表单数据自动用逗号区分的，这样就可以用数组来循环取出，最后就可以循环修改了

Answer 2

是不是只往新表里存入最新人数？假如你测试提交的request("renshu")的结果的话，会发现这个结果是用,逗号隔开的数据组，包含你现在显示的这些数据120......等等。
所以，你要做的就是利用split把他们隔成数组，然后逐条插入到新的表中。需要注意的是，隔开之后的数字是带空格的，还得用trim来去掉空格再入库。

Answer 3

WM_ID=Replace(WM_ID, " ", "") /接收ID

if WM_ID<>"" then
WM_ID = Split(WM_ID, ",") /分隔ID
For i = 0 To UBound(WM_ID)
chrExPrice=request("ExPrice")(i+1) 接收的一个文本数组
chrSalePrice=request("SalePrice")(i+1) /接收的另一个文本数组
Conn.Execute ("Update Product Set SalePrice="&chrSalePrice&" ExPrice="&chrExPrice&" Where ProductID="& WM_ID(i))
Next
end if

追问

不好意思，没看明白，我想要保存数据那页的代码，能详细一点吗，谢谢。

追答

显示页面:"" then
renshu=split(renshu,",")
//split() 方法用于把一个字符串分割成字符串数组。
for i=0 to UBOUND(renshu) //UBound 函数可返回指示数组维数的最大下标。
conn.execute("insert into table 字段 values renshu(i)")
next
end if