ASP Content Linking komponent

Exempel

Content Linking komponent
I detta exempel kommer vi att bygga en innehållslista.
Content Linking komponent 2
I detta exempel används Content Linking-komponenten för att navigera mellan sidor som listas i en textfil.

ASP Content Linking komponent

ASP Content Linking-komponenten används för att skapa ett snabbt och bekvämt navigeringssystem.

Content Linking-komponenten returnerar ett Nextlink-objekt, som används för att innehålla en lista över webbsidor som behöver navigeras.

Syntax

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

Först kommer vi att skapa en textfil - "links.txt". Denna fil innehåller information om de sidor som behöver navigeras. Uppställningen av sidorna bör vara i samma ordning som de visas, och inkludera en beskrivning av varje fil (separerad av tabulatortecken mellan filnamn och beskrivningsinformation).

Kommentar:Om du vill lägga till filinformation till listan eller ändra sidornas ordning i listan, behöver du endast ändra denna textfil! Därefter kommer navigeringssystemet att uppdateras automatiskt!

"links.txt":

asp_intro.asp ASP-introduktion
asp_syntax.asp ASP-syntaks
asp_variables.asp ASP-variabler
asp_procedures.asp ASP-procedurer

Placera denna rad på de ovan nämnda sidorna: <!-- #include file="nlcode.inc"--> Detta rad kommer att lista varje sida som refererar till detta kodstycke i "links.txt", så att navigeringen fungerar.

"nlcode.inc":

<%
"Använd innehållslänkkomponenten" 
"för att navigera mellan de listade sidorna"
"i 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("'>Föregående sida</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Nästa sida</a>")
%>

Metoder för ASP Content Linking-komponenten

GetListCount-metoden

Återger antalet objekt som listas i innehållslänklistefilen:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Det finns ")
Response.Write(c)
Response.Write(" objekt i listan")
%>

Uttag:

Det finns 4 objekt i listan

GetListIndex-metoden

Återger indexnumret för den aktuella filen i innehållslänklistefilen. Det första objektets indexnummer är 1. Om den aktuella sidan inte finns i listefilen, returneras 0.

Exempel

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

Uttag:

Objektnummer 3

GetNextDescription-metoden

Returnerar textbeskrivningen för nästa post i innehållslänklistefilen. Om den aktuella filen inte hittas i listan, textbeskrivningen för den sista sidan i listan.

Exempel

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("Nästa ")
Response.Write("beskrivning är: ")
Response.Write(c)
%>

Uttag: Nästa beskrivning är: ASP Variabler

GetNextURL-metoden

Returnerar URL för nästa post i innehållslänklistefilen. Om den aktuella filen inte hittas i listan, URL för den sista sidan i listan.

Exempel

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

Uttag: Nästa URL är: asp_variables.asp

GetNthDescription-metoden

Returnerar beskrivningsinformationen för den N:te sidan i innehållslänklistefilen.

Exempel

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthDescription("links.txt",3) 
Response.Write("Tredje ")
Response.Write("beskrivning är: ")
Response.Write(c)
%>

Uttag: Tredje beskrivning är: ASP Variabler

GetNthURL-metoden

Returnerar URL för den N:te sidan i innehållslänklistefilen.

Exempel

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

Uttag: Tredje URL är: asp_variables.asp

GetPreviousDescription-metoden

Returnerar textbeskrivningen för föregående post i innehållslänklistefilen. Om den aktuella filen inte hittas i listan, textbeskrivningen för den första sidan i listan.

Exempel

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousDescription("links.txt") 
Response.Write("Föregående ")
Response.Write("beskrivning är: ")
Response.Write(c)
%>

Uttag: Föregående beskrivning är: ASP Variabler

GetPreviousURL-metoden

Returnerar URL för föregående post i innehållslänklistefilen. Om den aktuella filen inte hittas i listan, URL för den första sidan i listan.

Exempel

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousURL("links.txt") 
Response.Write("Föregående ")
Response.Write("URL är: ")
Response.Write(c)
%>

Uttalande: Föregående URL är: asp_variables.asp