Примеры
Содержание сшивающего компонент
Создание оглавления.
Содержание Связывание Компонент 2
Используйте Content Linking компонент для перемещения между страницами в текстовом файле.
ASP Содержание компонентов Linking
Содержание компонента Linking ASP используется для создания быстрой и удобной системы навигации!
Связывание компонент Content возвращает объект NextLink, который используется для хранения списка веб-страниц для навигации.
Синтаксис
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP Содержание ссылок Пример
Сначала мы создаем текстовый файл - "links.txt" :
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Текстовый файл выше, содержит страницы для навигации. Страницы должны быть перечислены в том же порядке , в котором они должны отображаться, и он должен также содержать описание для каждого имени файла (use the tab key to separate file name from description) , (use the tab key to separate file name from description) .
Note: Если вы хотите , чтобы добавить страницу или изменить порядок страниц в списке; Вы должны изменить только текстовый файл! Навигации автоматически будут исправлены!
Затем мы создаем включаемый файл, "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("'>Previous Page</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Next Page</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("There are ") Response. Write(c) Response. Write(" items in the list") %> Output: There are 4 items in the list |
GetListIndex | Возвращает порядковый номер текущего элемента в файле списка Linking содержимого. Порядковый номер первого элемента равен 1. 0 возвращается, если текущая страница не Контента Связывание файла списка | <% 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 | Возвращает текстовое описание следующего элемента, указанного в файле списка Linking содержимого. Если текущая страница не найдена в файле списка он возвращает текстовое описание последней страницы в списке | <% 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 | Возвращает URL следующего элемента, указанного в файле списка Linking содержимого. Если текущая страница не найдена в файле списка он возвращает 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) %> Next URL is: asp_variables.asp |
GetNthDescription | Возвращает описание N-го страницы, перечисленных в файле списка Content Linking | <% 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 | Возвращает URL в N-ую страницу, указанную в файле списка Linking Content | <% 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 | Возвращает текстовое описание предыдущего элемента, указанного в файле списка Linking содержимого. Если текущая страница не найдена в файле списка он возвращает текстовое описание на первой странице в списке | <% 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 | Возвращает URL предыдущего элемента, указанного в файле списка Linking содержимого. Если текущая страница не найдена в файле списка он возвращает 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) %> Previous URL is: asp_variables.asp |