UC知道ASP分列翻页显示！！！
来源：百度知道 编辑：UC知道 时间：2024/05/20 03:29:01
<!--#include file="conn.asp"-->
<%
i=0
pageno=Request("pageno")
if pageno="" then
pageno=1
end if
set rs_Product=server.createobject("adodb.recordset")
sqltext="select * from 商品 order by 编号 desc"
rs_Product.open sqltext,conn,1,1
rs_Product.AbsolutePage=pageno'第几页数
rs.PageSize=20'每页记录数
i=i+1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<%row_count=1%>
<tr>
<%Do While Not rs_Product.EOF%>
<td><%=i%></td>
<%if row_count mod 5 <>0 then%>
<%end if%>
<%if row_count mod 5 =0 then%>
</tr>
<tr>
<%end if%>
<%
rs_Prod
<%
i=0
pageno=Request("pageno")
if pageno="" then
pageno=1
end if
set rs_Product=server.createobject("adodb.recordset")
sqltext="select * from 商品 order by 编号 desc"
rs_Product.open sqltext,conn,1,1
rs_Product.AbsolutePage=pageno'第几页数
rs.PageSize=20'每页记录数
i=i+1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<%row_count=1%>
<tr>
<%Do While Not rs_Product.EOF%>
<td><%=i%></td>
<%if row_count mod 5 <>0 then%>
<%end if%>
<%if row_count mod 5 =0 then%>
</tr>
<tr>
<%end if%>
<%
rs_Prod
<%Do While Not rs_Product.EOF%>
<tr>
<%for n=1 to 5 %>
<td><%=i%></td>
<%
rs_Product.MoveNext
if rs_Product.eof then exit for
i=i+1
next
%>
</tr>
<%
Loop %>
<a href="1.asp">首 页</a>
<%if pageno<=1 then%>
<%="上一页"%>
<%else%>
<a href="1.asp?pageno=<%=pageno-1%>">上一页</a>
<%end if
if pageno>=rs_Product.pagecount then%>
<%="下一页"%>
<%else%>
<a href="1.asp?pageno=<%=pageno+1%>">下一页</a>
<%end if%>
<a href="1.asp?pageno="<%=rs_Product.pagecount%>">尾 页</a>
共<%=rs_Product.pagecount %>页
你试试看
<%
if not rs.eof then
tel=rs.recordcount
shum=15
rs.pagesize=shum
maxpage=rs.p