首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

分页代码,数据源表没有记录的话就出错,该如何改啊

2013-07-16 
分页代码,数据源表没有记录的话就出错,该怎么改啊?下面的代码,如果数据源表jsb有数据的话可以正常执行,但

分页代码,数据源表没有记录的话就出错,该怎么改啊?
下面的代码,如果数据源表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">&nbsp;</td>
    <td width="11%" class="bg">&nbsp;</td>
    <td width="17%" class="bg">&nbsp;</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">&nbsp;</td>
    <td bordercolor="#F2F4F4">&nbsp;</td>
    <td bordercolor="#F2F4F4">&nbsp;</td>
    <td bordercolor="#F2F4F4">&nbsp;</td>
  </tr>
    <%rs.movenext
next
%><tr>
<td  colspan="8" align=right>
<%if page=1 and not page=pagecount then%>
            <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
<a   href="xy1-2lb.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="xy1-2lb.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>
             <%elseif page=pagecount and not page=1 then%>
            <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
<a   href="xy1-2lb.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="xy1-2lb.asp?page=<%=page-1%>">上一页</a>&nbsp;&nbsp;</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%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
<a   href="xy1-2lb.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="xy1-2lb.asp?page=<%=page-1%>">上一页</a> 
              <a   href="xy1-2lb.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>


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

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

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

热点排行