Componente di collegamento del contenuto ASP
Altri esempi
del contenuto Creare un sommario.
Utilizzare il componente di collegamento del contenuto per navigare tra le pagine in un file di testo.
Componente di collegamento del contenuto ASP
Il componente ASP Content Linking viene utilizzato per creare un sistema di navigazione facile e veloce!
Il componente Collegamento contenuto restituisce un oggetto Nextlink utilizzato per contenere un elenco di pagine Web da esplorare.
Sintassi
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Esempio di collegamento di contenuti ASP
Per prima cosa creiamo un file di testo - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Il file di testo sopra contiene le pagine da navigare. Le pagine devono essere elencate nello stesso ordine in cui si desidera che vengano visualizzate e deve anche contenere una descrizione per ciascun nome file (utilizzare il tasto Tab per separare il nome file dalla descrizione).
Nota: per aggiungere una pagina o modificare l'ordine delle pagine nell'elenco; devi solo modificare il file di testo! La navigazione verrà automaticamente corretta!
Quindi creiamo un file di inclusione, "nlcode.inc". Il file .inc crea un oggetto NextLink per navigare tra le pagine elencate in "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>")
%>
In ciascuna delle pagine .asp elencate nel file di testo "links.txt", inserisci una riga di codice: <!-- #include file="nlcode.inc"--> . Questa riga includerà il codice in "nlcode.inc" in ogni pagina elencata in "links.txt" e la navigazione funzionerà.
Metodi del componente di collegamento del contenuto 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 |