|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天分页|分页<%
===================================================================
ShowMorePageASP版本
VersionHuangJM1.00
Codebymaomao
CreateDate2004-09-28
QQ:5144707
http://blog.csdn.net/maomaoysq
Writeformylover:HuangJM本程序能够无偿使用、修正,但请保存以上信息
function
本程序次要是对数据分页的部分举行了封装,而数据显现部分完整由用户自界说,
撑持URL多个参数:http://www.***.com/***.asp?aa=1&page=9&bb=2
Paramers:
PapgeSize界说分页每页的纪录数
GetCurPageNum前往以后页的纪录集数量此属性只读
GetRS前往经由分页的Recordset此属性只读
GetConn失掉数据库毗连
GetSQL失掉查询语句
InterfaceofClass
ShowPage显现分页导航条,独一的公用办法
#############类挪用样例#################
创立工具
SethjmPage=newShowMorePage
失掉数据库毗连
hjmPage.getconn=conn
sql语句
hjmPage.getsql="select*fromshop_bookswherenewsbook=1orderbybookiddesc"
设置每页的纪录条数据为20条,默许显现10条
hjmPage.pagesize=20
显现分页信息,可在恣意地位挪用,能够挪用屡次
hjmPage.showpage()
setrs=hjmPage.getrs()前往Recordset
显现数据入手下手
这里就能够自界说显现体例了
fori=1tohjmPage.GetCurPageNum以后页的纪录数量
response.writeleft(trim(rs("bookname")),13)&"...."
rs.movenext
next
显现数据停止
sethjmPage=nothing
#############类挪用样例#################
===================================================================
ConstBtn_First="<fontface=""webdings"">9</font>"界说第一页按钮显现款式
ConstBtn_Prev="<fontface=""webdings"">3</font>"界说前一页按钮显现款式
ConstBtn_Next="<fontface=""webdings"">4</font>"界说下一页按钮显现款式
ConstBtn_Last="<fontface=""webdings"">:</font>"界说最初一页按钮显现款式
ConstXD_Align="Center"界说分页信息对齐体例
ConstXD_Width="100%"界说分页信息框巨细
ClassShowMorePage
PrivateObj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord
=================================================================
PageSize属性
设置每页的分页巨细
=================================================================
PublicPropertyLetPageSize(intvalue)
IfIsNumeric(intvalue)Then
int_PageSize=CLng(intvalue)
Else
Str_Errors=Str_Errors&"PageSize的参数不准确"
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
Ifint_PageSize=""or(not(IsNumeric(int_PageSize)))Then
PageSize=10
Else
PageSize=int_PageSize
EndIf
EndProperty
=================================================================
GetRS属性
前往分页后的纪录集
=================================================================
PublicPropertyGetGetRs()
ifInt_TotalRecord=0thenCallGetPage()
Ifnot(Obj_Rs.eofandObj_Rs.BOF)Then
ifInt_CurPage1then
ifInt_CurPage-1<Int_TotalPagethen
Obj_Rs.move(Int_CurPage-1)*PageSize
dimbookmark
bookmark=Obj_Rs.bookmark
else
Int_CurPage=1
endif
endif
EndIf
SetGetRs=Obj_Rs
EndProperty
=================================================================
GetCurPageNum属性
前往以后页的纪录集数量
=================================================================
PublicPropertyGetGetCurPageNum()
dimint_PageNum
int_PageNum=int_PageSize
ifInt_TotalRecord=0thenCallGetPage()
IfInt_CurPage>Int_TotalPageThen
Int_CurPage=Int_TotalPage
int_PageNum=Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
ElseIfInt_CurPage=Int_TotalPageThen
int_PageNum=Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
EndIf
GetCurPageNum=int_PageNum
EndProperty
================================================================
GetConn失掉数据库毗连
================================================================
PublicPropertyLetGetConn(sconn)
SetObj_Conn=sconn
EndProperty
================================================================
GetSQL失掉查询语句
================================================================
PublicPropertyLetGetSQL(svalue)
Str_Sql=svalue
EndProperty
==================================================================
Class_Initialize类的初始化
初始化以后页的值
==================================================================
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|