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

p;
 dim i
 dim k
％>
 <tr align="center" valign="middle">
 <td width="25％">ID1</td>
 <td width="25％">name1</td>
 <td width="25％">ID2</td>
 <td width="25％">name2</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>
 <td>
 <％
 rowcount=rowcount-1
 rs.MoveNext
 if not rs.EOF then
 ％>
 <％=rs("id")％>
 </td>
 <td width="25％"><％=rs("testname")％></td>
 </tr>
<％
 rowcount=rowcount-1
 rs.MoveNext
 else
 Response.Write " </td><td> </td></tr>"
 end if
 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
％>
 >>
 <％if currentpage = 1 then％>
 Top Previous
 <％else％>
 <a href="<％=request.ServerVariables("script_name")％>?page=1">Top</a>
 <a href="<％=request.ServerVariables("script_name")％>?page=<％=currentpage-1％>">
 Previous</a>
 <％end if％>
 <％if currentpage = n then％>
 Next Bottom
 <％else％>
 <a href="<％=request.ServerVariables("script_name")％>?page=<％=currentpage+1％>">Next</a>
 <a href="<％=request.ServerVariables("script_name")％>?page=<％=n％>">Bottom</a>
 <％end if％>
 
 Page:<％=currentpage％>/<％=n％>pages <％=msg_per_page％>notes/page Total:<％=totalrec％>notes
 <％end sub％>

上一页 [1] [2]

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

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

下一篇网站技术：一个用组件动态创建Excel文件的实例

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