<% '===================================================================== 'XDOWNPAGE ASP版本 '版本 1.02 'Code by zykj2000 'Email: zykj_2000@163.net 'BBS: http://bbs.513soft.net '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， '支持URL多个参数 ' '使用说明 '程序参数说明 'PapgeSize 定义分页每一页的记录数 'GetRS 返回经过分页的Recordset此属性只读 'GetConn 得到数据库连接 'GetSQL 得到查询语句 '程序方法说明 'ShowPage 显示分页导航条,唯一的公用方法 ' '例: ' <!--#include file="conn.asp"--> ' <!--#include file="xdownpage.inc"--> '包含文件 ' ' 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 '这个标记是为了防止最后一页的溢出 ' response.write rs(0) & "" '这里就可以自定义显示方式了 ' 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="Right" '定义分页信息对齐方式 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的参数不正确" 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

int_totalRecord=XD_RS.RecordCount If int_totalRecord<=0 Then str_error=str_error & "总记录数为零，请输入数据" Call ShowError() End If If int_totalRecord<pagesize Then int_TotalPage=1 Else int_TotalPage=XD_RS.PageCount '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 " " 'ShowGoto 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="&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 For i=1 to int_totalpage 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) 'response.write i 'response.end 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

'==================================================================== 'ShowError 错误提示 ' ' '==================================================================== Private Sub ShowError() If str_Error <> "" Then Response.Write("<font color='#FF0000'><b>" & SW_Error & "</font>") Response.End End If End Sub

End class

%>

[此贴子已经被作者于2005-6-17 14:41:05编辑过]

俺的分页 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="../conn.asp"--> <% page=check(request.QueryString("page")) set rs=server.CreateObject("adodb.recordset") sql="select * from adglname" rs.pagesize=20 rs.open sql,conn,3,2 if rs.eof then response.Write"没有记录" else i=0 rs.absolutepage=page do while not rs.eof and i<rs.pagesize response.Write rs(2)&"&nbsp;&nbsp;<br>" i=i+1 rs.movenext loop call showpage(rs.recordcount,rs.pagesize,page,"?") rs.close set rs=nothing end if function showpage(cnt,size,page,url)'分页函数 cot=int(cnt/size) ca=cnt mod size if ca<>0 then cot=cot+1 else cot=cot end if if page>cot then page=cot response.Write"共"&cnt&"条&nbsp;每页"&size&"条&nbsp;页次:"&page&"/"&cot&"&nbsp;" if page=1 then response.Write "[首页]&nbsp;[上页]&nbsp;" else response.Write"[<a href="&url&"page=1>首页</a>]&nbsp;[<a href="&url&"page="&page-1&">上页</a>]&nbsp;" end if if page=cot then response.Write "[下页]&nbsp;[尾页]&nbsp;" else response.Write"[<a href="&url&"page="&page+1&">下页</a>]&nbsp;[<a href="&url&"page="&cot&">尾页</a>]&nbsp;" end if response.Write"<select name='page' onchange='sed(this.value)'>" for i=1 to cot response.Write"<option value='"&i&"'" if i=page then response.Write "selected" response.Write">"&i&"</option>" next response.Write"</select>" response.Write"<script>" response.Write"function sed(x){" response.Write"window.location='"&url&"page='+x;" response.Write"}</script>" end function

function check(page)'转换一下参数page的格式 if page="" then page=1 if not isnumeric(page) then page=1 if page<1 then page=1 if len(page)>6 then page=1 page=clng(page) check=page end function%>

[此贴子已经被作者于2005-6-17 17:00:09编辑过]