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

;          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]

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

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

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

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