读书人

分页代码数据源表没有记录的话就出错

发布时间: 2013-07-16 22:38:05 作者: rapoo

分页代码,数据源表没有记录的话就出错,该怎么改啊?
下面的代码,如果数据源表jsb有数据的话可以正常执行,但如果数据表没有记录的话就不能用,请问在数据表没有记录的情况下,怎么修改这段代码啊?

<!--#include file="../conn.asp" -->
<%
exec="select * from jsb "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=10
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%>

<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="8" bgcolor="#34A6DC" class="bg">教师情况表 <a href="xy1-2-add.asp" target="_self">添加记录</a></td>
</tr>
<tr>
<td colspan="8" class="bg"><div align="left">
<form id="form1" name="form1" method="post" action="">
<label>
<input type="hidden" name="textfield" value="<%=rs("xh")%>" />
</label>
</form>
</div></td>
</tr>
<tr>
<td width="10%" class="bg">教师编号</td>
<td width="11%" class="bg">教师姓名</td>
<td width="6%" class="bg">性别</td>
<td width="11%" class="bg">出生日期</td>
<td width="13%" class="bg"> </td>
<td width="11%" class="bg"> </td>
<td width="17%" class="bg"> </td>
<td width="21%" class="bg">操作</td>
</tr>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<tr bordercolor="#E6F7FB" bgcolor=#FFFFFF onmouseover="javascript:this.bgColor='#E6F7FB';"onmouseout="javascript:this.bgColor='#FFFFFF';" >
<td bordercolor="#F2F4F4"><%=rs("jsbh")%></td>


<td bordercolor="#F2F4F4"><%=rs("xm")%></td>
<td bordercolor="#F2F4F4"><%=rs("xb")%></td>
<td bordercolor="#F2F4F4"><%=rs("csrq")%></td>
<td bordercolor="#F2F4F4"> </td>
<td bordercolor="#F2F4F4"> </td>
<td bordercolor="#F2F4F4"> </td>
<td bordercolor="#F2F4F4"> </td>
</tr>
<%rs.movenext
next
%><tr>
<td colspan="8" align=right>
<%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="xy1-2lb.asp?page=<%=i%>"><%=i%></a> <%next%><a href="xy1-2lb.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="xy1-2lb.asp?page=<%=i%>"><%=i%></a> <%next%><a href="xy1-2lb.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录!</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录!</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="xy1-2lb.asp?page=<%=i%>"><%=i%></a> <%next%><a href="xy1-2lb.asp?page=<%=page-1%>">上一页</a>
<a href="xy1-2lb.asp?page=<%=page+1%>">下一页</a>  </div>


<%end if%></td>
</tr>
</table>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

asp 分页
[解决办法]
先判断一下是否有记录再取rs

读书人网 >ASP

热点推荐