ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/new.asp，行 56

以下是程序：






<%set rs=server.createobject("adodb.recordset")
sql="select * from news where shifou ='0'" '简体浏览最高的产品
rs.open sql,conn,3,1
max=15
z=0
If Not isempty(request("page")) then
currentpage=request("page")
Else
currentpage=1
End If
num=rs.Recordcount
pages=rs.Pagecount
i=1
rs.Move(max*(currentpage-1))
Do While not rs.Eof
%>
<tr bgcolor="#FFFFFF">
<td width="43%" height="25"><div align="center"><a href="news.asp?id=<%=rs("id")%>" target="_blank">·<%=rs("bt")%></a></div></td>
<td width="31%" height="25" align="center" class="font-hui"><div align="center"><%=rs("zz")%></div></td>
<td width="26%" height="25" align="center" class="font-hui"><div align="center"><%=rs("fbsj")%></div></td>
</tr>
<%
If i>=max then exit do
i=i+1
rs.movenext
Loop

If num mod max=0 then
numpage=num\max
Else
numpage=num\max+1
End If%>

[此贴子已经被作者于2007-6-25 22:07:09编辑过]