查人人中国名人网长方形的棱长公式:ASP怎么依次储存数据啊，有错误
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 19:13:41
表单提交
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From kind order by id asc"
i=0
rs.Open Sql,conn,1,1
do while not (rs.eof or rs.bof)
i=i+1
Response.Write("<tr bgcolor='#EEEEEE'><td> "&rs("id")&"</td><td> <input type='text' name='kind"&i&"' value='"&rs("kind")&"'></td><td align='center'><a href='admin_kind.asp?del="&rs("id")&"' class=p2>删除</a></td><td> </td></tr>")
rs.movenext
loop
rs.close
set rs=nothing
%>
存储数据
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From kind order by id asc"
rs.Open Sql,conn,3,3
i=1
do while request("kind"&i&"")<>""
rs("kind") =request("kind"&i&"")
i=i+1
rs.movenext
loop
rs.update
rs.close
%>
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/admin/adminsave.asp，行 12
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From kind order by id asc"
i=0
rs.Open Sql,conn,1,1
do while not (rs.eof or rs.bof)
i=i+1
Response.Write("<tr bgcolor='#EEEEEE'><td> "&rs("id")&"</td><td> <input type='text' name='kind"&i&"' value='"&rs("kind")&"'></td><td align='center'><a href='admin_kind.asp?del="&rs("id")&"' class=p2>删除</a></td><td> </td></tr>")
rs.movenext
loop
rs.close
set rs=nothing
%>
存储数据
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From kind order by id asc"
rs.Open Sql,conn,3,3
i=1
do while request("kind"&i&"")<>""
rs("kind") =request("kind"&i&"")
i=i+1
rs.movenext
loop
rs.update
rs.close
%>
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/admin/adminsave.asp，行 12
看不明白你的程序...
第一段的表单提交...有表单吗?
第二段...
do while request("kind"&i&"")<>""
rs("kind") =request("kind"&i&"")
i=i+1
rs.movenext
loop
rs.update
update应该在循环里面的吧...
在rs.Open Sql,conn,1,1 这个下面加一个判断：
if rs.bof or rs.eof then
response.write "还没有数据":response.end
else
do while not (rs.eof or rs.bof)
.....................