 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'本程序可以免费使用、修改，但请保留以上信息 \\\' \\\'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 \\\'======================== \\\'设定一些参数的?a认值 \\\'======================== 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 显示首页、前一页 \\\'www.knowsky.com \\\'================================================ 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 \\\'当前页的记录数目 \\\'这里就可以自定义显示方法了 %> 返回类别: 教程 上一教程: ASP OBJECT之:FLUSH 下一教程: 在ASP中使用SQL语句之1:SELECT 语句 您可以阅读与"超级ASP大分页_我的类容我做主"相关的教程: · 比较方便的ASP分页程序 · 利用ASP实现对表的分页浏览(上) · ASP学习:史上最强的数据分页方式 · 在ASP中使用均速分页法提高分页速度 · ASP分页的一个类 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
