网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

作者： 北京网站建设   日期：2008-03-27 06:03:35  来源： http://www.qitongnet.com

资深北京网站建设公司企通互联,专业致力于北京网站建设,北京网站制作,北京网站设计,北京网页设计领域,千余网站建设案例，公司拥有国内一流的网站建设、网站制作、网页设计团队，如果您已经有网站的,看看我们精美的网站建设案例也无妨.北京网站建设网址：http://www.qitongnet.com ======================================================================================= 今天心情有点激动,想把"关于用DW+ASP实现分页技术的参考"分享给用DW+ASP做网页的朋友们.去掉只有"第一页,前一页,下一页,最后一页"的小痛苦

　　此效果最后的显示是:第N页[共*页 网页设计] <<1 2 3 4 5 6 7 8 9 10 >>。

　　用DW+ASP做网页时,在绑定记录集后,代码页里马上出现以下代码： 网站设计

<%  网站建设
Dim Recordset1  企通互联
Dim Recordset1_numRows  北京网站建设
网页设计
Set Recordset1 = Server.CreateObject("ADODB.Recordset")  企通互联
Recordset1.ActiveConnection = MM_数据库名_STRING  北京网站设计
Recordset1.Source = "SELECT * FROM 表名"  北京网站制作
Recordset1.CursorType = 0  北京网站建设
Recordset1.CursorLocation = 2  北京网页设计
Recordset1.LockType = 1  北京网站制作
Recordset1.Open()  网页设计
北京网站设计
Recordset1_numRows = 0  北京网站设计
%> 

　　现在我们要来对代码做点修改，请在上面代码中修改为如下的代码： 北京网页设计

