asp分页代码

Question

要求每行显示2条数据的分页

Answer 1

记录集名为rs，粘贴上就能用
<%
rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page
%>
<div ALIGN="right">
<table width="100%">
<tr>
<form ACTION="<%=Myself%>?pages=<%=pages%>" METHOD="GET"> <td>
<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
最后一页</a> <% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页:</font><font COLOR="Red" SIZE="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
</td>
</form>
</tr>
</table>
</div>

Answer 2

<%
rs.PageSize
=
2
'每页显示记录数
Page
=
CLng(Request("Page"))
If
Page
<
1
Then
Page
=
1
If
Page
>
rs.PageCount
Then
Page
=
rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage
=
Page
%>
<div
ALIGN="right">

<table
width="100%">

<tr>

<form
ACTION="<%=Myself%>?pages=<%=pages%>"
METHOD="GET">
<td>

<p
ALIGN="right"><%If
Page
<>
1
Then
'
如果不是位于第一页%>

<a
href="<%=Myself%>?Page=1&pages=<%=pages%>">

第一页</a>

<a
HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">

上一页</a>

<%
End
If
If
Page
<>
rs.PageCount
Then
'
如果不是位于最后一页
%>
<a
HREF="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">

下一页</a>

<a
HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">

最后一页</a>
<%
End
If
%>
<font
SIZE="2">输入页次:</font><input
NAME="Page"
SIZE="3"
CLASS="s01">

<font
SIZE="2">页:</font><font
COLOR="Red"
SIZE="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>

</td>

</form>

</tr>

</table>
</div>

Answer 3

我的实例，自己参考，我的是10个记录分页

dim pageCount,recordcount
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
rs.PageSize=10 '设置分页
recordcount=rs.recordcount
PageCount=rs.PageCount '取得总页
if page>PageCount then page=PageCount
if not(rs.eof and rs.bof) then
i=1
rs.AbsolutePage=page '设置页码
do while not rs.eof
response.Write i
response.Write ".<a href='down.asp?id="& rs(0) &"'>"
response.Write rs(1)
response.Write "</a><br/>"

rs.movenext
i=i+1
if i>10 then exit do
loop
rs.close
set rs=nothing

else
end if
conn.close
set conn=nothing
response.Write "<a href='list.asp?ty="&tt&"&page="&(page+1)&"'>下页</a>."
response.Write "<a href='list.asp?ty="&tt&"&page="&(page-1)&"'>上页</a>"
response.Write "("&page&"/"&PageCount&"页)<br/>"

Answer 4

rs.pagesize=5是设置每页显示几条记录
for
i=
1
to
rs.pagesize
和
rs.movenext
next
就组成一个循环
I=1是从第一条开始,一直循环到I=5
中间插入循环输出的数据

Answer 5

786946501
给分给你调试