当access数据库数据为空时如何让它不显示或者当前的记录已被删除，所需的操作要求一个当前的记录
我的代码是这样的<%
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 %>页
<%
if intpage>1 then
response.Write "<a href='login_choice.asp?varpage="&(intpage-1)&"'>上一页</a> | "
else
response.Write "上一页 | "
end if
if intpage<rs.pagecount then
response.Write "<a href='login_choice.asp?varpage="&(intpage+1)&"'>下一页</a> | "
else
response.Write "下一页 | "
end if
%>
</tr>
</table>
当数据库为空的时候会显示
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/login_choice_past.asp，行 21
我想让它显示“您没发布纪录”这个得怎么修改代码？
