您现在的位置：程式碼之家 >> 編程語言 > >> 網頁程式設計 >> ASP 程式設計 >> ASP 基礎

ASP ContentLinking 元件：打造自動化導航系統

編輯：ASP 基礎

ASP ContentLinking 元件：輕鬆建立頁面導航

元件特色

ContentLinking 元件可建立 NextLink 物件，依據文字檔定義的頁面清單，自動產生「上一頁/下一頁」導航連結。修改文字檔即可調整頁面順序或新增頁面，無需更動程式碼。

基本語法

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

實作步驟

1. 建立導航清單檔 `links.txt`

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

格式：檔案名稱 + Tab + 描述文字。順序即為導航順序。

2. 建立共用引用檔 `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") & "'>上一頁</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt") & "'>下一頁</a>")
%>

3. 在每個列表頁面引用

在 links.txt 列出的每個 .asp 頁面加入：

<!-- #include file="nlcode.inc" -->

主要方法完整對照表

方法	描述	範例與輸出
GetListCount	傳回清單總項目數	`<% dim nl, c Set nl = Server.CreateObject("MSWC.NextLink") c = nl.GetListCount("links.txt") Response.Write("共有 " & c & " 項目") %>` 輸出：共有 4 項目
GetListIndex	傳回目前頁面在清單中的索引（第一項為 1，不在清單則為 0）	輸出：Item number 3
GetNextDescription	傳回下一頁描述文字	輸出：Next description is: ASP Variables
GetNextURL	傳回下一頁 URL	輸出：Next URL is: asp_variables.asp
GetNthDescription	傳回第 N 項描述	輸出：Third description is: ASP Variables
GetNthURL	傳回第 N 項 URL	輸出：Third URL is: asp_variables.asp
GetPreviousDescription	傳回上一頁描述	輸出：Previous description is: ASP Variables
GetPreviousURL	傳回上一頁 URL	輸出：Previous URL is: asp_variables.asp