ASP Content Linking 组件
更多实例
ASP Content Linking 组件
建立一个目录。
ASP Content Linking 组件2
使用内容链接组件在文本文件中的页面之间导航。
ASP Content Linking 组件
ASP Content Linking 组件用于创建快速简便的导航系统！
Content Linking 组件返回一个 Nextlink 对象，该对象用于保存要导航的网页列表。
语法
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP Content Linking 实例
First we create a text file - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
上面的文本文件包含要导航的页面。 页面必须按照您希望它们显示的顺序列出，并且还必须包含每个文件名的描述（使用 tab 键将文件名与描述分开）。
注释： 如果要添加页面，或更改列表中页面的顺序； 你只需要修改文本文件！ 导航会自动更正！
然后我们创建一个包含文件 "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>")
%>
In each of the .asp pages listed in the text file "links.txt", put one line of code: <!-- #include file="nlcode.inc"-->. This line will include the code in "nlcode.inc" on every page listed in "links.txt" and the navigation will work.
ASP Content Linking Component's 方法
| 方法 | 描述 | 实例 |
|---|---|---|
| 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。如果当前页面不在Content Linking List文件中，则返回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 |
