asp 取数据库内容
--------------conn.asp-----------------<%Session.CodePage=65001Response.Charset="utf-...
--------------conn.asp-----------------
<%
Session.CodePage=65001
Response.Charset = "utf-8"
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("/noticedb/notice.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & dbpath
set rs=Server.CREATEOBJECT("ADODB.RECORDSET")
%>
---------------------------
<body>
<!--#include file="conn.asp" -->
<%
sql1="select *from [notice] where id order by id desc"
rs.open sql1,conn,1,1
rs.pagesize=10
rs.absolutepage=1
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
%>
</body>
上面代码能取出数据库里面的内容，但是当数据库没内容是就显示错误了
提示如下：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/1.asp, 第 15 行
怎么才能让它不提示错误 正常显示网页的内容呢
以上代码是我精简出来的---- 整体代码太多了 展开
<%
Session.CodePage=65001
Response.Charset = "utf-8"
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("/noticedb/notice.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & dbpath
set rs=Server.CREATEOBJECT("ADODB.RECORDSET")
%>
---------------------------
<body>
<!--#include file="conn.asp" -->
<%
sql1="select *from [notice] where id order by id desc"
rs.open sql1,conn,1,1
rs.pagesize=10
rs.absolutepage=1
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
%>
</body>
上面代码能取出数据库里面的内容，但是当数据库没内容是就显示错误了
提示如下：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/1.asp, 第 15 行
怎么才能让它不提示错误 正常显示网页的内容呢
以上代码是我精简出来的---- 整体代码太多了 展开
展开全部
改成:
<%
sql1="select *from [notice] where id order by id desc"
rs.open sql1,conn,1,1
if not rs.eof and not rs.bof then
rs.pagesize=10
rs.absolutepage=1
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
end if
%>
<%
sql1="select *from [notice] where id order by id desc"
rs.open sql1,conn,1,1
if not rs.eof and not rs.bof then
rs.pagesize=10
rs.absolutepage=1
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
end if
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
sql1="select *from [notice] order by id desc"
rs.open sql1,conn,1,1
if rs.eof and rs.bof then
else
page=trim(request("page"))
if not isnumeric(page) then
page=1
end if
rs.pagesize=10
rs.absolutepage=page
for i=1 to rs.pagesize
%>
<p><%=rs("title")%>
<%
rs.movenext
next
end if
%>
</body>
rs.open sql1,conn,1,1
if rs.eof and rs.bof then
else
page=trim(request("page"))
if not isnumeric(page) then
page=1
end if
rs.pagesize=10
rs.absolutepage=page
for i=1 to rs.pagesize
%>
<p><%=rs("title")%>
<%
rs.movenext
next
end if
%>
</body>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
%>
改成:
<%if not rs.eof then
do until rs.eof
%>
<p><%=rs("title")%>
<% rs.movenext
loop
end if %>
if rs.eof then
exit for
end if
%>
<p><%=rs("title")%>
<%
rs.movenext
next
%>
改成:
<%if not rs.eof then
do until rs.eof
%>
<p><%=rs("title")%>
<% rs.movenext
loop
end if %>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
