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

Examples

Попробуйте сами - Примеры

Компонент Content Linking
В этом примере создается список содержимого.

Компонент Content Linking 2
В этом примере компонент Content Linking используется для перехода между страницами, перечисленными в текстовом файле.

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

Компонент ASP Content Linking используется для создания быстрой и удобной системы навигации!

Компонент Content Linking возвращает объект NextLink, который используется для хранения списка веб-страниц для навигации.

Синтаксис

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

Примеры ASP Content Linking

Сначала мы создаем текстовый файл - "links.txt":

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

Приведённый выше текстовый файл содержит страницы для навигации. Страницы должны быть расположены в том же порядке, в котором они отображаются, и включать описание для каждого имени файла (используйте табуляцию для разделения имени файла и описания).

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

Затем мы создаём файл-ссылку "nlcode.inc". Файл .inc создаёт объект NextLink для навигации между страницами, перечисленными в "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("'>Предыдущая страница</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Следующая страница</a>")
%>

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

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

Метод Описание Пример
GetListCount Возвращает количество элементов, перечисленных в файле списка Content Linking. <%
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("Следующее ")
Response.Write("описание: ")
Response.Write(c)
%>

Вывод:

Следующее описание: Переменные ASP
GetNextURL Возвращает URL следующего элемента, указанного в файле списка ссылок на содержимое. Если текущий файл не найден в файле списка, возвращает URL последней страницы в списке. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextURL("links.txt")
Response.Write("Следующее ")
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("описание: ")
Response.Write(c)
%>

Вывод:

Описание третьей страницы: ASP Variables
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("описание: ")
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

Другие расширения