Komponent do łączenia treści ASP
Więcej przykładów
Zbuduj spis treści.
Użyj komponentu łączącego treść, aby przechodzić między stronami w pliku tekstowym.
Komponent do łączenia treści ASP
Komponent ASP Content Linking służy do tworzenia szybkiego i łatwego systemu nawigacji!
Komponent Content Linking zwraca obiekt Nextlink, który jest używany do przechowywania listy stron WWW, którymi należy się poruszać.
Składnia
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Przykład łączenia treści ASP
Najpierw tworzymy plik tekstowy - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Powyższy plik tekstowy zawiera strony, którymi należy się poruszać. Strony muszą być wymienione w tej samej kolejności, w jakiej mają być wyświetlane, a także muszą zawierać opis dla każdej nazwy pliku (użyj klawisza tabulatora, aby oddzielić nazwę pliku od opisu).
Uwaga: Jeśli chcesz dodać stronę lub zmienić kolejność stron na liście; musisz tylko zmodyfikować plik tekstowy! Nawigacja zostanie automatycznie poprawiona!
Następnie tworzymy plik dołączany „nlcode.inc”. Plik .inc tworzy obiekt NextLink do nawigacji między stronami wymienionymi w "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>")
%>
Na każdej ze stron .asp wymienionych w pliku tekstowym „links.txt” umieść jeden wiersz kodu: <!-- #include file="nlcode.inc"--> . Ten wiersz będzie zawierał kod w „nlcode.inc” na każdej stronie wymienionej w „links.txt”, a nawigacja będzie działać.
Metody komponentu łączącego treści 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 |