怎麼把從數據庫中檢索的數據, 分頁

saf9 2002-05-17 06:15:58
怎麼把從數據庫中檢索的數據, 分頁
我現在把數據檢索出來,用table在頁面上顯示,但條數太多
請問怎麼把它們份成几頁,然後 用上一頁,和下一頁來預覽
...全文
8 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
saf9 2002-05-17
possible_Y(因为帅,判了8年!) 謝謝你
你的太詳細了,thank you
回复
saf9 2002-05-17
謝謝各位,我馬上編程
回复
possible_Y 2002-05-17
<%If Request.ServerVariables("CONTENT_LENGTH")=0 then
intCur=1
Else
intCur=CInt(Request.Form("CurPage"))

End If
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = "select * from 表名"
oRs.CursorType = 3
oRs.LockType = 3 'adLockOptimistic
oRs.pagesize= 5'每页要显示的记录数
oRs.Open
num=oRs.pagecount

Select Case Request.Form("Page")
Case "首 页"
intCur=1
Case "上一页"
intCur=intCur-1
Case "下一页"
intCur=intCur+1
Case "尾 页"
intCur=CInt(Request.Form("LastPage"))
End Select
oRs.AbsolutePosition = CInt(intCur)
for i = 1 to rs.pagesize
if oRs.eof then exit for
' 显示记录
rs.movenext
next
oRs.Close
set oRs=nothing
oConn.Close
Set oConn=Nothing

%>
<form action=Request.ServerVariables("SCRIPT_NAME") method=post>
<input type=hidden value="<%=intCur%>" name="CurPage">
<input type=hidden value="<%=num%>" name="LastPage">
<%if intCur>1 then%>
<input type=submit value="首 页" name="Page">
<input type=submit value="上一页" name="Page">
<%End If%>
<%if intCur<>num then%>
<input type=submit value="下一页" name="Page">
<input type=submit value="尾 页"name="Page">
<%End If%>
</form>
回复
ywz413 2002-05-17
但要记得 有可能有这么一个问题就是在第一页显示的时候是正常的,在第二页的时候就不按照你的检索条件显示了,而是把全部的结果都显示出来了,如果出现这种情况,可以再在这上面发帖子。
回复
aben527cn 2002-05-17
先用rs.pagesize=n设定每页的记录条数
然后用rs.pagecount得到总页数
再用rs.absolutepage=n把记录指针指向第n页的第一条记录
OK了
不过首先你的记录集要以3,1的参数打开
回复
coffee_cn 2002-05-17
<%
if not isnumeric(page) then page=1
rs.absolutepage = request("page")
rs.pagesize=3
for i = 1 to rs.pagesize
if rs.eof then exit for
' display the fields which you want to display
rs.movenext
next
%>

回复
jxwangzhigang 2002-05-17
采用rs的pagesize属性设置每页显示的数据条数
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-17 06:15
社区公告
暂无公告