在企業網站制作中經常遇到分頁函數
在這里唐山網站制作公司長城網絡推薦一個分頁類！
通用分頁類-基于葉子的分頁類1.2修改版
1.提供不同樣式的分頁,調用簡單,只要更改樣式表,就可以顯示出不同的分頁樣式,提供了24種樣式
2.可以用在帶參數的頁面中,例如 1.asp?type=1&page=1,是很好的帶參數的分頁類
3.分頁速度比普通顯示的速度快,效率高
步驟1:插入以下數據庫連接代碼
<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr %>
步驟2:插入分頁樣式表(這里提供了24中樣式,你可以根據自己需要來調用不同的樣式從page1.css-page24.css),點這里查看樣例
<link href="page1.css" rel="stylesheet" type="text/css" />
步驟3:插入分頁類調用
<!--#include file="Cls_Page.asp"-->
步驟4:數據庫循環調用
<table border="0" align="center">
<tr>
<td width="450">網址</td>
<td width="95">說明</td>
<td width="200">發帖時間</td>
<td width="50">帳號密碼</td>
</tr>
<%
Set Page = new Cls_Page '創建對象
Set Page.Conn = conn '得到數據庫連接對象
With Page
.PageSize = 5 '每頁記錄條數
.MaxRecord= 0
.PageParm = "p" '頁參數
'.PageIndex = 10 '當前頁，可選參數，一般是生成靜態時需要
.Database = "ac" '數據庫類型,AC為access,MSSQL為sqlserver2000存儲過程版,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 '總記錄數，可以外部賦值，0不保存（適合搜索），-1存為session，-2存為cookies，-3存為applacation
.NumericJump = 9 '數字上下頁個數，可選參數，默認為3，負數為跳轉個數，0為顯示所有
.Template = "共{$RecordCount}條 {$PageSize}條/頁 {$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}" '整體模板，可選參數，有默認值
.FirstPage = "首頁" '可選參數，有默認值
.PreviousPage = "上一頁" '可選參數，有默認值
.NextPage = "下一頁" '可選參數，有默認值
.LastPage = "尾頁" '可選參數，有默認值
.NumericPage = " {$PageNum} " '數字分頁部分模板，可選參數，有默認值
End With
rs = Page.ResultSet() '記錄集
'rc = Page.RowCount() '可選，輸出總記錄數
nav = Page.Nav() '分頁樣式
If IsNull(rs) Then
Response.Write "<tr><td>暫無記錄</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:在要顯示的地方插入下面分頁代碼
<%Response.Write nav%>
至此分頁完成
分頁效果如下:
不同的分頁CSS文件也有
如有如要完整代碼 請聯系唐山網站制作公司長城網絡