在企业网站制作中经常遇到分页函数
在这里唐山网站制作公司长城网络推荐一个分页类!
通用分页类-基于叶子的分页类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文件也有
如有如要完整代码 请联系唐山网站制作公司长城网络