www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > inc/asppage.asp
<% '=================================================================== '使用说明 '程序参数说明 '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 '这个标记是为了防止最后一页的溢出 ' 这里就可以自定义显示方式了 ' rs.movenext ' else ' exit for ' end if ' next ' '=================================================================== 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 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的参数不正确" Response.Write("" & str_Error & "") Response.End End If End Property Public Property Get PageSize If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then PageSize=20 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=20 '设定分页的默认值为20 '======================== '获取当前面的值 '======================== 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 '==================================================================== 'ShowPage 创建分页导航条 '有首页、前一页、下一页、末页、还有数字导航 ' '==================================================================== Public Sub ShowPage() Dim str_tmp int_totalRecord=XD_RS.RecordCount If int_totalRecord<=0 Then str_error=str_error & "没有任何记录!<br><br>" Response.Write("" & str_Error & "") 'Response.End End If If int_totalRecord=1 then int_TotalPage=1 Else If int_totalRecord mod PageSize =0 Then ' int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1 int_TotalPage = int(int_TotalRecord / XD_PageSize) Else int_TotalPage = int(int_TotalRecord / XD_PageSize)+ 1 ' int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1 End If End If If Int_curpage > int_Totalpage Then int_curpage=int_TotalPage End If '================================================================== '显示分页信息,各个模块根据自己要求更改显求位置 '================================================================== If int_TotalPage > 1 then response.write "" str_tmp=ShowFirstPrv response.write str_tmp str_tmp=showNumBtn response.write str_tmp str_tmp=ShowNextLast response.write str_tmp response.write "" End If str_tmp=ShowPageInfo response.write str_tmp 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='"&GetURL&"1'>"&Btn_First&"</a> <a href='"&GetURL&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='"&GetURL&Int_NextPage&"'>"&Btn_Next&"</a> <a href='"&GetURL&int_totalpage&"'>"&Btn_Last&"</a> " End If ShowNextLast=str_tmp End Function '==================================================================== 'ShowNumBtn 数字导航 ' ' '==================================================================== Private Function showNumBtn() Dim i,str_tmp if int(int_curpage) > 10 then MinPageNo=int(int_curpage)-10 else MinPageNo=1 end if MaxPageNo=MinPageNo+20 if MaxPageNo > int_totalpage then MaxPageNo=int_totalpage MinPageNo=int_totalpage-20 if MinPageNo<=0 then MinPageNo=1 end if end if For i=MinPageNo to MaxPageNo str_tmp=str_tmp & " <a href='"&GetURL&i&"'>"&i&"</a> " Next showNumBtn=str_tmp End Function '==================================================================== 'ShowPageInfo 分页信息 '更据要求自行修改 ' '==================================================================== Private Function ShowPageInfo() Dim str_tmp str_tmp=" 页次:"&int_curpage&"/"&int_totalpage&"页 共"&int_totalrecord&"条记录 "&XD_PageSize&"条/每页" ShowPageInfo=str_tmp End Function '================================================================== 'GetURL 得到当前的URL '更据URL参数不同,获取不同的结果 ' '================================================================== Private Function GetURL() Dim strurl,str_url,i,j,search_str,result_url search_str="page=" strurl=Request.ServerVariables("URL") Strurl=split(strurl,"/") i=UBound(strurl,1) str_url=strurl(i)'得到当前页文件名 str_params=Request.ServerVariables("QUERY_STRING") If str_params="" Then result_url=str_url & "?page=" Else If InstrRev(str_params,search_str)=0 Then result_url=str_url & "?" & str_params &"&page=" Else j=InstrRev(str_params,search_str)-2 If j=-1 Then result_url=str_url & "?page=" Else str_params=Left(str_params,j) result_url=str_url & "?" & str_params &"&page=" End If End If End If GetURL=result_url End Function '==================================================================== ' 设置 Terminate 事件。 ' '==================================================================== Private Sub Class_Terminate XD_RS.close Set XD_RS=nothing End Sub End class %>