请问该如何进行对数据表中第一个记录进行更新数据？

hwj2000 2004-02-07 04:41:09

我的程序也都通过了，但更新之后发现数据并没有发生循环，而只是更新了第一个记录的数据，请看下面的代码，是不是文本哉的NAME“i”的取值有问题？
这是提交数据的页面：
<%
Set cnnDB = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("../database/mzyx.mdb")
cnnDB.Open strCon
Set rstTitle = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From mzyx"
rstTitle.Open strSQL, cnnDB,1,3
i=1
j=1
while not rstTitle.eof
%>
<form name="form1" method="post" action="cxupdatasave.asp">
<table width="477" border="0" align="center" cellspacing="1" bgcolor="#FFCC99">
<tr align="left" valign="top" bgcolor="#FFFFFF">
<td width="105" height="18" align="center">
<input name=i type="text" size="12">
<%=rstTitle("bj")%></td>
<td width="365">
<textarea name=j cols="50"></textarea></td>
</tr>
</table>
<%rstTitle.movenext
i=i+1
j=j+1
wend
%>
<input type="submit" name="Submit" value="开始更新">
</form>
这是保存数据的页面代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%if request.Cookies("super")<>"啊呀，狐狸"then
response.Redirect("../index.asp")
end if
%>
<%
Set cnnDB = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("../database/mzyx.mdb")
cnnDB.Open strCon
Set rstTitle = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From mzyx"
rstTitle.Open strSQL, cnnDB,2,2
i=1
while not rstTitle.eof
rstTitle("xm")=request("i")
rstTitle("js")=request("j")
rstTitle.movenext
i=i+1
wend
%>
<%response.Redirect("mzyx.asp")%>
<html>

...全文