XDOWNPAGE ASP版本 分页类

文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-XDOWNPAGE ASP版本 分页类的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

<%
''===================================================================
''XDOWNPAGE ASP版本
''版本 1.00
''Code by zykj2000
''Email: zykj_2000@163.net
''BBS: http://bbs.513soft.net
''本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
''但请保留以上请息
''
''程序特点
''本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
''支持URL多个参数
''
''使用说明
''程序参数说明
''PapgeSize 定义分页每一页的记录数
''GetRS 返回经过分页的Recordset此属性只读
''GetConn 得到数据库连接
''GetSQL 得到查询语句
''程序方法说明
''ShowPage 显示分页导航条,唯一的公用方法
''
''===================================================================

Const Btn_First="<font face=""webdings"">9</font>" ''定义第一页按钮显示样式
Const Btn_Prev="<font face=""webdings"">3</font>" ''定义前一页按钮显示样式
Const Btn_Next="<font face=""webdings"">4</font>" ''定义按钮显示样式
Const Btn_Last="<font face=""webdings"">:</font>" ''定义最后一页按钮显示样式
Const XD_Align="Center" ''定义分页信息对齐方式
Const XD_Width="100%" ''定义分页信息框大小

Class Xdownpage
Private XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL


''=================================================================
''PageSize 属性
''设置每一页的分页大小
''=================================================================
Public Property Let PageSize(int_PageSize)
If IsNumeric(Int_Pagesize) Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error & "PageSize的参数不正确"
ShowError()
End If
End Property
Public Property Get PageSize
If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then
PageSize=10
Else
PageSize=XD_PageSize
End If
End Property

''=================================================================
''GetRS 属性
''返回分页后的记录集
''=================================================================
Public Property Get GetRs()
Set XD_Rs=Server.createobject("adodb.recordset")
XD_Rs.PageSize=PageSize
XD_Rs.Open XD_SQL,XD_Conn,1,1
If not(XD_Rs.eof and XD_RS.BOF) Then
If int_curpage>XD_RS.PageCount Then
int_curpage=XD_RS.PageCount
End If
XD_Rs.AbsolutePage=int_curpage
End If
Set GetRs=XD_RS
End Property

''================================================================
''GetConn 得到数据库连接
''
''================================================================
Public Property Let GetConn(obj_Conn)
Set XD_Conn=obj_Conn
End Property

''================================================================
''GetSQL 得到查询语句
''
''================================================================
Public Property Let GetSQL(str_sql)
XD_SQL=str_sql
End Property



''==================================================================
''Class_Initialize 类的初始化
''初始化当前页的值
''
''==================================================================
Private Sub Class_Initialize
''================