程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> ASP入門教程-內容鏈接組件

ASP入門教程-內容鏈接組件

編輯:ASP入門教程

內容鏈接組件(Content Linking) 用於創建管理 URL 列表的內容鏈接 (NextLink )對象,通過該對象可以自動生成和更新目錄表及先前和後續的 Web 頁的導航鏈接。使用內容鏈接組件的步驟如下:

1) 創建內容鏈接(NextLink) 對象實例;

2) 創建內容鏈接列表文件;

3) 使用內容鏈接( NextLink) 對象的方法生成導航鏈接。

1、創建內容鏈接對象實例

內容鏈接組件包含在 nextlink.dll 文件中。使用內容鏈接組件時,首先基於該組件創建一個內容鏈接( NextLink) 對象實例。其語法格式如下:

Set NextLink=Server.CreateObject("MSWC.NextLink")

其中參數 NextLink 指定由 Server.CreateObject 方法創建的對象的名稱。該方法沒有注冊表項。

2、創建鏈接列表文件

要使用內容鏈接組件(Content Linking),必須需要先創建鏈接列表文件(Content Linking List )。內容鏈接組件正是通過讀取這個文件來獲得並處理我們希望鏈接的所有頁面的信息。事實上該文件是一個純文本文件,此文件必須在 Web 服務器的虛擬路徑上使用。內容鏈接列表文件為列表中的每個 URL 包含一行文字,每行以回車換行結束,行中的每一項以 Tab 制表符分隔。其語法格式如下:

Web-page-URL  [text-description   [comment]]

注:其中Web-page-URL 參數指定要鏈接的 Web 頁的路徑,可以是 Web 頁的虛擬或相對 URL ,不支持以 ”http:" 、"//“或"\”開始的絕對 URL;text-description 參數給出 Web-page-URL 的描述文字;comment 給出注釋性文字,內容鏈接組件不處理這些文字。

3、檢索內容鏈接列表文件

內容鏈接文件提供了一系列的方法,使用這些方法可以從內容鏈接列表文件中獲取 Web 頁的 URL、描述文字和其他相關信息。在.asp 文件中使用這些方法可以自動生成 Web 頁的導航鏈接。各方法的描述見下表:

方  法 描   述 語 法 格 式  GetListCount  獲取內容鏈接列表文件中所列的 Web 頁總數。  GetListCount(listURL)  GetListIndex 獲取在內容鏈接列表文件中的當前項目的索引號。  GetListIndex(listURL) GetNextDescription 獲取內容鏈接列表文件中下一個項目的描述文字。  GetNextURL(listURL)  GetNextURL  獲取內容鏈接列表文件中下一項的URL。  GetNextURL(listURL)  GetNthURL  返回內容鏈接列表文件中某項的 URL。  GetNthURL(listURL,i)  GetNthDescription  獲取內容鏈接列表文件中某項的描述文字。  GetNthDescription(listURL,i) GetPreviousDescription  獲取內容鏈接列表文件中前一項的描述文字。  GetPreviousDescription(listURL) GetPreviousURL  獲取內容鏈接列表文件中前一項的URL。  GetPreviousURL(listURL) 注:listURL 參數指定內容鏈接文件的位置;

i 參數第 i 個項目的索引號。

4、實例1:在本例中使用內容鏈接組件將“上一頁”和“下一頁”鏈接添加到 Web 頁中。(在鏈接列表 [ nextlink.txt ] 文件中每行以回車換行結束,行中的每一項以 Tab 制表符分隔。)

-----------------nextlink.txt----------------------

5-02a.asp contentLinking組件應用示例之一

5-02b.asp content Linking應用示例之二

5-02c.asp content Linking應用示例之三

------------------nextlink.inc----------------------

   <% Set NextLink=Server.CreateObject("MSWC.NextLink") %>
   <% if NextLink.GetListIndex ("Nextlink.txt")>1 Then %>
   <p>上一頁:<A HREF="<%=NextLink.GetPreviousURL("Nextlink.txt") %>"><%=NextLink.GetPreviousDescription("Nextlink.txt") %></A>
   <% End if %>
   下一頁:<A HREF="<%=NextLink.GetNextURL("Nextlink.txt")%>"><%=NextLink.GetNextDescription("Nextlink.txt") %></A>

-------------------5-02a.asp------------------------

    <html>
    <head>
    <title>Content Linking組件應用示例</title>
    </head>
    <body>
    <h3>這是第一個網頁。</h3><hr>
    <!-- #include file="nextlink.inc" -->
    </body>
    </html>

-------------------5-02b.asp------------------------

    <html>
    <head>
    <title>Content Linking組件應用示例</title>
    </head>
    <body>
    <h3>這是第二個網頁。</h3><hr>
    <!-- #include file="nextlink.inc" -->
    </body>
    </html>

-------------------5-02c.asp------------------------

   <html>
    <head>
    <title>Content Linking組件應用示例</title>
    </head>
    <body>
    <h3>這是第三個網頁。</h3><hr>
    <!-- #include file="nextlink.inc" -->
    </body>
    </html>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved