<% dim i,bookname(30),zuozhe(30),chubanshe(30),outtime(30),piece(30),leibie(30),jianjie(30)
set rs=server.createobject("adodb.recordset")
sql="select * from allbook"
rs.open sql,conn,1,3
for i=0 to 29
bookname(i)=request("bookname"&i)
zuozhe(i)=request("zuozhe"&i)
chubanshe(i)=request("chubanshe"&i)
outtime(i)=request("outtime"&i)
piece(i)=request("piece"&i)
leibie(i)=request("leibie"&i)
jianjie(i)=request("jianjie"&i)
response.write bookname(i)
if bookname(i)="" and zuozhe(i)="" and chubanshe(i)="" and outtime(i)="" and piece(i)="" and leibie(i)="" and jianjie(i)=""  Then exit for
next
response.write j
for i=0 to j
rs.addnew
rs("bookname")=bookname(i)
rs("zuozhe")=zuozhe(i)
rs("chubanshe")=chubanshe(i)
rs("outtime")=outtime(i)
rs("piece")=piece(i)
rs("leibie")=leibie(i)
rs("jianjie")=jianjie(i)
rs.update
next
response.write("本次共添加了")
response.write i
response.write("条数据")
response.write "<br><a href=insbook.asp>我还要添加</a>"
response.write "<br><a href=updatebook.asp>我要修改数据</a>"
%>

ya

很好

说说怎么改拉，，，我现在烦恼中拉！！

这个问题我解决了，想看的人就回帖吧！！

你搏梦啊~~~

你有能力就帮我改好，^_^，，，

<% dim conn,sql,i,j i=0 j=0 call openDB() for i=1 to request.Form("id").count if request.Form("num")(i)<>""then if getnum(request.Form("id")(i)) and getnum(request.Form("num")(i)) then sql="update 计划 set 预订数量="&request.form("num")(i)&" where 本季征订代号="&request.form("id")(i)&"" conn.execute(sql) j=j+1 else response.write"<script>alert('请检查第"&i&"行的数据，预订册数应该是大于等于1的整数');</script>" end if end if next call closeDB() response.Write("<script>alert('成功添加"&j&"了条正确数据,返回');window.location.href='plannum.asp';</script>") %>

还是那个阿