'建立下拉列表框，用於選擇瀏覽頁碼
response.write("第")
for i=1 to objrs.pagecount
if objrs.absolutepage=i then
response.write(""&i&"") '當前頁碼
else
response.write(""&i&"")
end if
next
response.write("頁 ")
end sub
%>
pagesize=分頁中記錄條數
<%
sql="select id,title form table order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=15 '每頁記錄數
page=cint(request("page"))
if page="" or page=0 then
page=1
else
page=page
end if
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.bof or rs.eof then
exit for
end if
%>
<%=rs("id")%> <%=rs("title")%>
<%
rs.movenext
next
%>
總共有 <%=rs.recordcount%> 條記錄
<%
if page <= 1 then
response.write "首頁 上一頁 "
end if
if page > 1 then
response.write "首頁 "
response.write "上一頁 "
end if
if page < rs.pagecount then
response.write "下一頁 "
response.write "末頁 "
end if
if page >= rs.pagecount then
response.write "下一頁 末頁 "
end if
%>
<%for j=1 to rs.pagecount%>
"<%if j=page then%>selected<%end if%>><%=j%>
<%next%>
第<%=page%>頁/共<%=rs.pagecount%>頁
完整儲存過程分頁
面的set rowcount n語句：
declare @pagesize int --每頁紀錄數
declare @reccounts int --資料庫總的紀錄數
declare @pagecounts int --根據每頁紀錄數和資料庫總的紀錄數返回的總頁數
declare @intbeginid int --特定頁的第一條（最小）紀錄
declare @introwcount int --臨時變數
declare @currentpage int --當前頁
select @pagesize=10 --每頁10條紀錄
select @currentpage=5 --設定當前頁
select @reccounts=count(1) from procurement_requisition --返回所有紀錄數
if @reccounts/@pagesize*@pagesize=@reccounts
set @pagecounts=@reccounts/@pagesize --返回總頁數
else
set @pagecounts=@reccounts/@pagesize+1 --返回總頁數
set @introwcount=(@currentpage-1)*@pagesize+1 --特定頁的第一條(最小）紀錄在所有紀錄中的位置（使用了order by)
set rowcount @introwcount
select @intbeginid=pr_no from procurement_requisition order by pr_no
set rowcount @pagesize
print @intbeginid
select * from procurement_requisition where pr_no>=@intbeginid order by pr_no
set rowcount 0
記錄集分頁顯示策略
可以有以下五種方法實現 1.使用forward only的resultset，rs.next 移動記錄集就可以了 選從50 100 行int currentrow 1 int minrow 50 int maxrow 100 while rs.next if currentrow 2.使用可滾動記錄...
記錄集分頁 方法2
有時候，大家是不是因為寫一些重複的 而感到煩惱呢？由於在做asp程式時，很多時候都要用到分頁，重複作分頁程式錯誤多不說了，而且影響到作程式的積極性，故寫一分頁函式，方便大家呼叫。如下 programmname 分頁函式 programmed by bubuy 2003.10.16 function ...
記錄集分頁顯示策略
記錄集分頁顯示策略 可以有以下五種方法實現 1.使用forward only的resultset，rs.next 移動記錄集就可以了 選從50 100行 int currentrow 1 int minrow 50 int maxrow 100 while rs.next if currentrow...