bof eof 问题,请帮我改一下

来源:百度知道 编辑:UC知道 时间:2024/06/28 13:37:35
以下是源码,其中有分页
可一运行就出错(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")

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