ASP 內容連結 元件
更多示例
內容連結元件
構建目錄。
內容連結元件 2
使用內容連結元件在文字檔案中的頁面之間進行導航。
ASP 內容連結元件
ASP 內容連結元件用於建立快速簡便的導航系統！
內容連結元件返回一個 Nextlink 物件，該物件用於儲存一組要導航的網頁。
語法
<%
設定 nl=Server.CreateObject("MSWC.NextLink")
%>
ASP 內容連結示例
首先，我們建立一個文字檔案 - "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
設定 nl=Server.CreateObject("MSWC.NextLink")
if (nl.GetListIndex("links.txt")>1) then
Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
Response.Write("'>上一頁</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>下一頁</a>")
%>
在 "links.txt" 文字檔案中列出的每個 .asp 頁面中，放置一行程式碼：<!-- #include file="nlcode.inc"-->。此行將在 "links.txt" 中列出的每個頁面上包含 "nlcode.inc" 中的程式碼，並且導航將正常工作。
ASP 內容連結元件的方法
| 方法 | 描述 | 示例 |
|---|---|---|
| GetListCount | 返回內容連結列表檔案中列出的專案數 | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListCount("links.txt") Response.Write("有") Response.Write(c) Response.Write("個專案在列表中") %> 輸出 列表中有 4 個專案 |
| GetListIndex | 返回內容連結列表檔案中當前專案的索引號。第一個專案的索引號是 1。如果當前頁面不在內容連結列表檔案中，則返回 0 | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListIndex("links.txt") Response.Write("專案編號") Response.Write(c) %> 輸出 專案編號 3 |
| GetNextDescription | 返回內容連結列表檔案中下一項的文字描述。如果當前頁面在列表檔案中找不到，它將返回列表的最後一頁的文字描述 | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextDescription("links.txt") Response.Write("下一個") Response.Write("描述是：") Response.Write(c) %> 下一個描述是：ASP 變數 |
| GetNextURL | 返回內容連結列表檔案中下一項的 URL。如果當前頁面在列表檔案中找不到，它將返回列表的最後一頁的 URL | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextURL("links.txt") Response.Write("下一個") Response.Write("URL 是：") Response.Write(c) %> 下一個 URL 是：asp_variables.asp |
| GetNthDescription | 返回內容連結列表中第 N 頁的描述 | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthDescription("links.txt",3) Response.Write("第三個") Response.Write("描述是：") Response.Write(c) %> 第三個描述是：ASP 變數 |
| GetNthURL | 返回內容連結列表檔案中第 N 頁的 URL | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthURL("links.txt",3) Response.Write("第三個") Response.Write("URL 是：") Response.Write(c) %> 第三個 URL 是：asp_variables.asp |
| GetPreviousDescription | 返回內容連結列表檔案中上一項的文字描述。如果當前頁面在列表檔案中找不到，它將返回列表的第一頁的文字描述 | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousDescription("links.txt") Response.Write("上一個") Response.Write("描述是：") Response.Write(c) %> 上一個描述是：ASP 變數 |
| GetPreviousURL | 返回內容連結列表檔案中上一項的 URL。如果當前頁面在列表檔案中找不到，它將返回列表的第一頁的 URL | <% dim nl,c 設定 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousURL("links.txt") Response.Write("上一個") Response.Write("URL 是：") Response.Write(c) %> 上一個 URL 是：asp_variables.asp |
