dreamweaverasp实现分页技术

《dreamweaverasp实现分页技术》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、DreamweaverASP实现分页技术作者：H期：2007-5-2421:41:22來源：点击：次评论今天心惜有点激动，想把n关于用DW+ASP实现分页技术的参考*'分亨给用DW+ASP做网页的朋友们.去掉只有"第一页，前一页，下一页，最后一页’•的小痛苦此效果最后的显示是:第N页供项1<<12345678910〉〉。用DW+ASP做网页吋，在绑定记录集后，代码页里马上山现以下代码：<%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject(’’ADODB.Recordset

2、")Recordset1.ActiveConnection=MM_数据库名—STRINGRecordset1.Source="SELECT*FROM表名•'Recordset1.CursorType=0Recordsetl.CursorLocation=2Recordset1.LockType=1Recordsetl.Open()Recordset1_nuniRows=0%>现在我们要来对代码做点修改，请在上而代码屮修改为如下的代码:<%DimIDimRPPDimPageNo1=1RPP=50PageNo=CInt(Request("PageNo*'))’

3、上面即是新插入的，DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject(’’ADODB.Recordset”)Recordset1.ActiveConnection=MM_数据库^_STRINGRecordset1.Source="SELECT*FROM数据库名”Recordset1.CursorType=1’将上面代码的0改为1.Recordsetl.CursorLocation=2Recordsetl.LockType=1Recordset1.OpenORecordset

4、1—numRows=0’再在此行的下一行开始加入如下代码:Recordset1.PageSize=RPPIfPageNo<=0ThenPageNo:1Recordset1.AbsolutePage=PageNoSubShowPageInfo(tPageCount，cPageNo)Response.Write"第”&cPageNo&"页［共u&tPageCount&"页］"EndSubSubShowPageNavi(tPageCount，cPageNo)IfcPageNo

5、1IfcPageNo>tPageCountThencPageNo=tPageCountDimNaviLengthNaviLength=10’NaviLength:显示的数字链接个数DimI，StartPage，EndPageStartPage=(cPageNoNaviLength)*NaviLength+lIf(cPageNoModNaviLength)=OThenStartPage=StailPage-NaviLengthEndPage=StartPage+NaviLength-1IfEndPage〉tPageCountThenEndPage=tPag

6、eCountIfStartPage>lThenResponse.Writeu«<«/font>HEndIfIfI=cPageNoThenResponse.Write"

7、a〉nEndIfIfIotPageCountThenResponse.Write” "NextIfEndPage上面代码中：RPP：指定每页显示的记录条数。即每页显示几条数据。NaviLength：显示的数字链接个数，即10

8、就为123...10的连接个数。若要显示所有连接的页（个）数，你可