'=====================================================================
'xdownpage asp版本
'版本 1.00
'code by zykj2000
'email: zykj_2000@163.net
'bbs: http://bbs.513soft.net
'本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
'但请保留以上请息
'
'程序特点
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
'支持url多个参数
'
'使用说明
'程序参数说明
'papgesize 定义分页每一页的记录数
'getrs 返回经过分页的recordset此属性只读
'getconn 得到数据库连接
'getsql 得到查询语句
'程序方法说明
'showpage 显示分页导航条,唯一的公用方法
'
'例:
'
' '包含文件
'
' set mypage=new xdownpage '创建对象
' mypage.getconn=conn '得到数据库连接
' mypage.getsql="select * from productinfo order by id asc"
' mypage.pagesize=5 '设置每一页的记录条数据为5条
' set rs=mypage.getrs() '返回recordset
' mypage.showpage() '显示分页信息，这个方法可以，在set rs=mypage.getrs()以后
' 任意位置调用，可以调用多次
' for i=1 to mypage.pagesize '接下来的操作就和操作一个普通recordset对象一样操作
' if not rs.eof then '这个标记是为了防止最后一页的溢出
' response.write rs(0) & "
" '这里就可以自定义显示方式了
' rs.movenext
' else
' exit for
' end if
' next
'
'=====================================================================
const btn_first="9" '定义第一页按钮显示样式
const btn_prev="3" '定义前一页按钮显示样式
const btn_next="4" '定义下一页按钮显示样式
const btn_last=":" '定义最后一页按钮显示样式
const xd_align="center" '定义分页信息对齐方式
const xd_width="100%" '定义分页信息框大小
const xd_height="20"
class xdownpage
private xd_pagecount,xd_conn,xd_rs,xd_sql,xd_pagesize,str_errors,int_curpage,str_url,int_totalpage,int_totalrecord
'=================================================================
'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
'========================
'设定一些参数的黙认值
'========================
xd_pagesize=10 '设定分页的默认值为10
'========================
'获取当前面的值
'========================
if request("page")="" then
int_curpage=1
elseif not(isnumeric(request("page"))) then
int_curpage=1
elseif cint(trim(request("page")))<1 then
