Composant Content Linking ASP

Exemple

Composant Content Linking
Dans cet exemple, nous allons construire une liste de contenu.
Composant Content Linking 2
Dans cet exemple, le composant Content Linking est utilisé pour naviguer entre les pages listées dans un fichier texte.

Composant Content Linking ASP

Le composant ASP Content Linking est utilisé pour créer un système de navigation rapide et pratique.

Le composant Content Linking retourne un objet Nextlink, utilisé pour contenir une liste de pages nécessitant une navigation.

Syntaxe

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

Tout d'abord, nous créerons un fichier texte - "links.txt". Ce fichier contient des informations sur les pages nécessitant une navigation. L'ordre des pages doit correspondre à leur ordre d'affichage, et inclure une description de chaque fichier (séparée par des tabulations entre le nom du fichier et les informations de description).

Remarque :Si vous souhaitez ajouter des informations de fichiers à la liste ou modifier l'ordre des pages dans la liste, vous n'avez qu'à modifier ce fichier texte ! Ensuite, le système de navigation mettra à jour automatiquement !

"links.txt":

asp_intro.asp Introduction ASP
asp_syntax.asp Syntaxe ASP
asp_variables.asp Variables ASP
asp_procedures.asp Programme ASP

Placez cette ligne dans les pages répertoriées ci-dessus : <!-- #include file="nlcode.inc"-->. Cette ligne listera chaque page où se trouve ce code dans "links.txt", permettant ainsi le fonctionnement de la navigation.

"nlcode.inc":

<%
"Utilisez le composant de liaison de contenu 
"pour naviguer entre les pages listées
"dans links.txt
dim nl
Set nl=Server.CreateObject("MSWC.NextLink")
si (nl.GetListIndex("links.txt")>1) alors
  Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
  Response.Write("'>Page précédente</a>")
fin si
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Page suivante</a>")
%>

Méthodes du composant de liaison de contenu ASP

Méthode GetListCount

Retourne le nombre d'articles dans le fichier de liste des liens de contenu :

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Il y a ")
Response.Write(c)
Response.Write(" éléments dans la liste")
%>

Sortie :

Il y a 4 éléments dans la liste

Méthode GetListIndex

Retourne l'indice du fichier courant dans la liste des liens de contenu. L'indice du premier élément est 1. Si la page courante n'est pas dans le fichier de liste, retourne 0.

Exemple

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Numéro d'article ")
Response.Write(c)
%>

Sortie :

Numéro d'article 3

Méthode GetNextDescription

Retourne la description texte de l'entrée suivante listée dans le fichier de liste des liens de contenu. Si le fichier actuel n'est pas trouvé dans la liste, la description texte de la dernière page de la liste.

Exemple

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Sortie : La description suivante est : Variables ASP

Méthode GetNextURL

Retourne l'URL de l'entrée suivante listée dans le fichier de liste des liens de contenu. Si le fichier actuel n'est pas trouvé dans la liste, l'URL de la dernière page de la liste.

Exemple

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextURL("links.txt") 
Response.Write("Next ")
Response.Write("URL is: ")
Response.Write(c)
%>

Sortie : Le prochain URL est : asp_variables.asp

Méthode GetNthDescription

Retourne la description de l'information de la page Nème listée dans le fichier de liste des liens de contenu.

Exemple

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

Sortie : La troisième description est : Variables ASP

Méthode GetNthURL

Retourne l'URL de la page Nème listée dans le fichier de liste des liens de contenu.

Exemple

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

Sortie : Le troisième URL est : asp_variables.asp

Méthode GetPreviousDescription

Retourne la description texte de l'entrée précédente listée dans le fichier de liste des liens de contenu. Si le fichier actuel n'est pas trouvé dans la liste, la description texte de la première page de la liste.

Exemple

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousDescription("links.txt") 
Response.Write("Previous ")
Response.Write("description is: ")
Response.Write(c)
%>

Sortie : La description précédente est : Variables ASP

Méthode GetPreviousURL

Retourne l'URL de l'entrée précédente listée dans le fichier de liste des liens de contenu. Si le fichier actuel n'est pas trouvé dans la liste, l'URL de la première page de la liste.

Exemple

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousURL("links.txt") 
Response.Write("Previous ")
Response.Write("URL is: ")
Response.Write(c)
%>

Sortie : L'URL précédente est : asp_variables.asp