ASP - Компонент Content Linking
Компонент Content Linking создает объект Nextlink, который управляет списком адресов URL, чтобы страницы веб-узла можно было рассматривать как страницы книги. Компонент Content Linking можно использовать для автоматического создания и обновления оглавлений и переходов на предыдущую и следующую веб-страницы. Он идеально подходит для приложений типа электронной газеты или списка сообщений конференции.
Компонент Content Linking ссылается на файл Content Linking List, содержащий список связанных веб-страниц. Этот список хранится на веб-сервере.
Имена файлов
| Nextlink.dll | Компонент Content Linking |
| Content Linking List | Текстовый файл, содержащий список веб-страниц в порядке их отображения. Этот файл должен быть доступен на виртуальном пути веб-сервера. |
Синтаксис
Set СледующаяСсылка = Server.CreateObject( "MSWC.NextLink" )
Параметры
СледующаяСсылка
Указывает имя объекта, созданного вызовом метода Server.CreateObject.
Методы
| GetListCount | Подсчитывает число связанных элементов в файле списка Content Linking. |
| GetListIndex | Получает указатель текущей страницы в файле списка Content Linking. |
| GetNextDescription | Получает описание следующей страницы из файла списка Content Linking. |
| GetNextURL | Получает адрес URL следующей страницы из файла списка Content Linking. |
| GetNthDescription | Получает описание следующей страницы из файла списка Content Linking. |
| GetNthURL | Получает адрес URL N-ой страницы из файла списка Content Linking. |
| GetPreviousDescription | Получает строку описания предыдущей страницы из файла списка Content Linking. |
| GetPreviousURL | Получает адрес URL предыдущей страницы из файла списка Content Linking List. |
Пример
В приведенном ниже примере строится оглавление.
<OL>
<%
Set NextLink = Server.CreateObject ("MSWC.NextLink")
count = NextLink.GetListCount ("/data/nextlink.txt")
I = 1
%>
<UL>
<% Do While (I <= count) %>
<LI><A HREF=" <%= NextLink.GetNthURL ("/data/nextlink.txt", I) %> ">
<%= NextLink.GetNthDescription ("/data/nextlink.txt", I) %> </A>
<%
I = (I + 1)
Loop
%>
</UL>
</OL>
Приведенный ниже сценарий добавляет в файл HTML кнопки перехода на предыдущую и следующую страницы.
<%
Set NextLink = Server.CreateObject ("MSWC.NextLink")
If (NextLink.GetListIndex ("/data/nextlink.txt") > 1)
Then
%>
<A HREF=" <%= NextLink.GetPreviousURL ("/data/nextlink.txt") %> ">
Previous Page</A>
<% End If %>
<A HREF=" <%= NextLink.GetNextURL ("/data/nextlink.txt") %> ">Next Page</A>