<%  网站建设
Dim I  北京网站制作
Dim RPP  北京网站制作
Dim PageNo  www.qitongnet.com
I=1  网站建设
RPP=50  网站制作
PageNo=CInt(Request("PageNo"))  www.qitongnet.com
’上面即是新插入的，  www.qitongnet.com
Dim Recordset1  北京网页设计 网站制作
Dim Recordset1_numRows  www.qitongnet.com
Set Recordset1 = Server.CreateObject("ADODB.Recordset")  北京网站制作
Recordset1.ActiveConnection = MM_数据库名_STRING  www.qitongnet.com
Recordset1.Source = "SELECT * FROM 数据库名"  北京网页设计
Recordset1.CursorType = 1 ’将上面代码的0改为1.  www.qitongnet.com
Recordset1.CursorLocation = 2  北京网站建设
Recordset1.LockType = 1  网站设计
Recordset1.Open()  北京网站建设
Recordset1_numRows = 0 ’再在此行的下一行开始加入如下代码：  网页设计
Recordset1.PageSize=RPP  北京网站制作
If PageNo<=0 Then PageNo=1  北京网站建设
If PageNo>Recordset1.PageCount Then PageNo=Recordset1.PageCount  北京网站建设
Recordset1.AbsolutePage=PageNo  北京网站设计
Sub ShowPageInfo(tPageCount,cPageNo)  北京网站制作
Response.Write "第"&cPageNo&" 北京网站设计页[共"&tPageCount&"页]"  网页设计
End Sub  北京网站设计
Sub ShowPageNavi(tPageCount,cPageNo)   网站设计
If cPageNo<1 Then cPageNo=1  网站设计
If tPageCount<1 Then tPageCount=1  企通互联
If cPageNo>tPageCount Then cPageNo=tPageCount   北京网站建设
Dim NaviLength  北京网页设计
NaviLength=10 ’NaviLength：显示的数字链接个数   北京网页设计
Dim I,StartPage,EndPage   北京网站设计
StartPage=(cPageNo\NaviLength)*NaviLength+1  网页设计
If (cPageNo Mod NaviLength)=0 Then StartPage=StartPage-NaviLength   北京网站制作
EndPage=StartPage+NaviLength-1  北京网站制作
If EndPage>tPageCount Then EndPage=tPageCount   北京网站设计
If StartPage>1 Then  网站制作
Response.Write "<a class=""pageNavi"" href=""?PageNo=" & (cPageNo-NaviLength) & """><<</a> "  北京网页设计
Else  北京网站设计
Response.Write "<font color=""#CCCCCC""><<</font> "  北京网站建设
End If  北京网页设计
For I=StartPage To EndPage  北京网站建设
If I=cPageNo Then  网站设计
Response.Write "<b>"&I&"</b>"  网站制作
Else  网站制作
Response.Write "<a class=""pageNavi"" href=""?PageNo=" & I & """>" & I & "</a>"  企通互联
End If  网页设计
If I<>tPageCount Then Response.Write "&nbsp;"  北京网站建设
Next  网站建设
If EndPage<tPageCount Then  网页设计
Response.Write " <a class=""pageNavi"" href=""?PageNo=" & (cPageNo+NaviLength) & """>>></a>"  网站设计
Else  www.qitongnet.com
Response.Write " <font color=""#CCCCCC"">>></font> "  企通互联
End If  www.qitongnet.com
End Sub  www.qitongnet.com北京网页设计
%> 

　　上面代码中：RPP：指定每页显示的记录条数。即每页显示几条数据。

　　NaviLength：显示的数字链接个数，即10就为1 2 3 ...10的连接个数。

　　若要显示所有连接的页（个）数，你可以设置为：NaviLength=tPageCount。

　　这时代码已经差不多了，但还要在显示的地方（如表格）中加点代码才行吧，（要不然怎么显示，呵~~~）如我们插入一个2行3列的表格。

　　1.将光标移在第一行第一列中，切换到代码中加入：<%=(PageNo-1)*RPP+I%>

　　这个代码是显示序号用的。

　　2.右边2个单元格（当然你自己可以根据需要分更多的列）就是为你要显示的记录了。请分别从绑定的记录集中选中你要显示的字段拖放在相应的单元格中，（也可以选中后再点右下角的“插入”按钮）。这里我们就先拖2个进来如“编号”和“公司名称”。分别到1行第2个单元格和1行第3个单元格中。

　　3.这个是个关键的，请将光标移到第一行任意单元格中，再来点选窗口底下的<tr>,这时你看看代码，<tr>....</tr>就被选中了。这时请在<tr>....</tr>的前面插入如下代码：

<%  北京网站设计
If Recordset1.EOF OR Recordset1.BOF Then  网页设计
Else  北京网站设计
For I=1 To RPP  网站设计
%>再在<tr>....</tr>之后插入如下代码：  北京网站设计
<%  www.qitongnet.com
Recordset1.MoveNext  www.qitongnet.com
If Recordset1.EOF OR Recordset1.BOF Then Exit For  北京网站制作
Next  企通互联
End If  网站制作
%> 

　　4.这是就完成表格的第一行的工作。下来也是关键，即分页的连接。光标在第2行第一个单元格中时在代码窗口插入： 网站设计

<% showPageInfo Recordset1.PageCount,PageNo %> 

　　的代码。右边的2个单元格将其合并，在代码中插入： 企通互联

<% showPageNavi Recordset1.PageCount,PageNo %> 

　　的代码。

　　5.大功告成！这时感快预览一下吧。。。。

　　表格的全部代码如下：

<table width="710" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#333333">  网页设计
<%  网站建设
If Recordset1.EOF OR Recordset1.BOF Then  北京网站设计
Else  网站设计
For I=1 To RPP  北京网站设计
%>  网站制作
<tr bgcolor="#FFFFFF">  网页设计
<td width="30" align="center"><%=(PageNo-1)*RPP+I%></td>  www.qitongnet.com
<td><%=(Recordset1.Fields.Item("编号").Value)%></td>  北京网站制作
<td><%=(Recordset1.Fields.Item("公司名称").Value)%></td>  www.qitongnet.com
</tr>  北京网页设计
<%  企通互联
Recordset1.MoveNext  北京网页设计
If Recordset1.EOF OR Recordset1.BOF Then Exit For  网站制作
Next  北京网页设计
End If  北京网站建设
%>  北京网站制作
<tr bgcolor="#FFFFFF">  北京网站制作
<td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="2">  网站制作
<tr bgcolor="#006699" class="w12">  网页设计
<td width="121" align="center"><% showPageInfo Recordset1.PageCount,PageNo %>  北京网站建设
</td>  网页设计
<td width="573" align="center">   网站建设
<% showPageNavi Recordset1.PageCount,PageNo %>  网站制作
</td>  北京网站制作
</tr>  北京网站制作
</table></td>  网站设计
</tr>  网站设计
</table> 

　　这时你去点应用程序中的“服务器行为”中的记录集，在代码中就显示为一下代码，也是我的原代码： 网站制作

<%  网站制作
Dim I  北京网站制作
Dim RPP’RPP：指定每页显示的记录条数,  网站设计
Dim PageNo  北京网页设计
I=1  www.qitongnet.com
RPP=50  企通互联
PageNo=CInt(Request("PageNo"))  企通互联
Dim Recordset1  北京网站建设
Dim Recordset1_numRows  北京网页设计
Set Recordset1 = Server.CreateObject("ADODB.Recordset")  www.qitongnet.com
Recordset1.ActiveConnection = MM_数据库名_STRING  北京网页设计
Recordset1.Source = "SELECT * FROM 表名 ORDER BY 编号 ASC"  北京网站设计
Recordset1.CursorType = 1  北京网站制作北京网站制作
Recordset1.CursorLocation = 2  网站设计
Recordset1.LockType = 1  北京网站设计
Recordset1.Open()  网页设计
网站制作
Recordset1_numRows = 0  网站建设
Recordset1.PageSize=RPP  北京网站制作
If PageNo<=0 Then PageNo=1  北京网页设计
If PageNo>Recordset1.PageCount Then PageNo=Recordset1.PageCount  网站制作
Recordset1.AbsolutePage=PageNo  网站制作
网站建设
Sub ShowPageInfo(tPageCount,cPageNo)  北京网站设计
Response.Write "第"&cPageNo&"页[共"&tPageCount&"页]"  北京网页设计
End Sub  北京网站建设
网页设计
Sub ShowPageNavi(tPageCount,cPageNo)   北京网站建设
If cPageNo<1 Then cPageNo=1  北京网站设计
If tPageCount<1 Then tPageCount=1  北京网站建设 北京网站建设
If cPageNo>tPageCount Then cPageNo=tPageCount   北京网站设计
Dim NaviLength  网站制作
NaviLength=20 ’NaviLength：显示的数字链接个数   网站制作
Dim I,StartPage,EndPage   网站建设
StartPage=(cPageNo\NaviLength)*NaviLength+1  北京网站制作
If (cPageNo Mod NaviLength)=0 Then StartPage=StartPage-NaviLength   网站设计北京网页设计
EndPage=StartPage+NaviLength-1  北京网站建设
If EndPage>tPageCount Then EndPage=tPageCount   网站制作
If StartPage>1 Then  网站设计
Response.Write "<a class=""pageNavi"" href=""?PageNo=" & (cPageNo-NaviLength) & """><<</a> "  网站建设
Else  北京网站建设
Response.Write "<font color=""#CCCCCC""><<</font> "  网站设计
End If  企通互联
For I=StartPage To EndPage  企通互联
If I=cPageNo Then  网站设计
Response.Write "<b>"&I&"</b>"  北京网站设计
Else  网站设计
Response.Write "<a class=""pageNavi"" href=""?PageNo=" & I & """>" & I & "</a>"  企通互联
End If  网页设计
If I<>tPageCount Then Response.Write "&nbsp;"  企通互联
Next  网站建设
If EndPage<tPageCount Then  网站设计
Response.Write " <a class=""pageNavi"" href=""?PageNo=" & (cPageNo+NaviLength) & """>>></a>"  北京网站建设
Else  网站建设
Response.Write " <font color=""#CCCCCC"">>></font> "  www.qitongnet.com
End If  网站建设
End Sub  网站制作
北京网站建设 网站建设
%> 

　　不过有一个缺点就是：如当你想找99页时点>>9次，要是有一个输入框，输入99后回车就到99就完美了。不知在DW+ASP中再怎么修改一下就能达到呢？期待。。。。 网站建设

字体：【大】【中】【小】

这是一个与众不同的品牌，企通互联只专注于网站建设领域！中小型企业网站建设最佳合作伙伴！网站建设咨询热线：010-65587978/77/76/75!