（原創vince6799）
在asp程式碼中分頁是有點麻煩的事情，個人在程式碼編寫過程中把分頁程式碼寫成了兩個函數，雖然在功能上不是很完善，但對於一般的應用應該是滿足的了。
<%
'分頁函數分為兩個函數
'CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs) 分頁計算函數
'PageList(ListType,url,querry,Separator,ListLink) 分頁列表函數
'分頁計算函數
'totalrec 記錄集總數
'msg_per_page 每頁顯示的記錄數,在呼叫CalcPage時需事先對該變數賦值
'currentpage 當前頁變數,在呼叫CalcPage時需提前對該變數賦值
'n 總頁數
'rowcount 設定每一頁的資料記錄數
'PageRs 記錄集對象
sub CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs)
n=0 '設定無記錄時頁數為0
if currentpage="" then currentpage=0
'PageRs.EOF and PageRs.bof 無記錄
'Not PageRs.EOF Or Not PageRs.BOF 有記錄
if Not PageRs.EOF Or Not PageRs.BOF then
totalrec=PageRs.recordcount
PageRs.pagesize=msg_per_page
if totalrec mod msg_per_page = 0 then '計算總頁數,recordcount:資料的總記錄數
n = totalrecmsg_per_page 'n:總頁數
else
n = totalrecmsg_per_page+1
end if
if not isnumeric(currentpage) or currentpage="" then currentpage=1
If currentpage <> "" then
currentpage = cint(currentpage)
end if
if currentpage < 1 then
currentpage = 1
end if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec) then
currentPage=1
end if
PageRs.absolutepage = currentpage 'absolutepage：設定指標指向某頁開頭
rowcount = PageRs.pagesize 'pagesize：設定每一頁的資料記錄數
end if
end sub
%>
<%
'分頁列表函數
'url 跳轉的地址
'querry ?後的參數
'Separator 分隔符
'ListType 分頁類型
'類型:0 "第一頁| 前一頁| 下一頁| 最後頁"
'類型:1 "1 | 2 | 3 | 4 | ..........| 下一頁"
'類型:2 "第一頁| 前十頁| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 後十頁| 最後頁"
'ListLink 連結使用的樣式
sub PageList(ListType,url,querry,Separator,ListLink)
if Separator="" then Separator="|"
if ListType="" then ListType="0"
select case ListType
case "0"
response.write"第"¤tpage&"/"&n&"頁 "
response.write"共"&totalrec&"條訊息 "
if currentpage <= 1 then
response.write"第一頁 "&Separator&" "
response.write"前一頁 "&Separator&" "
else
response.write"<a href="""&url&"?page=1&"&querry&""" class="""&ListLink&""">第一頁</a> "&Separator&" "
response.write"<a href="""&url&"?page="¤tpage-1&"&"&querry&""" class="""&ListLink&""">前一頁</a> "&Separator&"  ;"
end if
if currentpage = n then
response.write"下一頁 "&Separator&" "
response.write"最後頁 "
else
response.write"<a href="""&url&"?page="¤tpage+1&"&"&querry&""" class="""&ListLink&""">下一頁</a> "&Separator&"  ;"
response.write"<a href="""&url&"?page="&n&"&"&querry&""" class="""&ListLink&""">最後頁</a> "
end if
case "1"
if currentpage < n then
response.write"<a href="""&url&"?page="¤tpage+1&"&"&querry&""" class="""&ListLink&""">下一頁</a> "
else
response.write"下一頁 "
end if
for i=1 to n
if cstr(i)=cstr(currentpage) then
response.write "<b>"&i&"</b>"&" "&Separator&" "
else
response.write"<a href="""&url&"?page="&i&"&"&querry&""" class="""&ListLink&""">"&i&"</a> "&Separator&" "
end if
next
case "2"
PageMerCout=10 '每次可翻的最大頁數
'取得記錄的最大頁碼段
if n mod PageMerCout=0 then
MaxPageFiled=nPageMerCout
else
MaxPageFiled=nPageMerCout+1
end if
'判斷目前頁所在的頁碼段
if currentpage mod PageMerCout =0 then
CurrPageFiled=currentpagePageMerCout
else
CurrPageFiled=currentpagePageMerCout+1
end if
'取得目前頁碼段的最大頁碼和最小頁碼
MaxPageNo=CurrPageFiled*PageMerCout
MinPageNo=(CurrPageFiled-1)*PageMerCout+1
'輸出“第一頁| 前十頁|”
if currentpage<=1 then
response.write"第一頁 "&Separator&" "
else
response.write"<a href="""&url&"?page=1&"&querry&""" class="""&ListLink&""">第一頁</a> "&Separator&" "
end if
if CurrPageFiled<=1 then
response.write"前十頁 "&Separator&" "
else
response.write"<a href="""&url&"?page="&MinPageNo-PageMerCout&"&"&querry&""" class="""&ListLink&""">前十頁</a> "&Separator&"  ;"
end if
'輸出目前頁碼段
for i=MinPageNo to MaxPageNo
if i<=n then
if cstr(i)=cstr(currentpage) then
response.write "<b>"&i&"</b>"&" "&Separator&" "
else
response.write"<a href="""&url&"?page="&i&"&"&querry&""">"&i&"</a> "&Separator&" "
end if
end if
next
'輸出“後十頁| 最後頁”
if CurrPageFiled>=MaxPageFiled then
response.write"後十頁 "&Separator&" "
else
response.write"<a href="""&url&"?page="&MaxPageNo+1&"&"&querry&""" class="""&ListLink&""">後十頁</a> "&Separator&"  ;"
end if
if currentpage>=n then
response.write"最後頁 "
else
response.write"<a href="""&url&"?page="&n&"&"&querry&""" class="""&ListLink&""">最後頁</a> "
end if
end select
end sub
%>