ASP 內容連結


tryitimg.gif

嘗試 - 實例

Content Linking 元件
本例建立一個內容清單。

Content Linking 元件 2
本範例使用 Content Linking 元件在一個文字檔案所列的頁間進行導覽。

ASP Content Linking 元件

ASP Content Linking 元件用來建立快速便利的導航系統！

Content Linking 元件會傳回一個 Nextlink 對象，這個物件用來容納需要導覽網頁的一個清單。

語法

<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>

#ASP Content Linking 實例

首先，我們會建立一個文字檔案- "links.txt"：

asp_intro.asp ASP 簡介
asp_syntax. asp ASP 語法
asp_variables.asp ASP 變數
asp_procedures.asp ASP 程式

上面的文字檔案包含需要導覽的頁面。頁面的排列順序應該與它們的顯示順序相同，並包含每個檔案名稱的描述（使用製表符來分隔檔案名稱和描述資訊）。

註解：如果您希望為清單新增頁面，或改變在清單中的頁面順序，那麼您需要做的只是修改這個文字檔案而已！導航會自動更新！

然後我們建立一個引用文件，"nlcode.inc"。 .inc 檔案建立一個 NextLink 物件來在 "links.txt" 中列出的頁間進行導覽。

"nlcode.inc":

<%
dim nl
Set nl=Server.CreateObject("MSWC.NextLink")
if ( nl.GetListIndex("links.txt")>1) then
Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
Response.Write(" '>Previous Page</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write( "'>Next Page</a>")
%>
#

請在文字檔案 "links.txt" 列出的每個 .asp 頁面中放置一行程式碼：<!-- #include file="nlcode.inc"-->。這行程式碼會在 "links.txt" 中列出每個頁面上引用 "nlcode.inc" 中的程式碼，這樣導航就可以運作了。

ASP Content Linking 元件的方法

傳回內容連結清單檔案中所列項目的數量。 <%Set nl=Server.CreateObject("MSWC.NextLink") Response .Write("There are ")傳回內容連結清單檔案中目前條目的索引號。第一個條目的索引號碼是 1。如果目前頁面不在內容連結清單檔案中，則傳回 0。 dim nl,cc=nl.GetListIndex("links.txt") 傳回內容連結清單檔案中所列的下一個項目的文字描述。如果在清單檔案中沒有找到目前文件，則傳回清單中最後一個頁面的文字描述。 <%Set nl=Server.CreateObject("MSWC.NextLink") Response .Write("Next ") 傳回在內容連結清單檔案中所列的下一個項目的URL。如果在清單檔案中沒有找到目前文件，則傳回清單中最後一個頁面的 URL。 <%Set nl=Server.CreateObject("MSWC.NextLink") Response .Write("Next ")
#方法描述#範例







GetListCount

dim nl,cc=nl.GetListCount("links.txt") Response.Write(c)
Response.Write(" items in the list")
%>
輸出：

There are 4 items in the list

GetListIndex
<%Set nl=Server.CreateObject("MSWC.NextLink") Response .Write("Item number ")
Response.Write(c)
%>
輸出：

Item number 3

GetNextDescription

dim nl,cc=nl.GetNextDescription("links.txt") Response.Write("description is: ")
Response.Write(c)
%>
輸出：

Next description is: ASP Variables

GetNextURL

dim nl,cc=nl.GetNextURL("links.txt") Response.Write("URL is: ")
Response.Write(c)
%>
輸出：

Next URL is: asp_variables.asp

GetNthDescription

###返在內容連結清單檔案中所列的第N 頁面的描述資訊。 ######<%###dim nl,c###Set nl=Server.CreateObject("MSWC.NextLink") ###c=nl.GetNthDescription("links.txt",3) ## #Response.Write("Third ")###Response.Write("description is: ")###Response.Write(c)###%>####輸出：######Third description is: ASP Variables###
GetNthURL傳回內容連結清單檔案中所列的第 N 個頁面的 URL。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNthURL("links.txt",3)
Response.Write("Third ")
Response.Write("URL is: ")
Response.Write(c)
%>

#輸出：

Third URL is: asp_variables.asp

GetPreviousDescription傳回內容連結清單檔案中所列的前一個項目的文字描述。如果在清單檔案中沒有找到目前文件，則傳回清單中第一個頁面的文字描述。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousDescription("links.txt")
Response .Write("Previous ")
Response.Write("description is: ")
Response.Write(c)
%>

輸出：

Previous description is: ASP Variables

GetPreviousURL傳回在內容連結清單檔案中所列的前一個項目的URL。如果在清單文件中沒有找到目前文件，則傳回清單中第一個頁面的 URL。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousURL("links.txt")
Response .Write("Previous ")
Response.Write("URL is: ")
Response.Write(c)
%>

輸出：

Previous URL is: asp_variables.asp