分享
 
 
 

超级ASP大分页_我的类容我做主

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<%

'===================================================================

'ShowMorePage ASP版本

'Version HuangJM1.00

'Code by maomao

'Create Date 2004-09-28

'QQ:5144707

'http://blog.csdn.net/maomaoysq

'Write for my lover:HuangJM '本程序可以免费使用、修改,但请保留以上信息

'

'function

'本程序主要是对数据分页的部分进行了封装,而数据显示部份完全由用户自定义,

'支持URL多个参数:http://www.***.com/***.asp?aa=1&page=9&bb=2

'

'

'Paramers:

'PapgeSize 定义分页每一页的记录数

'GetCurPageNum 返回当前页的记录集数目此属性只读

'GetRS 返回经过分页的Recordset此属性只读

'GetConn 得到数据库连接

'GetSQL 得到查询语句

'Interface of Class

'ShowPage 显示分页导航条,唯一的公用方法

'

'#############类调用样例#################

'创建对象

'Set hjmPage=new ShowMorePage

'得到数据库连接

'hjmPage.getconn=conn

'sql语句

'hjmPage.getsql="select * from shop_books where newsbook=1 order by bookid desc"

'设置每一页的记录条数据为20条,默认显示10条

'hjmPage.pagesize=20

'显示分页信息,可在任意位置调用,可以调用多次

'hjmPage.showpage()

'set rs=hjmPage.getrs() '返回Recordset

'显示数据开始

'这里就可以自定义显示方式了

'for i=1 to hjmPage.GetCurPageNum '当前页的记录数目

'response.write left(trim(rs("bookname")),13)&"...."

'rs.movenext

'next

'显示数据结束

'set hjmPage=nothing

'#############类调用样例#################

'===================================================================

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 ShowMorePage

Private Obj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord

'=================================================================

'PageSize 属性

'设置每一页的分页大小

'=================================================================

Public Property Let PageSize(intvalue)

If IsNumeric(intvalue) Then

int_PageSize=CLng(intvalue)

Else

Str_Errors=Str_Errors & "PageSize的参数不正确"

ShowError()

End If

End Property

Public Property Get PageSize

If int_PageSize="" or (not(IsNumeric(int_PageSize))) Then

PageSize=10

Else

PageSize=int_PageSize

End If

End Property

'=================================================================

'GetRS 属性

'返回分页后的记录集

'=================================================================

Public Property Get GetRs()

if Int_TotalRecord= 0 then Call GetPage()

If not(Obj_Rs.eof and Obj_Rs.BOF) Then

if Int_CurPage<>1 then

if Int_CurPage-1<Int_TotalPage then

Obj_Rs.move (Int_CurPage-1)*PageSize

dim bookmark

bookmark=Obj_Rs.bookmark

else

Int_CurPage=1

end if

end if

End If

Set GetRs=Obj_Rs

End Property

'=================================================================

'GetCurPageNum 属性

'返回当前页的记录集数目

'=================================================================

Public Property Get GetCurPageNum()

dim int_PageNum

int_PageNum = int_PageSize

if Int_TotalRecord= 0 then Call GetPage()

If Int_CurPage>Int_TotalPage Then

Int_CurPage=Int_TotalPage

int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize

ElseIf Int_CurPage=Int_TotalPage Then

int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize

End If

GetCurPageNum = int_PageNum

End Property

'================================================================

'GetConn 得到数据库连接

'

'================================================================

Public Property Let GetConn(sconn)

Set Obj_Conn=sconn

End Property

'================================================================

'GetSQL 得到查询语句

'

'================================================================

Public Property Let GetSQL(svalue)

Str_Sql=svalue

End Property

'==================================================================

'Class_Initialize 类的初始化

'初始化当前页的值

'

'==================================================================

Private Sub Class_Initialize

'========================

'设定一些参数的黙认值

'========================

int_PageSize=10 '设定分页的默认值为10

Int_TotalRecord= 0

'========================

'获取当前面的值

'========================

If request("page")="" Then

Int_CurPage=1

ElseIf not(IsNumeric(request("page"))) Then

Int_CurPage=1

ElseIf CInt(Trim(request("page")))<1 Then

Int_CurPage=1

Else

Int_CurPage=CInt(Trim(request("page")))

End If

End Sub

'====================================================================

'openRS 打开数据集

'有首页、前一页、下一页、末页、还有数字导航

'

'====================================================================

Private Sub openRS()

Set Obj_Rs=Server.createobject("adodb.recordset")

Obj_Rs.Open Str_Sql,Obj_Conn,1,1

End Sub

'====================================================================

'getPage 创建分页导航条

'有首页、前一页、下一页、末页、还有数字导航

'

'====================================================================

Private Sub GetPage()

If TypeName(Obj_Rs)<>"Object" Then Call openRS()

Int_TotalRecord=Obj_Rs.RecordCount

If Int_TotalRecord<=0 Then

Str_Errors=Str_Errors & "总记录数为零,请输入数据"

Call ShowError()

End If

If Int_TotalRecord mod PageSize =0 Then

Int_TotalPage = Int_TotalRecord \ int_PageSize

Else

Int_TotalPage = Int_TotalRecord \ int_PageSize+1

End If

If Int_CurPage>Int_TotalPage Then

