最新的Web开发教程
 

ASP内容链接组件


例子

例子

内容链接组件
建立一个目录。

内容链接组件2
使用Content Linking组件在一个文本文件中的页面之间进行导航。


ASP Content Linking组件

ASP的内容链接组件用于创建快捷便利的导航系统!

内容链接组件返回被导航用来保存Web页面的列表中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)

Note:如果你想添加页面,或更改列表中的页面顺序; 你只需要修改文本文件! 该导航系统会自动予以纠正!

然后,我们创建一个包含文件, "nlcode.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 返回在内容链接列表文件中所列的项目数 <%
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 返回当前项目的内容链接列表文件的索引号。 第一项的索引号为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 返回在内容链接列表文件中所列的下一个项目的文字说明。 如果在列表文件中没有找到当前页面返回最后一页的文字说明就行了 <%
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