Компонент Content Linking ASP

Пример

Компонент свяzy content linking
В этом примере будет создан список содержимого.
Компонент свяzy content linking 2
В этом примере используется компонент свяzy content linking для навигации между страницами, перечисленными в текстовом файле.

Компонент Content Linking ASP

Компонент свяzy content linking ASP используется для создания удобной системы навигации.

Компонент свяzy content linking возвращает объект Nextlink, который используется для容纳 списка страниц, по которым необходимо навигировать.

Синтаксис

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

Сначала мы создадим текстовый файл - "links.txt". Этот файл содержит информацию о страницах, которые необходимо навигировать. Порядок排列 страниц должен соответствовать их порядку отображения, и в нем должно быть описание каждого файла (информация о файле и описание разделены табуляцией).

Комментарий:Если вы хотите добавить информацию о файлах в список или изменить порядок страниц в списке, вам нужно сделать всего одно дело - просто изменить этот текстовый файл! Затем навигационная система автоматически обновится!

"links.txt":

asp_intro.asp ASP ввод
asp_syntax.asp ASP синтаксис
asp_variables.asp ASP переменные
asp_procedures.asp ASP процедуры

Пожалуйста, поместите эту строку кода на перечисленных страницах: <!-- #include file="nlcode.inc"--> Эта строка кода будет перечислять каждую страницу, на которой используется следующий фрагмент кода в файле "links.txt", чтобы навигация работала.

"nlcode.inc":

<%
"Используйте компонент Content Linking" 
"для навигации между страницами списка"
"в 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("'>Предыдущая страница</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Следующая страница</a>")
%>

Методы компонента ASP Content Linking

Метод GetListCount

Возврат количества перечисленных элементов в файле ссылок на содержимое:

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Есть ")
Response.Write(c)
Response.Write(" элементов в списке")
%>

Вывод:

В списке есть 4 элемента

Метод GetListIndex

Возврат индекса текущего файла в списке ссылок на содержимое файла. Индекс первого элемента равен 1. Если текущая страница не содержится в файле списка, то возвращается 0.

Пример

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Номер элемента ")
Response.Write(c)
%>

Вывод:

Номер элемента 3

Метод GetNextDescription

Возвращает текстовое описание следующей записи в списке ссылок на файле содержимого ссылок. Если текущий файл не найден в списке, текстовое описание последней страницы списка.

Пример

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetNextDescription("links.txt") 
Response.Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Вывод: Следующее описание: ASP переменные

Метод GetNextURL

Возвращает URL следующей записи в списке ссылок на файле содержимого ссылок. Если текущий файл не найден в списке, URL последней страницы списка.

Пример

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

Вывод: Следующий URL: asp_variables.asp

Метод GetNthDescription

Возвращает описание N-ой страницы в списке ссылок на файле содержимого ссылок.

Пример

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

Вывод: Третий описание: ASP переменные

Метод GetNthURL

Возвращает URL N-ой страницы в списке ссылок на файле содержимого ссылок.

Пример

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

Вывод: Третий URL: asp_variables.asp

Метод GetPreviousDescription

Возвращает текстовое описание предыдущей записи в списке ссылок на файле содержимого ссылок. Если текущий файл не найден в списке, текстовое описание первой страницы списка.

Пример

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

Вывод: Предыдущее описание: ASP переменные

Метод GetPreviousURL

Возвращает URL предыдущей записи в списке ссылок на файле содержимого ссылок. Если текущий файл не найден в списке, URL первой страницы списка.

Пример

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

Вывод: Предыдущий URL: asp_variables.asp