bof eof 问题,请帮我改一下
以下是源码,其中有分页可一运行就出错(bofeof为真),到底是哪里出了问题<!--#includefile="open.asp"--><linkhref="images...
以下是源码,其中有分页
可一运行就出错(bof eof 为真),到底是哪里出了问题
<!--#include file="open.asp"-->
<link href="images/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #f2f2ea;
}
.style2 {color: #FFFFFF}
-->
</style>
<td valign=top width=418 align=center>
<table width="400" border="0" cellspacing="0">
<tr>
<td height="36" background="images/ShowBoard_top.gif"> </td>
</tr>
<tr>
<td background="images/ShowColumnClassInfo_bg.gif"><div align="right">**发表新留言**<span class="style2">&&&</span></div></td>
</tr>
<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from liuyan order by id desc"
rs.open sqlstr,conn,3,3
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数,注意page是自己定义的变量并非函数
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1
while not rs.eof and n<=rs.pagesize
%>
这里是循环内容
<%
n=n+1
rs.movenext '显示页面的数据
wend
%>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="liuyanchakan.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="liuyanchakan.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="liuyanchakan.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%> '加上页码连接
<%if nowpage<>1 then%>
<a href="liuyanchakan.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="liuyanchakan.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
</table>
<img src="images/ShowColumnClassInfo_bottom.gif" width="400" height="10"></td> 展开
可一运行就出错(bof eof 为真),到底是哪里出了问题
<!--#include file="open.asp"-->
<link href="images/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #f2f2ea;
}
.style2 {color: #FFFFFF}
-->
</style>
<td valign=top width=418 align=center>
<table width="400" border="0" cellspacing="0">
<tr>
<td height="36" background="images/ShowBoard_top.gif"> </td>
</tr>
<tr>
<td background="images/ShowColumnClassInfo_bg.gif"><div align="right">**发表新留言**<span class="style2">&&&</span></div></td>
</tr>
<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from liuyan order by id desc"
rs.open sqlstr,conn,3,3
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数,注意page是自己定义的变量并非函数
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1
while not rs.eof and n<=rs.pagesize
%>
这里是循环内容
<%
n=n+1
rs.movenext '显示页面的数据
wend
%>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="liuyanchakan.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="liuyanchakan.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="liuyanchakan.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%> '加上页码连接
<%if nowpage<>1 then%>
<a href="liuyanchakan.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="liuyanchakan.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
</table>
<img src="images/ShowColumnClassInfo_bottom.gif" width="400" height="10"></td> 展开
1个回答
展开全部
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from liuyan order by id desc"
rs.open sqlstr,conn,3,3
在这里加一句:if rs.bof and rs.eof then
response.write("数据库暂无数据")
else
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
注意后面加个end if
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from liuyan order by id desc"
rs.open sqlstr,conn,3,3
在这里加一句:if rs.bof and rs.eof then
response.write("数据库暂无数据")
else
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
注意后面加个end if
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询