ASP Content Linking Component

Voorbeeld

Content Linking component
In dit voorbeeld zal een inhoudslijst worden gebouwd.
Content Linking component 2
In dit voorbeeld wordt de Content Linking-component gebruikt om te navigeren tussen de pagina's die worden vermeld in een tekstbestand.

ASP Content Linking Component

De ASP Content Linking-component wordt gebruikt om een snel en gemakkelijk navigatiesysteem te creëren.

De Content Linking-component retourneert een Nextlink-object, dat wordt gebruikt om een lijst van te navigeren webpagina's op te slaan.

Syntaxis

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

Eerst zullen we een tekstbestand creëren - "links.txt". Dit bestand bevat relevante informatie over de pagina's die moeten worden genavigeerd. De volgorde van de pagina's moet overeenkomen met hun weergavevolgorde en moet een beschrijving van elke file bevatten (gescheiden door tabtoetsen tussen de bestandsnaam en de beschrijvingsinformatie).

Note:If you want to add file information to the list or change the order of the pages in the list, all you need to do is modify this text file! Then the navigation system will automatically update!

"links.txt":

asp_intro.asp ASP introduction
asp_syntax.asp ASP syntax
asp_variables.asp ASP variables
asp_procedures.asp ASP program

Please place this line of code in the pages listed above: <!-- #include file="nlcode.inc"-->. This line of code will list each page that references the following code in "links.txt", so navigation can work.

"nlcode.inc":

<%
'Use the Content Linking Component 
'to navigate between the pages listed
'in links.txt
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>")
%>

ASP Content Linking component methods

GetListCount method

Return the number of items listed in the content link 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")
%>

Uitvoer:}}

There are 4 items in the list

GetListIndex method

Return the index number of the current file in the content link list file. The index number of the first entry is 1. If the current page is not in the list file, then return 0.

Voorbeeld

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Item number ")
Response.Write(c)
%>

Uitvoer:}}

Item nummer 3

GetNextDescription-methode

Retourneer de tekstbeschrijving van het volgende item in de lijst van inhoudskoppelingen in het bestand. Als het huidige bestand niet in de lijst wordt gevonden, dan de tekstbeschrijving van de laatste pagina in de lijst.

Voorbeeld

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

Uitvoer: Volgende beschrijving is: ASP Variabelen

GetNextURL-methode

Retourneer de URL van het volgende item in de lijst van inhoudskoppelingen in het bestand. Als het huidige bestand niet in de lijst wordt gevonden, dan de URL van de laatste pagina in de lijst.

Voorbeeld

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

Uitvoer: Volgende URL is: asp_variables.asp

GetNthDescription-methode

Retourneer de beschrijving van de N-ende pagina in de lijst van inhoudskoppelingen in het bestand.

Voorbeeld

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthDescription("links.txt",3) 
Response.Write("Derde ")
Response.Write("beschrijving is: ")
Response.Write(c)
%>

Uitvoer: Derde beschrijving is: ASP Variabelen

GetNthURL-methode

Retourneer de URL van de N-ende pagina in de lijst van inhoudskoppelingen in het bestand.

Voorbeeld

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

Uitvoer: Derde URL is: asp_variables.asp

GetPreviousDescription-methode

Retourneer de tekstbeschrijving van de vorige item in de lijst van inhoudskoppelingen in het bestand. Als het huidige bestand niet in de lijst wordt gevonden, dan de tekstbeschrijving van de eerste pagina in de lijst.

Voorbeeld

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

Uitvoer: Vorige beschrijving is: ASP Variabelen

GetPreviousURL-methode

Retourneer de URL van de vorige item in de lijst van inhoudskoppelingen in het bestand. Als het huidige bestand niet in de lijst wordt gevonden, dan de URL van de eerste pagina in de lijst.

Voorbeeld

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

Output: Previous URL is: asp_variables.asp