網(wǎng)站制作教程模板無憂>建站教程>網(wǎng)站制作教程>Dreamweaver教程>

用Dreamweaver和ASP實(shí)現(xiàn)分頁技術(shù)的參考(2)_Dreamweaver教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

　　若要顯示所有連接的頁（個(gè)）數(shù)，你可以設(shè)置為：NaviLength=tPageCount。

　　這時(shí)代碼已經(jīng)差不多了，但還要在顯示的地方（如表格）中加點(diǎn)代碼才行吧，（要不然怎么顯示，呵~~~）如我們插入一個(gè)2行3列的表格。

　　1.將光標(biāo)移在第一行第一列中，切換到代碼中加入：<%=(PageNo-1)*RPP I%>

　　這個(gè)代碼是顯示序號(hào)用的。

　　2.右邊2個(gè)單元格（當(dāng)然你自己可以根據(jù)需要分更多的列）就是為你要顯示的記錄了。請(qǐng)分別從綁定的記錄集中選中你要顯示的字段拖放在相應(yīng)的單元格中，（也可以選中后再點(diǎn)右下角的“插入”按鈕）。這里我們就先拖2個(gè)進(jìn)來如“編號(hào)”和“公司名稱”。分別到1行第2個(gè)單元格和1行第3個(gè)單元格中。

　　3.這個(gè)是個(gè)要害的，請(qǐng)將光標(biāo)移到第一行任意單元格中，再來點(diǎn)選窗口底下的<tr>,這時(shí)你看看代碼，<tr>....</tr>就被選中了。這時(shí)請(qǐng)?jiān)?lt;tr>....</tr>的前面插入如下代碼：

<%
If Recordset1.EOF OR Recordset1.BOF Then
Else
For I=1 To RPP
%>再在<tr>....</tr>之后插入如下代碼：
<%
Recordset1.MoveNext
If Recordset1.EOF OR Recordset1.BOF Then Exit For
Next
End If
%>

　　4.這是就完成表格的第一行的工作。下來也是要害，即分頁的連接。光標(biāo)在第2行第一個(gè)單元格中時(shí)在代碼窗口插入：

<% showPageInfo Recordset1.PageCount,PageNo %>

　　的代碼。右邊的2個(gè)單元格將其合并，在代碼中插入：

<% showPageNavi Recordset1.PageCount,PageNo %>

　　的代碼。

　　5.大功告成！這時(shí)感快預(yù)覽一下吧。。。。

　　表格的全部代碼如下：

　　這時(shí)你去點(diǎn)應(yīng)用程序中的“服務(wù)器行為”中的記錄集，在代碼中就顯示為一下代碼，也是我的原代碼：

<%
Dim I
Dim RPP’RPP：指定每頁顯示的記錄條數(shù),
Dim PageNo
I=1
RPP=50
PageNo=CInt(Request("PageNo"))
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_數(shù)據(jù)庫名_STRING