很好用的,样式多的asp分页类

来源:转载

调用示例:

<数据库连接代码自己写>
要现实的页面head部分加上
<link href=”page1.css” rel=”stylesheet” type=”text/css” />
page1.css -page24.css 可选,样式看后面的图

下面调用类文件 <!#include file=”Cls_Page.asp”>

<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>

插入下面分页代码
<%Response.Write nav%>

样式示例:


分享给朋友:
您可能感兴趣的文章:
随机阅读: