<% '=================================================================== 'XDOWNPAGE   ASP版本 '版本   1.00 'Code by  zykj2000 'Email:   zykj_2000@163.net 'BBS:   http://bbs.513soft.net '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， '支持URL多个参数 ' '使用说明 '程序参数说明 'PapgeSize      定义分页每一页的记录数 'GetRS       返回经过分页的Recordset此属性只读 'GetConn      得到数据库连接 'GetSQL       得到查询语句 '程序方法说明 'ShowPage      显示分页导航条,唯一的公用方法 ' '=================================================================== 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,XD_sURL '================================================================= 'PageSize 属性 '设置每一页的分页大小 '================================================================= Public Property Let PageSize(int_PageSize)  If IsNumeric(Int_Pagesize) Then   XD_PageSize=CLng(int_PageSize)  Else   str_error=str_error & "PageSize的参数不正确"   ShowError()  End If End Property Public Property Get PageSize  If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then   PageSize=10       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=10  '设定分页的默认值为10  '========================  '获取当前面的值  '========================  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  XD_sURL = GetUrl()  int_totalRecord=XD_RS.RecordCount  If int_totalRecord<=0 Then   str_error=str_error & "总记录数为零，请输入数据"   Call ShowError()  End If  If int_totalRecord="" then      int_TotalPage=1  Else   If int_totalRecord mod PageSize =0 Then    int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1   Else    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  '==================================================================  '显示分页信息，各个模块根据自己要求更改显求位置  '==================================================================  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="""&XD_sURL & "1" & """>" & Btn_First&"</a> <a href=""" & XD_sURL & 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=""" & XD_sURL & CStr(int_nextpage) & """>" & Btn_Next&"</a> <a href="""& XD_sURL & CStr(int_totalpage) & """>" &  Btn_Last&"</a>"  End If  ShowNextLast=str_tmp End Function '==================================================================== 'ShowNumBtn  数字导航 ' ' '==================================================================== Private Function showNumBtn()  Dim i,str_tmp  For i=1 to int_totalpage   str_tmp=str_tmp & "[<a href=""" & XD_sURL & CStr(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=Trim(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 '==================================================================== 'ShowError  错误提示 ' ' '==================================================================== Private Sub ShowError()  If str_Error <> "" Then   Response.Write("" & str_Error & "")   Response.End  End If End Sub End class 'set conn = server.CreateObject("adodb.connection") 'conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("/data/5iduohai.mdb") ' ''#############类调用样例################# ''创建对象 'Set mypage=new xdownpage ''得到数据库连接 'mypage.getconn=conn ''sql语句 'mypage.getsql="select * from [DH_Company] order by id asc" ''设置每一页的记录条数据为5条 'mypage.pagesize=5 ''返回Recordset 'set rs=mypage.getrs() '显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 ' ''显示数据 'Response.Write("<br/>") 'for i=1 to mypage.pagesize ''这里就可以自定义显示方式了 '    if not rs.eof then  '        response.write rs(0) & "<br/>" '        rs.movenext '    else '         exit for '    end if 'next 'mypage.showpage() %>