Int_CurPage=Int_TotalPage

End If

End Sub

'====================================================================

'ShowPage 创建分页导航条

'有首页、前一页、下一页、末页、还有数字导航

'

'====================================================================

Public Sub ShowPage()

Dim str_tmp

Str_URL = GetUrl()

if Int_TotalRecord= 0 then Call GetPage()

'==================================================================

'显示分页信息,各个模块根据自己要求更改显求位置

'==================================================================

response.write ""

str_tmp=ShowFirstPrv

response.write str_tmp

str_tmp=showNumBtn

response.write str_tmp

str_tmp=ShowNextLast

response.write str_tmp

str_tmp=ShowPageInfo

response.write str_tmp

response.write ""

End Sub

'====================================================================

'ShowFirstPrv 显示首页、前一页

'

'

'====================================================================

Private function ShowFirstPrv()

Dim Str_tmp,int_prvpage

If Int_CurPage=1 Then

str_tmp=Btn_First&" "&Btn_Prev

Else

int_prvpage=Int_CurPage-1

str_tmp="<a href="""&Str_URL & "1" & """>" & Btn_First&"</a> <a href=""" & Str_URL & CStr(int_prvpage) & """>" & Btn_Prev&"</a>"

End If

ShowFirstPrv=str_tmp

End function

'====================================================================

'ShowNextLast 下一页、末页

'

'

'====================================================================

Private function ShowNextLast()

Dim str_tmp,int_Nextpage

If Int_CurPage>=Int_TotalPage Then

str_tmp=Btn_Next & " " & Btn_Last

Else

Int_NextPage=Int_CurPage+1

str_tmp="<a href=""" & Str_URL & CStr(int_nextpage) & """>" & Btn_Next&"</a> <a href="""& Str_URL & CStr(Int_TotalPage) & """>" & Btn_Last&"</a>"

End If

ShowNextLast=str_tmp

End function

'====================================================================

'ShowNumBtn 数字导航

'每次显示10页

'

'====================================================================

Private function showNumBtn()

Dim i,str_tmp,m,n

m = Int_CurPage - 4

n = Int_TotalPage

if n>1 then

for i = 1 to 10

if m < 1 then m = 1

if m > n then

exit for

end if

str_tmp=str_tmp & "[<a href=""" & Str_URL & CStr(i) & """>"&i&"</a>] "

m = m + 1

next

end if

showNumBtn=str_tmp

End function

'====================================================================

'ShowPageInfo 分页信息

'更据要求自行修改

'

'====================================================================

Private function ShowPageInfo()

Dim str_tmp

str_tmp="页次:"&Int_CurPage&"/"&Int_TotalPage&"页 共"&Int_TotalRecord&"条记录 "&int_PageSize&"条/每页"

ShowPageInfo=str_tmp

End function

'==================================================================

'GetURL 得到当前的URL

'更据URL参数不同,获取不同的结果

'

'==================================================================

Private function GetURL()

Dim strUrl,tmp_URL,i,j,search_str,result_url

search_str="page="

strUrl=Request.Servervariables("URL")

strUrl=split(strUrl,"/")

i=UBound(strUrl,1)

tmp_URL=strUrl(i)'得到当前页文件名

str_params=Trim(Request.Servervariables("QUERY_STRING"))

If str_params="" Then

result_url=tmp_URL & "?page="

Else

If InstrRev(str_params,search_str)=0 Then

result_url=tmp_URL & "?" & str_params &"&page="

Else

j=InstrRev(str_params,search_str)-2

If j=-1 Then

result_url=tmp_URL & "?page="

Else

str_lparams=Left(str_params,j)

str_rparams=right(str_params,len(str_params)-j-1)

if InStr(str_rparams,"&")<>0 then

str_rparams=right(str_rparams,len(str_rparams)-InStr(str_rparams,"&")+1)

else

str_rparams = ""

end if

result_url=tmp_URL & "?" & str_lparams&str_rparams&"&page="

End If

End If

End If

GetURL=result_url

End function

'====================================================================

' 设置 Terminate 事件。

'

'====================================================================

Private Sub Class_Terminate

Obj_Rs.close

Set Obj_Rs=nothing

Obj_Conn.close

set Obj_Conn = nothing

End Sub

'====================================================================

'ShowError 错误提示

'

'

'====================================================================

Private Sub ShowError()

If Str_Errors <> "" Then

Response.Write("" & Str_Errors & "")

Response.End

End If

End Sub

End class

%>

<!--#include file="include/function.asp"-->

<%

dim conn

call dbconnect()

'#############类调用样例#################

'创建对象

Set hjmPage=new ShowMorePage

'得到数据库连接

hjmPage.getconn=conn

'sql语句

hjmPage.getsql="select Top 6 * from shop_books where newsbook=1 order by bookid desc"

'设置每一页的记录条数据为5条

hjmPage.pagesize=2

set rs=hjmPage.getrs() '返回Recordset

'显示分页信息,这个方法可以,在set rs=hjmPage.getrs()以后,可在任意位置调用,可以调用多次

hjmPage.showpage()

'显示数据

Response.Write("<br/>")

for i=1 to hjmPage.GetCurPageNum '当前页的记录数目

'这里就可以自定义显示方式了

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有