如何实现ASP分页功能

2024-12-20 20:01:52

推荐回答（4个）

回答1：

我来试试看：

<%
set rsc=server.createobject("adodb.recordset")
sqlc="select * from news where class='"&rs("class")&"' order by id desc"
rsc.open sqlc,conn,1,1

Response.write "

"
rsc.PageSize = 10 'pagesize属性指定了每页要显示的记录条数
Page = CLng(Request("Page")) ’string型转化为long型
If Page < 1 Then Page = 1
If Page > rsc.PageCount Then Page = rsc.PageCount
If Page <> 1 Then
Response.Write "第一页�"
Response.Write "上一页�"
End If
If Page <> rsc.PageCount Then
Response.Write "下一页�"
Response.Write "最后一页�"
End If
Response.write "页码：" & Page & "/" & rsc.PageCount & ""
rsc.AbsolutePage = Page '把页码赋给absolutepage属性从而知当前页的首条记录号
For iPage = 1 To rsc.PageSize

%>

<%

rsc.MoveNext
If rsc.EOF Then Exit For
Next
%>

"><%=rsc("title")%>	<%=rsc("time")%>	<%=rsc("by")%>

td>

<%
rs.close
rsc.close
set rs=nothing
set rsc=nothing
conn.close
set conn=nothing
%>

回答2：

每页显示多少条纪录可以用rsc.pagesize方法来控制
共多少条记录用rs.count来统计数据库里的数目
前页,1,2,3,尾页这些你可以用？参数来传递值，定义显示第几页
如果index.asp?page=1,显示第1页,因为有pagesize来控制每页的数量,所以游标从第1条读取到第10条的时候就会停止并显示出来
index.asp?page=2,道理和1一样,只需要在数字前加上超连接,用request.queststring获取到page的值.

说得很乱,希望能帮助到你.

回答3：

　　源代码如下

<%
set rsc=server.createobject("adodb.recordset")
sqlc="select * from news where class='"&rs("class")&"' order by id desc"
rsc.open sqlc,conn,1,1
do until rsc.eof
%>

"><%=rsc("title")%>

<%=rsc("time")%>
<%=rsc("by")%>
<% rsc.movenext
loop %>

td>

<%
rs.close
rsc.close
set rs=nothing
set rsc=nothing
conn.close
set conn=nothing
%>
我要如何实现分页功能：
让他每页显示10条记录,然后
当前共条记录前页 1,2,3,尾页

回答4：

上这里看看，挺全的~

http://tech.163.com/05/0613/10/1M4CJM6S00091589.html