ASP - Inhaltsverknüpfungskomponente


Mehr Beispiele


Erstellen Sie ein Inhaltsverzeichnis.


Verwenden Sie die Inhaltsverknüpfungskomponente, um zwischen den Seiten in einer Textdatei zu navigieren.


ASP-Inhaltsverknüpfungskomponente

Die ASP Content Linking-Komponente wird verwendet, um ein schnelles und einfaches Navigationssystem zu erstellen!

Die Inhaltsverknüpfungskomponente gibt ein Nextlink-Objekt zurück, das verwendet wird, um eine Liste von Webseiten zu enthalten, auf denen navigiert werden soll.

Syntax

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

Beispiel für die Verknüpfung von ASP-Inhalten

Zuerst erstellen wir eine Textdatei - "links.txt":

asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures

Die obige Textdatei enthält die zu navigierenden Seiten. Die Seiten müssen in der gleichen Reihenfolge aufgelistet werden, in der sie angezeigt werden sollen, und es muss auch eine Beschreibung für jeden Dateinamen enthalten (verwenden Sie die Tabulatortaste, um Dateinamen von Beschreibung zu trennen).

Hinweis: Wenn Sie eine Seite hinzufügen oder die Reihenfolge der Seiten in der Liste ändern möchten; Sie müssen nur die Textdatei ändern! Die Navigation wird automatisch korrigiert!

Dann erstellen wir eine Include-Datei "nlcode.inc". Die .inc-Datei erstellt ein NextLink-Objekt, um zwischen den in "links.txt" aufgelisteten Seiten zu navigieren.

"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>")
%>

Fügen Sie in jede der in der Textdatei "links.txt" aufgeführten .asp-Seiten eine Codezeile ein: <!-- #include file="nlcode.inc"--> . Diese Zeile fügt den Code in "nlcode.inc" auf jeder Seite ein, die in "links.txt" aufgeführt ist, und die Navigation funktioniert.



Methoden der ASP-Inhaltsverknüpfungskomponente

Method Description Example
GetListCount Returns the number of items listed in the Content Linking List file <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListCount("links.txt")
Response.Write("There are ")
Response.Write(c)
Response.Write(" items in the list")
%>

Output:

There are 4 items in the list

GetListIndex Returns the index number of the current item in the Content Linking List file. The index number of the first item is 1. 0 is returned if the current page is not in the Content Linking List file <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListIndex("links.txt")
Response.Write("Item number ")
Response.Write(c)
%>

Output:

Item number 3

GetNextDescription Returns the text description of the next item listed in the Content Linking List file. If the current page is not found in the list file it returns the text description of the last page on the list <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextDescription("links.txt")
Response.Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Next description is: ASP Variables

GetNextURL Returns the URL of the next item listed in the Content Linking List file. If the current page is not found in the list file it returns the URL of the last page on the list <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextURL("links.txt")
Response.Write("Next ")
Response.Write("URL is: ")
Response.Write(c)
%>

Next URL is: asp_variables.asp

GetNthDescription Returns the description of the Nth page listed in the Content Linking List file <%
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 Returns the URL of the Nth page listed in the Content Linking List file <%
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 Returns the text description of the previous item listed in the Content Linking List file. If the current page is not found in the list file it returns the text description of the first page on the list <%
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 Returns the URL of the previous item listed in the Content Linking List file. If the current page is not found in the list file it returns the URL of the first page on the list <%
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