經典的分頁完整程式+注釋,對帶與不帶參數的網址通用,強力推薦

來源:互聯網
上載者:User
程式|分頁 <%
'以下程式是我的網站中的編程技術文章系統的部分代碼,著重突出分頁,因此其他無用代碼被清除,您可修改後應用
'本頁程式的完整範例請登陸我網站 http://www.lshdic.com 的“技術文章”欄目查看
on error resume next '防止使用者隨意修改網址造成錯誤
if request.querystring("page")="" then page=1:else:page=cint(request.querystring("page")) '的到網址中的頁數 page=?

set link1=server.createobject("ADODB.Connection") '串連資料庫
link1.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("資料庫1.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表1",link1,1,1 '這幾句定義記錄集的遊標及每頁儲存的記錄條數和當前頁設定,很重要
rs.pagesize=12
rs.AbsolutePage=page
if err.number<>0 then '防止了使用者惡意修改網址,和資料庫無記錄的錯誤
response.write "出現異常錯誤"
response.end
end if
%>
<base target='_blank'><!--使內容在新視窗彈出-->
<table border=1>
<%
for i=0 to rs.pagesize-1 '顯示具體的資料內容了,i+(page*13-13)+1 這個解決分頁後顯示具體的編號
if rs.eof then exit for
response.write "<tr><Td>" & i+(page*13-13)+1 & ":<A href='" & rs("串連") & "'> & rs("作者") & "</a></td></tr>"
rs.movenext
next
%>
<tr><Td align=right>
<base target='_top'><!--使分頁串連不在新視窗彈出,以下是我要著重講的完美分頁程式的完整程式了,您可根據需要修改-->
<%
pagelen=split(request.ServerVariables("Query_String"),"&") '得到網址 ?號 後面的參數網址
if UBound(pagelen)<1 then '如果網址是 xxx.asp?page=1 或 xxx.asp 類型的則用標準的分頁方法
if page>1 then response.write "<A href='a.asp?page=1'>首頁</a> <a href='a.asp?page=" & page-1 & "'>上頁</a> ":else:response.write "首頁 上頁 "
if page<rs.pagecount then response.write "<a href='a.asp?page=" & page+1 & "'>下頁</a> <a href='a.asp?page=" & rs.pagecount & "'>尾頁</a> ":else:response.write "下頁 尾頁 "
for i=1 to rs.pagecount
if i=page then response.write i & " ":else:response.write "<A href='a.asp?page=" & i & "'>" & i & "</a> "
next

else '如果網址是 xxx.asp?str1=參數&page=1 的類型則進行其他分頁方法

if page>1 then response.write "<A href='a.asp?" & pagelen(0) & "&page=1'>首頁</a> <a href='a.asp?" & pagelen(0) & "&page=" & page-1 & "'>上頁</a> ":else:response.write "首頁 上頁 "
if page<rs.pagecount then response.write "<a href='a.asp?" & pagelen(0) & "&page=" & page+1 & "'>下頁</a> <a href='a.asp?" & pagelen(0) & "&page=" & rs.pagecount & "'>尾頁</a> ":else:response.write "下頁 尾頁 "
for i=1 to rs.pagecount
if i=page then response.write i & " ":else:response.write "<A href='a.asp?" & pagelen(0) & "&page=" & i & "'>" & i & "</a> "
next
end if 'pagelen(0)等於 str1=參數
'pagelen(1)等於 page=1
rs.close '釋放資源
set rs=nothing
set link1=nothing
%>
</table></body></html>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。