添加多条记录,急用,多谢

[Soja]

我从表中搜索出多条记录,在一个页面上显示,在此页面上可同时更改这些记录的"价格","涨跌","备注"等字段,在修改好这些记录后,当点"提交"按钮时,这此记录都同时 追加到表中.那位大虾能告诉我这些记录是怎么保存的吗?

下面是我写的程序:

<!--#include file="Conn.asp"-->
<%
rsnum = request("num")
area = request("area")
title = request("title")

%>
<%

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from market"
rs.open sql,conn,1,3

for i=1 to rsnum


spec=request.form("spec")
material=request("material")
factory=request("factory")
price=request("price")
fluctuate=request("fluctuate")
remark=request("remark")
shijian=date()



rs.addnew
rs("area")=area
rs("title")=title
rs("spec")=spec
rs("material")=material
rs("factory")=factory
rs("price")=price
rs("fluctuate")=fluctuate
rs("remark")=remark
rs("shijian")=shijian
rs.update



next

rs.close
set rs=nothing
Response.Write "<Script Language=JavaScript>alert('添加成功！');location.href='hunt_market.asp';</Script>"
%>

在搜索出一条记录时,对其更改,能够添加成功,但对多条搜索出的记录修改后,提交添加时就出错.请帮忙看看,我多给点分

[liangjianshi]

<!--#include file="Conn.asp"-->
<%
rsnum = request("num")
area = request("area")
title = request("title")

spec=split(request.form("spec"),",")
material=split(request("material"),",")
factory=split(request("factory"),",")
price=split(request("price"),",")
fluctuate=split(request("fluctuate"),",")
remark=split(request("remark"),",")
shijian=date()

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from market"
rs.open sql,conn,1,3


for i=0 to ubound(spec)-1

rs.addnew
rs("area")=area
rs("title")=title
rs("spec")=spec(i)
rs("material")=material(i)
rs("factory")=factory(i)
rs("price")=price(i)
rs("fluctuate")=fluctuate(i)
rs("remark")=remark(i)
rs("shijian")=shijian
rs.update



next

rs.close
set rs=nothing
Response.Write "<Script Language=JavaScript>alert('添加成功！');location.href='hunt_market.asp';</Script>"
%>

[liangjianshi]

for i=0 to ubound(spec)-1
或
for i=0 to rsnum-1

[leohuang]

你的表单是什么样的,贴出来

[邦迪代驾]

楼主是修改还是增加

[Soja]

<form name = "myform" action = "save_market.asp?num=<%=rs.recordcount%>" method="post" onSubmit="return CheckForm();">
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#ECF5FF" bordercolor="#A4B6D7">
<tr>
<td height="31" colspan="15" bgcolor="A4B6D7"><div align="center"><span class="style2">编 辑 <font color = white><%=rs("area")%></font> 地 区 行 情 信 息</span></div></td>
</tr>
<tr align = "center">
<td width="140" height = "30">品名</td>
<td width="163">规格</td>
<td width="125">材质</td>
<td width="69">钢厂/产地</td>
<td width="78">价格</td>
<td width="64">涨跌</td>
<td width="71">备注</td>
<td width="72">时间</td>

</tr>
</table>


<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#A4B6D7" bgcolor="#ECF5FF">
<%
rs.AbsolutePage=pagenum
for i=1 to intPagesize
%>
<tr align = "center">

<td height="26" width="140"><input name="title" type="text" value="<%=rs("title")%>" size="15"></td>

<td height="26" width="163"><input name="spec" type="text" value="<%=rs("spec")%>" size="15"></td>

<td height="26" width="125"><input name="material" type="text" value="<%=rs("material")%>" size="10"></td>

<td height="26" width="69"><input name="factory" type="text" value="<%=rs("factory")%>" size="8"></td>

<td width="78"><input name="price" type="text" value="<%=rs("price")%>" size="6"></td>

<td width="64"><input name="fluctuate" type="text" value="<%=rs("fluctuate")%>" size="6"></td>

<td width="71"><input name="remark" type="text" value="<%=rs("remark")%>" size="6"></td>

<td width="72"><%=date()%></td>
</tr>
<%
rs.movenext
next
%>
</table>

表单是这样的