Le composant NextLink crée un objet qui gère une liste d'URL de sorte à pouvoir traiter les pages de votre site Web comme les pages d'un livre.
Vous pouvez l'utiliser pour générer et mettre à jour automatiquement les tables des matières et les liens de navigation vers les pages Web précédentes et suivantes.
Pour créer une instance du composant NextLink sous VBScript :

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

Son fonctionnement repose sur l'élaboration d'un fichier texte stockésur le serveur web dont chaque ligne va contenir le nom et l'URL d'une page liée. Ce dernier doit obéir à la construction suivante :

Adresse.url }} Description }} Commentaire

...

AdresseN.url }} DescriptionN }} CommentaireN

Une tabulation doit obligatoirement apparaître entre chaque élément et chaque URL doit commencer une nouvelle ligne.

Seules des adresses relatives sont acceptées par le composant NextLink.

Méthodes

Nom	Description
GetListCount(fichier_texte)	Compte le nombre d'éléments liés dans le fichier texte.
GetListIndex(fichier_texte)	Extrait l'index de la page actuelle dans le fichier texte.
GetNextDescription(fichier_texte)	Extrait la description de la page suivante dans le fichier texte.
GetNextURL(fichier_texte)	Extrait l'URL de la page suivante dans le fichier texte.
GetNthDescription(fichier_texte, page_x)	Retourne la description de la page_x dans le fichier texte.
GetNthURL(fichier_texte,page_x)	Retourne l'adresse URL de la page_x listée dans le fichier texte.
GetPreviousDescription(fichier_texte)	Retourne la description de la page précédente listée dans le fichier texte.
GetPreviousURL(fichier_texte)	Retourne l'adresse URL de la page précédente listée dans le fichier texte.

Exemple

<OL>
<%> Set NextLink = Server.CreateObject ("MSWC.NextLink")
compteur = NextLink.GetListCount ("Liens.txt")
I = 1 %> <UL> <% Do While (I <= compteur) %> <LI><A HREF=" <%= NextLink.GetNthURL ("Liens.txt", I) %> "> <%= NextLink.GetNthDescription ("liens;txt", I) %> </A>
<%
I = (I + 1)
Loop

%>
</UL>
</OL>

Le script suivant ajoute les boutons Page suivante et Page précédente à un fichier HTML.

<%
Set NextLink = Server.CreateObject ("MSWC.NextLink")
If (NextLink.GetListIndex ("/data/nextlink.txt") > 1)
Then
%>
<A HREF=" <%= NextLink.GetPreviousURL ("/data/nextlink.txt") %> ">
Page précédente</A>
<% End If %>
<A HREF=" <%= NextLink.GetNextURL ("/data/nextlink.txt") %> ">Page suivante</A>

Nous vous informons que ce cours constitue une œuvre protégée en France par le Code de la Propriété Intellectuelle, et à l’étranger par les conventions internationales en vigueur sur le droit d’auteur. La violation de l’un des droits d’auteur de l’œuvre est un délit de contrefaçon. Il est donc interdit, à titre privé ou public, de reproduire, copier, vendre, revendre ou exploiter, que ce soit dans un but commercial ou purement gratuit, ce cours, sauf accord exprès et préalable de son auteur.