超级ASP大分页_我的类容我做主     选择自 AppleBBS 的 Blog   关键字   超级ASP大分页_我的类容我做主  出处    <%  '===================================================================  '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 '当前页的记录数目  '这里就可以自定义显示方式了  %>