Latest web development tutorials

ASP Vinculación de contenido

Ejemplos

Trate - Ejemplo

Contenido componente de vinculación
En este caso, para construir una tabla de contenidos.

Contenido componente de vinculación 2
En este ejemplo se utiliza el contenido componente de unión entre las páginas de un archivo de texto para navegar.


ASP componente de unión de contenido

ASP componentes de unión de contenido para crear sistema de navegación rápida y fácil!

componente de unión de contenido devuelve un objeto Nextlink que se utiliza para mantener una lista de la página de navegación requerida.

gramática

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


Ejemplos de contenidos que vincula ASP

En primer lugar, vamos a crear un archivo de texto - "links.txt":

asp_intro.asp ASP 简介
asp_syntax.asp ASP 语法
asp_variables.asp ASP 变量
asp_procedures.asp ASP 程序

El archivo de texto que contiene por encima de la página de navegación requerida. orden de las páginas que se debe mostrar en el mismo orden, y contiene una descripción de cada nombre de archivo (pestañas de uso para separar el nombre del fichero y descripción).

Nota: Si desea agregar páginas a la lista, o cambiar el orden de las páginas en la lista, entonces usted tiene que hacer es modificar el archivo de texto que!La navegación se actualizará de forma automática!

entonces se crea un archivo de referencia, "nlcode.inc". .inc archivos entre las páginas para crear un objeto NextLink que aparece en el "links.txt" en la navegación.

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

Por favor, colocado en cada página .asp archivo de texto "links.txt" que aparece en la línea decódigo: <- archivo # include = "nlcode.inc " ->.Esta línea de código hace referencia a código "nlcode.inc" en cada página que se indica en el "links.txt" en la navegación va a funcionar.


El método de la ASP componente de unión de contenido

方法 描述 实例
GetListCount 返回内容链接列表文件中所列项目的数量。 <%
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")
%>

输出:

There are 4 items in the list

GetListIndex 返回在内容链接列表文件中当前条目的索引号。第一个条目的索引号是 1。如果当前页面不在内容链接列表文件中,则返回 0。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListIndex("links.txt")
Response.Write("Item number ")
Response.Write(c)
%>

输出:

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

输出:

Next description is: ASP Variables

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

输出:

Next URL is: 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)
%>

输出:

Third description is: ASP Variables

GetNthURL 返回在内容链接列表文件中所列的第 N 个页面的 URL。 <%
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 返回在内容链接列表文件中所列的前一个条目的文本描述。如果在列表文件中没有找到当前文件,则返回列表中第一个页面的文本描述。 <%
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。如果在列表文件中没有找到当前文件,则返回列表中第一个页面的 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