Componente Content Linking ASP

Exemplo

Componente de Linking de Conteúdo
Este exemplo construirá uma lista de conteúdo.
Componente de Linking de Conteúdo 2
Este exemplo usa o componente Content Linking para navegar entre as páginas listadas em um arquivo de texto.

Componente Content Linking ASP

O componente ASP Content Linking é usado para criar um sistema de navegação rápido e conveniente.

O componente de Linking de Conteúdo retorna um objeto Nextlink, que é usado para conter uma lista de páginas que precisam ser navegadas.

Sintaxe

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

Primeiro, criaremos um arquivo de texto - "links.txt". Este arquivo contém informações sobre as páginas que precisam ser navegadas. A ordem das páginas deve ser a mesma que a de sua exibição e deve incluir uma descrição de cada arquivo (usando tabulação para separar o nome do arquivo e as informações de descrição).

Notas:Se você quiser adicionar informações de arquivo à lista ou alterar a ordem das páginas na lista, tudo o que precisa fazer é modificar esse arquivo de texto! Então, o sistema de navegação atualizará automaticamente!

"links.txt":

asp_intro.asp Introdução ao ASP
asp_syntax.asp Sintaxe ASP
asp_variables.asp Variáveis ASP
asp_procedures.asp Programas ASP

Coloque essa linha nas páginas listadas acima: <!-- #include file="nlcode.inc"-->. Essa linha incluirá cada página que referencia o código abaixo no "links.txt", permitindo que a navegação funcione.

"nlcode.inc":

<%
"Use o Componente de Link de Conteúdo 
"para navegar entre as páginas listadas
"in links.txt
dim nl
Set nl=Server.CreateObject("MSWC.NextLink")
se (nl.GetListIndex("links.txt")>1) então
  Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
  Response.Write("'>Página Anterior</a>")
fim se
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Próxima Página</a>")
%>

Métodos do Componente de Link de Conteúdo ASP

Método GetListCount

Retorna o número de itens listados no arquivo de lista de links de conteúdo:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Existem ")
Response.Write(c)
Response.Write(" itens na lista")
%>

Saída:}}

Existem 4 itens na lista

Método GetListIndex

Retorna o índice atual do arquivo na lista de links de conteúdo. O índice do primeiro item é 1. Se a página atual não estiver na lista de arquivos, retorna 0.

Exemplo

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Número do item ")
Response.Write(c)
%>

Saída:}}

Número do item 3

Método GetNextDescription

Retorna a descrição de texto da próxima entrada listada no arquivo de lista de links de conteúdo. Se não encontrar o arquivo atual na lista, a descrição de texto da última página da lista.

Exemplo

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

Saída: A próxima descrição é: Variáveis ASP

Método GetNextURL

Retorna o URL da próxima entrada listada no arquivo de lista de links de conteúdo. Se não encontrar o arquivo atual na lista, o URL da última página da lista.

Exemplo

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

Saída: O próximo URL é: asp_variables.asp

Método GetNthDescription

Retorna a descrição da página Nª listada no arquivo de lista de links de conteúdo.

Exemplo

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

Saída: A terceira descrição é: Variáveis ASP

Método GetNthURL

Retorna o URL da página Nª listada no arquivo de lista de links de conteúdo.

Exemplo

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthURL("links.txt",3) 
Response.Write("Third ")
Response.Write("URL é: ")
Response.Write(c)
%>

Saída: O terceiro URL é: asp_variables.asp

Método GetPreviousDescription

Retorna a descrição de texto da entrada anterior listada no arquivo de lista de links de conteúdo. Se não encontrar o arquivo atual na lista, a descrição de texto da primeira página da lista.

Exemplo

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

Saída: A descrição anterior é: Variáveis ASP

Método GetPreviousURL

Retorna o URL da entrada anterior listada no arquivo de lista de links de conteúdo. Se não encontrar o arquivo atual na lista, o URL da primeira página da lista.

Exemplo

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

Saída: URL anterior é: asp_variables.asp