1栏分页显示（附显示的形式[1][2]），此程序可直接套用

电脑维修第一互动门户_www.PC106.com

为了方便您再次访问电脑维修站，请点击收藏本站！

设为首页

维修： CPU·主板·硬盘·内存·显卡·显示器·键盘鼠标·声卡音箱·软驱光驱·打印机·机箱电源·BIOS·网卡·局域网·浏览器

您现在的位置：电脑维修 >> 网站技术 >> ASP技术 >> ASP技巧 >> 网站技术正文

1栏分页显示（附显示的形式[1][2]），此程序可直接套用

作者：佚名文章来源：不详点击数：更新时间：2007-2-14 14:57:28

p;        'pagesize：设置每一页的数据记录数

            dim i
            dim k
％>
        <tr align="center" valign="middle">
            <td width="50％">ID</td>
            <td width="50％">name</td>
        </tr>
        <％do while not rs.eof and rowcount > 0％>
        <tr align="center" valign="middle">
            <td width="25％"><％=rs("id")％></td>
            <td width="25％"><％=rs("testname")％></td>
        </tr>
<％
                        rowcount=rowcount-1
                        rs.MoveNext
            loop
        end if
    end if
    rs.close
    set rs=nothing
％>

</table>
<table border="0" align="center">
  <tr>
    <td align="center" valign="middle">
      <％call listPages()％>
    </td>
  </tr>
</table>
</body>
</html>
<％
    sub listPages()
        if n <= 1 then exit sub
            for i=0 to n\msg_per_page-1
                for j=1 to msg_per_page
％>
                    <font size="2" color="#006600">
                    <a href="<％=request.ServerVariables("script_name")％>?page=<％=i*msg_per_page+j ％>">[<％ =i*msg_per_page+j ％>]</a></font>
         <％
                next
            next
            EndPage = n mod msg_per_page
            for j=1 to EndPage
         ％>
                <font size="2" color="#006600">
                <a href="<％=request.ServerVariables("script_name")％>?page=<％ =i*msg_per_page+j ％>">[<％ =i*msg_per_page+j ％>]</a></font>
          <％next％>
          <font color=black face="arial" >
          Page:<％=currentpage％>/<％=n％>pages  <％=msg_per_page％>notes/page Total:<％=totalrec％>notes</font>
  <％end sub％>

上一页 [1] [2]

上网速度更快更爽、更安全下载使用Firefox火狐浏览器

网站技术录入：admin 责任编辑：admin

上一篇网站技术：一个分离中文英文的函数。

下一篇网站技术： 2栏分页显示（附显示的形式[1][2]），此程序可直接套用

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】