在企業(yè)網(wǎng)站制作中經(jīng)常遇到分頁(yè)函數(shù)

在這里唐山網(wǎng)站制作公司長(zhǎng)城網(wǎng)絡(luò)推薦一個(gè)分頁(yè)類(lèi)！

通用分頁(yè)類(lèi)-基于葉子的分頁(yè)類(lèi)1.2修改版

1.提供不同樣式的分頁(yè),調(diào)用簡(jiǎn)單,只要更改樣式表,就可以顯示出不同的分頁(yè)樣式,提供了24種樣式
2.可以用在帶參數(shù)的頁(yè)面中,例如 1.asp?type=1&page=1,是很好的帶參數(shù)的分頁(yè)類(lèi)
3.分頁(yè)速度比普通顯示的速度快,效率高
 
步驟1:插入以下數(shù)據(jù)庫(kù)連接代碼
  <% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr %>
步驟2:插入分頁(yè)樣式表(這里提供了24中樣式,你可以根據(jù)自己需要來(lái)調(diào)用不同的樣式從page1.css-page24.css),點(diǎn)這里查看樣例
  <link href="page1.css" rel="stylesheet" type="text/css" />
步驟3:插入分頁(yè)類(lèi)調(diào)用
  <!--#include file="Cls_Page.asp"-->
步驟4:數(shù)據(jù)庫(kù)循環(huán)調(diào)用
  <table border="0" align="center">
<tr>
<td width="450">網(wǎng)址</td>
<td width="95">說(shuō)明</td>
<td width="200">發(fā)帖時(shí)間</td>
<td width="50">帳號(hào)密碼</td>
</tr>
<%
Set Page = new Cls_Page '創(chuàng)建對(duì)象
Set Page.Conn = conn '得到數(shù)據(jù)庫(kù)連接對(duì)象
With Page
.PageSize = 5 '每頁(yè)記錄條數(shù)
.MaxRecord= 0
.PageParm = "p" '頁(yè)參數(shù)
'.PageIndex = 10 '當(dāng)前頁(yè)，可選參數(shù)，一般是生成靜態(tài)時(shí)需要
.Database = "ac" '數(shù)據(jù)庫(kù)類(lèi)型,AC為access,MSSQL為sqlserver2000存儲(chǔ)過(guò)程版,MYSQL為mysql,PGSQL為PostGreSql
.Pkey="id" '主鍵
.Field="id,url,meno,addtime,y_id" '字段
.Table="url" '表名
.Condition="" '條件,不需要where
.OrderBy=" id desc" '排序,不需要order by,需要asc或者desc
.RecordCount = -1 '總記錄數(shù)，可以外部賦值，0不保存（適合搜索），-1存為session，-2存為cookies，-3存為applacation
.NumericJump = 9 '數(shù)字上下頁(yè)個(gè)數(shù)，可選參數(shù)，默認(rèn)為3，負(fù)數(shù)為跳轉(zhuǎn)個(gè)數(shù)，0為顯示所有
.Template = "共{$RecordCount}條 {$PageSize}條/頁(yè) {$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}" '整體模板，可選參數(shù)，有默認(rèn)值
.FirstPage = "首頁(yè)" '可選參數(shù)，有默認(rèn)值
.PreviousPage = "上一頁(yè)" '可選參數(shù)，有默認(rèn)值
.NextPage = "下一頁(yè)" '可選參數(shù)，有默認(rèn)值
.LastPage = "尾頁(yè)" '可選參數(shù)，有默認(rèn)值
.NumericPage = " {$PageNum} " '數(shù)字分頁(yè)部分模板，可選參數(shù)，有默認(rèn)值
End With
rs = Page.ResultSet() '記錄集
'rc = Page.RowCount() '可選，輸出總記錄數(shù)
nav = Page.Nav() '分頁(yè)樣式
If IsNull(rs) Then
Response.Write "<tr><td>暫無(wú)記錄</td></tr>"
Else
For i=0 To Ubound(rs,2)
%>

<tr>
<td><a href="<%= rs(1,i) %>" target="_blank"><%= rs(1,i) %></a></td>
<td><%= rs(2,i) %></td>
<td><%= rs(3,i) %></td>
<td><a href="listu.asp?id=<%= rs(4,i) %>" target="_blank">查看密碼</a></td>
</tr>
<%
Next
End If
%>
</table>
步驟5:在要顯示的地方插入下面分頁(yè)代碼
  <%Response.Write nav%>
至此分頁(yè)完成

分頁(yè)效果如下:

不同的分頁(yè)CSS文件也有

如有如要完整代碼 請(qǐng)聯(lián)系唐山網(wǎng)站制作公司長(zhǎng)城網(wǎng)絡(luò)