我的代码是这样的
<%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("ec.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select*from sp_inf where user='"&session("name")&"' union select*from sp_inf2 where user='"&session("name")&"'"
rs.open sql,conn,1,3
%>
<% if rs.eof or rs.bof then
 response.write("您当前没发布纪录")
 end if
  %>
<%
if not rs.eof or rs.bof then   
    Dim intPage                           
    If Request("varPage")="" Then   
        intPage=1
    Else
        intPage=CInt(Request("varPage"))    '
    End If
        rs.PageSize=1                                    
    rs.AbsolutePage=intPage   
session("num")=""&rs("num")&""
 %>
 
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<% dim j
  for j=0 to rs.pagesize
  if rs.eof then exit for
 %>
  <tr>
    <td width="100" height="100"><img src="<%=rs("image") %>" width="100" height="100" /></td>
    <td width="400"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="20%" height="30">商品名称：</td>
        <td width="80%" height="20"><div align="left"><%= rs("sp_name") %></div></td>
      </tr>
      <tr>
        <td height="30">上传时间：</td>
        <td height="20"><div align="left"><%=rs("date")%></div></td>
      </tr>
      <tr>
        <td height="30"><a href="login_choice_edit.asp?id=<%=rs("id")%>">编辑</a></td>
        <td height="20"><div align="left"><a href="login_choice_delete.asp?id=<%=rs("id")%>">删除</a></div></td>
      </tr>
    </table></td>
  </tr>
  <% rs.movenext
next
end if
 %>
  <tr>
    <td height="20" colspan="2">总共有<%= rs.pagecount %>页 | 当前是第<%=intpage %>页 &nbsp;&nbsp;&nbsp;&nbsp;
         <%
if intpage>1 then
response.Write "<a href='login_choice.asp?varpage="&(intpage-1)&"'>上一页</a>&nbsp;|&nbsp;"
else
response.Write "上一页&nbsp;|&nbsp;"
end if
if intpage<rs.pagecount then
response.Write "<a href='login_choice.asp?varpage="&(intpage+1)&"'>下一页</a>&nbsp;|&nbsp;"
else
response.Write "下一页&nbsp;|&nbsp;"
end if
%>
  </tr>

</table>

当数据库为空的时候会显示
ADODB.Recordset 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/login_choice_past.asp，行 21
我想让它显示“您没发布纪录”这个得怎么修改代码？

在对数据进行操作前先做个判断，看指针是否到底。

也可以查询符合条件的记录数！