Składnik Content Linking ASP

Przykład

Komponent Content Linking
W tym przykładzie zbudujemy listę zawartości.
Komponent Content Linking 2
W tym przykładzie używamy komponentu Content Linking do nawigacji między stronami wymienionymi w pliku tekstowym.

Składnik Content Linking ASP

Komponent ASP Content Linking jest używany do tworzenia szybkiego i wygodnego systemu nawigacji.

Komponent Linking Content zwraca obiekt Nextlink, który jest używany do przechowywania listy stron do nawigacji.

Gramatyka

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

Najpierw utworzymy plik tekstowy - "links.txt". Ten plik zawiera informacje o stronach do nawigacji. Kolejność stron powinna być taka sama jak ich kolejność wyświetlania, a każda strona powinna zawierać opis (rozdzielony tabulacją znaków między nazwą pliku a informacjami opisowymi).

Komentarz:Jeśli chcesz dodać informacje o plikach do listy lub zmienić kolejność stron w liście, wystarczy zmodyfikować ten plik tekstowy! System nawigacji automatycznie się zaktualizuje!

"links.txt":

asp_intro.asp Wprowadzenie do ASP
asp_syntax.asp Gramatyka ASP
asp_variables.asp Zmienne ASP
asp_procedures.asp Program ASP

Umieść to polecenie na wymienionych powyżej stronach: <!-- #include file="nlcode.inc"-->. To polecenie umieści każdy plik w pliku "links.txt", tak aby nawigacja działała poprawnie.

"nlcode.inc":

<%
"Użyj komponentu Linking do Treści" 
"aby nawigować między stronami wymienionymi"
"w pliku 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("'>Poprzednia strona</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Następna strona</a>")
%>

Metody komponentu ASP Content Linking

Metoda GetListCount

Zwraca liczbę elementów wymienionych w pliku listy linków do treści:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("There are ")
Response.Write(c)
Response.Write(" elementów w liście")
%>

Wynik:}}

There are 4 items in the list

Metoda GetListIndex

Zwraca numer indeksu bieżącego pliku w liście linków do treści. Numer indeksu pierwszego elementu wynosi 1. Jeśli bieżąca strona nie znajduje się w pliku listy, zwraca 0.

Przykład

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

Wynik:}}

Numer elementu 3

Metoda GetNextDescription

Zwraca tekstowy opis następnego elementu z listy linków w pliku listy linków. Jeśli w pliku listy linków nie znaleziono bieżącego pliku, to tekstowy opis ostatniej strony listy.

Przykład

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("Następny ")
Response.Write("opis to: ")
Response.Write(c)
%>

Wynik: Następny opis to: ASP zmienne

Metoda GetNextURL

Zwraca URL następnego elementu z listy linków w pliku listy linków. Jeśli w pliku listy linków nie znaleziono bieżącego pliku, to URL ostatniej strony listy.

Przykład

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

Wynik: Następny URL to: asp_variables.asp

Metoda GetNthDescription

Zwraca opis strony o numerze N z listy linków w pliku listy linków.

Przykład

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

Wynik: Trzeci opis to: ASP zmienne

Metoda GetNthURL

Zwraca URL strony o numerze N z listy linków w pliku listy linków.

Przykład

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

Wynik: Trzeci URL to: asp_variables.asp

Metoda GetPreviousDescription

Zwraca tekstowy opis poprzedniego elementu z listy linków w pliku listy linków. Jeśli w pliku listy linków nie znaleziono bieżącego pliku, to tekstowy opis pierwszej strony listy.

Przykład

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

Wynik: Poprzedni opis to: ASP zmienne

Metoda GetPreviousURL

Zwraca URL poprzedniego elementu z listy linków w pliku listy linków. Jeśli w pliku listy linków nie znaleziono bieżącego pliku, to URL pierwszej strony listy.

Przykład

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

Wynik: Poprzedni URL to: asp_variables.asp