Composant de liaison de contenu ASP
Plus d'exemples
Créez une table des matières.
Utilisez le composant de lien de contenu pour naviguer entre les pages d'un fichier texte.
Composant de liaison de contenu ASP
Le composant ASP Content Linking est utilisé pour créer un système de navigation simple et rapide !
Le composant Content Linking renvoie un objet Nextlink qui est utilisé pour contenir une liste de pages Web à parcourir.
Syntaxe
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Exemple de lien de contenu ASP
Nous créons d'abord un fichier texte - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Le fichier texte ci-dessus contient les pages à parcourir. Les pages doivent être répertoriées dans le même ordre que vous souhaitez qu'elles soient affichées, et elles doivent également contenir une description pour chaque nom de fichier (utilisez la touche de tabulation pour séparer le nom du fichier de la description).
Remarque : Si vous souhaitez ajouter une page ou modifier l'ordre des pages dans la liste ; vous n'avez qu'à modifier le fichier texte ! La navigation sera automatiquement corrigée !
Ensuite, nous créons un fichier inclus, "nlcode.inc". Le fichier .inc crée un objet NextLink pour naviguer entre les pages listées dans "links.txt".
"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>")
%>
Dans chacune des pages .asp répertoriées dans le fichier texte "links.txt", insérez une ligne de code : <!-- #include file="nlcode.inc"--> . Cette ligne inclura le code dans "nlcode.inc" sur chaque page répertoriée dans "links.txt" et la navigation fonctionnera.
Méthodes du composant de liaison de contenu ASP
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 |