(原创)<!--#include file="conn.asp" -->
通用数据分页类
通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再execute即可以取得当前页的所有数据.
此类所做的工作是只取得当前页的数据,和总页数和总记录数等等数据.
asp代码:
<%
'/*****************************分页显示类**************************
'/* 作者：哇哇鱼
'/* 日期：2004年11月18日
'/* 作用：取得某一页的数据并返回给外部
'/* 说明示例：
'/* dim mypage=new pageclass
'/* mypage.conn=conn '设置连接对象
'/* mypage.pagesize=20 '设置一页显示多少条数据 (默认为10条)
'/* mypage.curpage=2 '设置当前要显示的页码
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* mypage.tablename="member" '设置表名
'/* mypage.fields="id,membername,memberpass" '设置显示字段列表
'/* mypage.condition="id>100" '设置查询条件
'/* mypage.orderby="id desc" '设置排序条件（一定要设置该属性)
'/* set pagers=mypage.execute '返回当前第2页的数据(recordset对象)，如果出错则返回nothing值
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/*'以上的定义也可以用以下的方法：executeby("表名","字段列表","查询条件","排序条件")
'/* set pagers=mypage.executeby("member","id,membername,memberpass","id>100","id desc")
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* pagecount=mypage.pagecount '返回页码总数
'/* recordcount=mypage.recordcount '返回记录总数
'/* nextpage=mypage.nextpage '返回下页的页码
'/* prepage=mypage.prepage '返回上一页的页码
'/*****************************************************************
class pageclass
private connection '连接数据库的外部connection对象
private rs
private list_fields
private table_name
private query_where
private orderby_sql '字段排序语句部分
private page_count '返回当前查询的记录页总数
private page_size '设置一页显示多少条的记录
private cur_page '设置当前的页码
private record_count '返回当前查询的记录总数
'/****************设置connection对象****************************
public property let conn(byref objconn)
set connection=objconn
end property
public property get conn()
set conn=connection
end property
'/****************end******************************************
'/****************设置查询sql语句*******************************
''查询显示字段
public property let fields(byval value)
list_fields=value
end property
public property get fields()
fields=list_fields
end property
''查询表名
public property let tablename(byval value)
table_name=value
end property
public property get tablename()
tablename=table_name
end property
''查询条件
public property let condition(byval value)
query_where=value
end property
public property get condition()
condition=query_where
end property
''*****************排序部分********************************************
''value 语不用写上order by 。如： [object].orderby="id desc,posttime asc"
public property let orderby(byval value)
orderby_sql=value
end property
public property get orderby()
orderby=orderby_sql
end property
'/****************end******************************************
'/****************返回当前查询结果的总页数***********************
public property get pagecount()
pagecount=page_count
end property
public property get recordcount()
recordcount=record_count
end property
public property get nextpage()
if cur_page<page_count then
nextpage=cur_page+1
else
nextpage=page_count
end if
end property
public property get prepage()
if cur_page>1 then
prepage=cur_page-1
else
prepage=cur_page
end if
end property
'/****************end******************************************
'/****************设置一页显示的记录数***************************
public property let pagesize(byval value)
if not isnumeric(value) or value="" then
value=10
else
value=cint(value)
end if
if value<1 then value=10
page_size=value
end property
public property get pagesize()
pagesize=page_size
end property
''设置当前的页码数**************************
public property let page(byval value)
if not isnumeric(value) or value="" then
value=1
else
value=clng(value)
end if
if value<1 then value=1
cur_page=value
end property
public property get page()
page=cur_page
end property
'/****************end******************************************
private sub class_initialize
'初始化recordset对象
page_size=10 '默认一页为10条数据
curpage=1 '默认当前为第一页
record_count=0
page_count=0
end sub
private sub class_terminate
call closerecordset
end sub
'/***关闭数据库的连接*******
private sub closerecordset
on error resume next
if isobject(rs) then
rs.close
set rs=nothing
end if
on error goto 0
end sub
'/**********执行查询返回对应页码的数据***********************************************
public function executeby(byval otablename,byval ofields,byval ocondition,byval oorderby)
table_name=otablename
list_fields=ofields
query_where=ocondtion
orderby_sql=oorderby
set executeby=execute()
end function
'查询并返回当前curpage的页码记录
public function execute()
call closerecordset
on error resume next
dim tsql,topmod,swhere
if not isobject(connection) or table_name="" or orderby_sql="" then
set execute=nothing
record_count=0
page_count=0
exit function
end if
if trim(query_where)<>"" then
swhere="where "&query_where
else
swhere=""
end if
tsql="select count(*) from ["&table_name&"] "&swhere
record_count=connection.execute(tsql)(0) '获取记录总数
if err then
err.clear
set execute=nothing
record_count=0
page_count=0
exit function
end if
if record_count<1 then
set execute=nothing
record_count=0
page_count=0
exit function
end if
'取得页的总数
if record_count mod page_size <>0 then
topmod=record_count mod page_size
page_count=fix(record_count/page_size)+1
if cur_page<page_count then
topmod=page_size
end if
else
topmod=page_size
page_count=fix(record_count/page_size)
end if
if cur_page>page_count then cur_page=page_count
if cur_page<1 then cur_page=1
if trim(list_fields)="" then list_fields="*"
tsql="select * from (select top "&topmod&" * from (select top "&(cur_page*page_size)&" "&list_fields&" from ["&table_name&"] "&swhere&" order by "&orderby_sql&") order by "&transformorder(orderby_sql)&")order by "&orderby_sql
set rs=connection.execute(tsql)
if err then
err.clear
set execute=nothing
record_count=0
page_count=0
exit function
end if
set execute=rs
end function
'转换orderby的顺序 asc->desc desc->asc
private function transformorder(byval value)
if value="" then
transformorder=""
exit function
end if
dim orderarray,i,result,bystring,fields,inpos
orderarray=split(value,",") '分解每个字段值
for i=0 to ubound(orderarray)
if orderarray(i)<>"" then
inpos=instrrev(trim(orderarray(i))," ") '找出排序的顺序
if inpos<1 then '如果找不到则是asc排序
bystring="asc"
fields=orderarray(i)+" "
else
bystring=trim(mid(orderarray(i),inpos+1))
fields=left(orderarray(i),inpos)
if bystring<>"" then
bystring=ucase(bystring)
else
bystring="asc"
end if
end if
''转换排序
if bystring="asc" then
bystring="desc"
else
bystring="asc"
end if
result=result+fields+bystring+","
end if
next
if result<>"" then result=left(result,len(result)-1)
transformorder=result
end function
end class
'示例代码:
sub show_list
dim page,pagers
page=request("page")
dim mypage
set mypage=new pageclass
mypage.conn=conn
mypage.pagesize=20
mypage.page=page
mypage.tablename="table1"
mypage.fields="*"
mypage.orderby="id asc"
set pagers=mypage.execute
'set pagers=mypage.executeby("table1","*","","id asc")
if pagers is nothing then exit sub
do until pagers.eof
response.write " <tr bgcolor=""#fdfdfd"" style=""cursor:hand"" onmouseover=""this.style.background='#f3f3f3'"" onmouseout=""this.style.background='#fdfdfd'"">"
response.write " <td height=""20""><div align=""center"">"&pagers("id")&"</div></td>"
response.write " <td>"&pagers("aaaa")&"</td>"
response.write " <td><a href="""&pagers("bbbb")&"""><font color='#000000'>"&pagers("bbbb")&"</font></a></td>"
response.write " <td>"&pagers("cccc")&"</td>"
response.write " </tr>"
pagers.movenext
loop
pagers.close
pagecount=mypage.pagecount
page=mypage.page '取得当前正确的页码数
nextpage=mypage.nextpage
prepage=mypage.prepage
set pagers=nothing
set mypage=nothing
end sub
show_list
%>
申明：本教程内容由威凡网编辑整理并提供IT程序员分享学习，如文中有侵权行为，请与站长联系(QQ:254677821)！
