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 |