Komponenta pro propojení obsahu ASP
Další příklady
Sestavte obsah.
použijte k navigaci mezi stránkami v textovém souboru.
Komponenta pro propojení obsahu ASP
Komponenta ASP Content Linking se používá k vytvoření rychlého a snadného navigačního systému!
Komponenta Content Linking vrací objekt Nextlink, který se používá k uložení seznamu webových stránek, které se mají procházet.
Syntax
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Příklad propojení obsahu ASP
Nejprve vytvoříme textový soubor - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Výše uvedený textový soubor obsahuje stránky, které se mají procházet. Stránky musí být uvedeny ve stejném pořadí, v jakém je chcete zobrazit, a musí také obsahovat popis každého názvu souboru (název souboru od popisu oddělte klávesou Tab).
Poznámka: Pokud chcete přidat stránku nebo změnit pořadí stránek v seznamu; stačí upravit textový soubor! Navigace bude automaticky opravena!
Poté vytvoříme začleněný soubor „nlcode.inc“. Soubor .inc vytvoří objekt NextLink pro navigaci mezi stránkami uvedenými v "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ždou ze stránek ASP uvedených v textovém souboru "links.txt" vložte jeden řádek kódu: <!-- #include file="nlcode.inc"--> . Tento řádek bude obsahovat kód v "nlcode.inc" na každé stránce uvedené v "links.txt" a navigace bude fungovat.
Metody komponenty ASP Content Linking
| 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 |