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

[saf9]

怎麼把從數據庫中檢索的數據, 分頁
我現在把數據檢索出來,用table在頁面上顯示,但條數太多
請問怎麼把它們份成几頁,然後 用上一頁,和下一頁來預覽

[jxwangzhigang]

采用rs的pagesize属性设置每页显示的数据条数

[coffee_cn]

<%
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
%>

[aben527cn]

先用rs.pagesize=n设定每页的记录条数
然后用rs.pagecount得到总页数
再用rs.absolutepage=n把记录指针指向第n页的第一条记录
OK了
不过首先你的记录集要以3,1的参数打开

[ywz413]

但要记得 有可能有这么一个问题就是在第一页显示的时候是正常的，在第二页的时候就不按照你的检索条件显示了，而是把全部的结果都显示出来了，如果出现这种情况，可以再在这上面发帖子。

[possible_Y]

<%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>

[saf9]

謝謝各位,我馬上編程

[saf9]

possible_Y(因为帅，判了8年！) 謝謝你
你的太詳細了,thank you