ASP 组件简介之ASP Content Linking组件

ASP Content Linking 组件用于创建快捷便利的导航系统。

Content Linking 组件会返回一个 Nextlink 对象，这个对象用于容纳需要导航网页的一个列表。

语法：

<%

set n=Server.CreateObject("MSWC.NextLink")

%>

首先，创建文件"links.txt"。此文件包含需要导航的页面的信息。页面的排序与他们显示的顺序相同，并包含对每个文件的描述(使用制表符来分隔文件名和描述信息，修改这个文件时导航系统会自动地更新)。

links.txt:

a.asp 第a个文件

b.asp 第b个文件

c.asp 第c个文件

请在上面列出的页面中放置这行代码：<!-- #include file="nlcode.inc"-->。这行代码会在 "links.txt" 中列出每个页面上引用下面这段代码，这样导航就可以工作了。

"nlcode.inc"

<%

dim n1

set n1=Server.CreateObject("MSWC.NextLink")

if(n1.GetListIndex("links.txt")>1) then

Response.Write("<a href='" &n1.GetPreviousURL("links.txt"))

Response.Write("'>Previous Page<a>")

end if

Response.Write("<a href='" & n1.GetNextURL("links.txt"))

Response.Write("'>Next Page</a>")

%>

ASP Content Linking组件的方法

GetListCount方法

返回内容链接列表文件中所列项目的数目：

<%

dim n1,c

set n1=Server.CreateObject("MSWC.NextLink")

c=n1.GetListCount("links.txt")

Response.Write("There are ")

Response.Write(c)

Response.Write(" items in the list")

%>

输出：

There are 4 items in the list

GetNextDescription方法

返回在内容链接列表文件中所列的下一条目的文本描述。假如在列表文件中没有找到当前文件，则列表中最后一个页面的文本描述。

例子：

<%

dim n1,c

set n1=Server.CreateObject("MSWC.NextLink")

c=n1.GetNextDescription("links.txt")

Response.Write("Next")

Response.Write("description is: ")

Response.Write(c)

%>

输出：Next Description is:ASP Variables

GetNextURL方法

返回在内容链接列表文件中所列的下一个条目的 URL。假如在列表文件中没有找到当前文件，则列表中最后一个页面的 URL。

例子

<%

dim n1,c

set n1=Server.CreateObject("MSWC.NextLink")

c=n1.GetNextURL("links.txt")

Response.Write("Next")

Response.Write("URL is: ")

Response.Write(c)

%>

输出：Next URL is：asp_variable.asp

GetNthDescription方法

返回在内容链接列表文件中所列的第N个页面的描述信息

<%

dim n1,c

set n1=Server.CreateObject("MSWC.NextLink")

c=n1.GetNthDescription("links.txt",3)

Response.Write("Third")

Response.Write("description is: ")

Response.Write(c)

%>

输出：Third description is:ASP variables

GetNthURL方法与GetNthDescription方法类似

GetPreviousDescription方法

返回在内容链接列表文件中所列前一个条目的文本描述。假如在列表文件中没有找到当前文件，则列表中第一个页面的文本描述。