ASP Content Linking komponent

Eksempel

Content Linking Komponent
Dette eksempel vil bygge en indholdsliste.
Content Linking Komponent 2
Dette eksempel bruger Content Linking-komponenten til at navigere mellem sider, der er nævnt i en tekstfil.

ASP Content Linking komponent

ASP Content Linking-komponenten bruges til at oprette en hurtig og bekvem navigationsløsning.

Content Linking-komponenten returnerer en Nextlink-objekt, som bruges til at indeholde en liste over sider, der skal navigeres til.

Syntaks

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

Først vil vi oprette en tekstfil - "links.txt". Denne fil indeholder oplysninger om de sider, der skal navigeres til. Rækkefølgen af siderne skal være den samme som deres visningsrækkefølge, og hver fil skal have en beskrivelse (brug tabulator til at adskille filnavn og beskrivelsesinformation).

Bemærkninger:Hvis du vil tilføje filinformation til listen eller ændre rækkefølgen af siderne i listen, skal du kun ændre denne tekstfil! Derefter opdateres navigeringssystemet automatisk!

"links.txt":

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

Placer denne linje i de nævnte sider: <!-- #include file="nlcode.inc"--> Denne linje vil inkludere "links.txt" på hver side, så navigeringen kan fungere korrekt.

"nlcode.inc":

<%
'Brug Indholdsforbindelseskomponenten 
'for at navigere mellem de listede sider
'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("'>Forrige Side</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Næste Side</a>")
%>

ASP Indholdsforbindelseskomponentens metoder

GetListCount metoden

Returner antallet af elementer i listen over indholdsforbindelser:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Der er ")
Response.Write(c)
Response.Write(" elementer i listen")
%>

Output:

Der er 4 elementer i listen

GetListIndex metoden

Returner indekset for den aktuelle fil i listen over indholdsforbindelser. Første elementets indeks er 1. Hvis den aktuelle side ikke findes i listen, returneres 0.

Eksempel

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

Output:

Elementnummer 3

GetNextDescription-metoden

Returnerer tekstdeskriptionen for den næste post i listen over indholdslinker. Hvis den aktuelle fil ikke findes i listen, tekstdeskriptionen for den sidste side.

Eksempel

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("Næste ")
Response.Write("beskrivelse er: ")
Response.Write(c)
%>

Output: Næste beskrivelse er: ASP Variabler

GetNextURL-metoden

Returnerer URL'en for den næste post i listen over indholdslinker. Hvis den aktuelle fil ikke findes i listen, URL'en til den sidste side.

Eksempel

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

Output: Næste URL'en er: asp_variables.asp

GetNthDescription-metoden

Returnerer beskrivelsen for den N'te side i listen over indholdslinker.

Eksempel

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

Output: Tredje beskrivelse er: ASP Variabler

GetNthURL-metoden

Returnerer URL'en for den N'te side i listen over indholdslinker.

Eksempel

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

Output: Tredje URL'en er: asp_variables.asp

GetPreviousDescription-metoden

Returnerer tekstdeskriptionen for den foregående post i listen over indholdslinker. Hvis den aktuelle fil ikke findes i listen, tekstdeskriptionen for den første side.

Eksempel

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

Output: Tidligere beskrivelse er: ASP Variabler

GetPreviousURL-metoden

Returnerer URL'en for den foregående post i listen over indholdslinker. Hvis den aktuelle fil ikke findes i listen, URL'en til den første side.

Eksempel

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