ASP Content Linking


tryitimg.gif

Try it - Example

Content Linking Component
This example builds a content list.

Content Linking Component 2
This example uses the Content Linking component to navigate between pages listed in a text file.

ASP Content Linking Component

ASP Content Linking component is used to create a quick and convenient navigation system!

The Content Linking component will return a Nextlink object, which is used to hold a list of web pages that need to be navigated.

Syntax

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

ASP Content Linking Example

First, we will create a text file - "links.txt":

asp_intro.asp ASP Introduction
asp_syntax. asp ASP syntax
asp_variables.asp ASP variables
asp_procedures.asp ASP procedure

The above text file contains the pages that need to be navigated. Pages should be arranged in the same order as they appear and contain a description of each file name (use tabs to separate file names and description information).

Note: If you wish to add pages to the list, or change the order of pages in the list, all you need to do is modify this text file! The navigation will update automatically!

Then we create a reference file, "nlcode.inc". The .inc file creates a NextLink object to navigate between the pages listed in "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>")
%>

Please place one line of code in each .asp page listed in the text file "links.txt": <!-- #include file="nlcode.inc"-->. This line of code will list the code in "nlcode.inc" that is referenced on each page in "links.txt" so that navigation can work.

Methods of ASP Content Linking Component

MethodDescriptionInstance
GetListCountReturns the number of items listed in the content link 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

GetListIndexReturns the index number of the current item in the content link list file. The index number of the first entry is 1. Returns 0 if the current page is not in the content link 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

GetNextDescriptionReturns the text description of the next item listed in the content link list file. If the current file is not found in the list file, the text description of the last page in the list is returned. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextDescription("links.txt")
Response .Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Output:

Next description is: ASP Variables

GetNextURLReturns the URL of the next entry listed in the content link list file. If the current file is not found in the list file, the URL of the last page in the list is returned. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextURL("links.txt")
Response .Write("Next ")
Response.Write("URL is: ")
Response.Write(c)
%>

Output:

Next URL is: asp_variables.asp

GetNthDescriptionReturns the description information of the Nth page listed in the content link 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)
%>

Output:

Third description is: ASP Variables

GetNthURLReturns the URL of the Nth page listed in the content link 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)
%>

Output:

Third URL is: asp_variables.asp

GetPreviousDescriptionReturns the text description of the previous entry listed in the content link list file. If the current file is not found in the list file, a text description of the first page in the list is returned. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousDescription("links.txt")
Response .Write("Previous ")
Response.Write("description is: ")
Response.Write(c)
%>

Output:

Previous description is: ASP Variables

GetPreviousURLReturns the URL of the previous entry listed in the content link list file. If the current file is not found in the list file, the URL of the first page in the list is returned. <%
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