这个是什么错误，真搞不明白或,斑主来看一下吧

[复制链接]

一网情深

电梯直达

1^#

发表于 2010-1-19 06:01:18 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

这个是什么错误，真搞不明白或:

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

/message.asp，行 54


<table width="600" border="0" align="center">
<tr>
<td width="600" height="298" valign="top">
<div align="center">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from bbs "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<p align="center">还没有此类信息！</p>
<%
else
dim maxperpage
dim sql
dim rs
dim gsetbookid
dim totalput
dim currentpage
dim totalpages
filename="message.asp"
if not isempty(request("page")) then
currentpage=cint(request("page"))
else
currentpage=1
end if
rs.pagesize=3
totalput=rs.recordcount
totalput=rs.pagecount
maxperpage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalpage then
currentpage=totalpage
end if
if currentpage=1 then
showcontent
showpages1
else
if (currentpage-1)*maxperpage<totalput then
rs.move (currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark '行54
showcontent
showpages1
end if
end if
rs.close
end if
set rs=nothing
rs.close
set conn=nothing
%>
<%
sub showcontent
dim i,j

%>
<table width="520" border="0">
<%
i=1
do while not(rs.eof or rs.err)
%>
<tr>
<td height="34" align="center" valign="middle">
·</td>
<td align="left" valign="middle">
<a target='_blank' href="newbbs.asp?id=<%=rs("id")%>"><%=rs("bt")%></a>(<%=rs(date)%>)</td>
</tr>
<%
if i>=maxprepage then exit do
i=i+1
rs.movenext
loop
%>
<tr>
<td height="140" colspan="3" align="center">
<%
end sub
%>

收藏0