ASP 文件超链接组件
当需要建立大量链接的页面为访问者提供导航时，可以采用Context Linking文件超链接组件。使用该组件可以对URL列表进行管理，使得用户可以像对书的内容一样处理网站中的页面。使用Context Linking组件可以生成或者更新以前及后续网页的链接。
Context Linking组件需要一个特殊文本文件的支持，该文件称为Context Linking列表或列表文件。该文件存储了所有的页链接、链接次序和相应的描述性文本。只需要简单地一次性插入URL和描述，就可以自动地创建目录表和页面自己的链接。如果改变此文本文件中的一行，则改变将立即返回到目录表和链接次序中，不需要手工地更新页面。
可以将ProgID为“MSWC.NextLink”传递给Server.CreateObject方法来创建Context Linking组件，其代码如下：
<%
Set MyNextLink = Server.CreateObject(“MSWC.NextLink”)
%>
也可以使用带有RUNAT=”SERVER”，ProgID=“MSWC.NextLink”属性的HTML标记<OBJECT>来创建该组件的实例，代码如下：
<OBJECT RUNAT=”SERVER” ID=” MyNextLink” ProgID=”MSWC.NextLink”>
</OBJECT>
1．Context Linking列表文件
Context Linking列表文件是一个普通的文本文件，里面记录的是需要链接的各个URL地址和描述。列表中的每一个URL都对应列表文件中的一行文本，第一行都有三部分组件，它们使用一个制表符（tab字符）进行分区，并以一个回车换行符结束，格式如下：
URL Description [Comment]
其中各参数解释如下：
●URL 该部分代表要包括在列表中的页面的虚拟或相对URL，该部分包括的文件可以是HTML、ASP文件，也可以是浏览器支持的其他文件，比如图像、XML文件等。不支持绝对路径。
●Description 该部分代表了用于显示页面的一个描述性链接的文本。
●Comment 该部分是可选的，表示被组件忽略的注释文本，这些注释不显示在客户的浏览器中。
下面是一个Context Linking列表实例文件，代码如下所示。
文件名：conLink.asp
1.asp 第一页
2.asp 第二页
3.html 第三页
4.html 第四页
2．Context Linking组件的属性
About属性是Context Linking组件的唯一属性，该属性是一个只读属性，返回正在使用组件的版本信息。其语法如下：
String = NextLink.About
例如，下面是使用该属性的代码：
<%
Set MyNextLink=Server.CreateObject(“MSWC.NextLink”)
%>
3．Context Linking组件的方法
为了从Context Linking列表文件中提取不同的项，Context Linking组件提供了如下一些方法。
●GetLinkCount方法
该方法返回指定Context Linking列表文件中包含项的数量。其中语法如下：
Integer = NextLink.GetListCount(link_file)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径及文件名。
●GetLinkIndex方法
该方法返回Context Linking列表文件中当前页的索引。其语法如下所示：
Integer = NextLInk.GetListIndex(link_file)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径
及文件名。
如果该方法的返回值为0，则表示该页面不在指定的Context Linking列表文件中。
●GetPreviousURL
该方法从指定的Context Linking列表文件中返回当前页的上一页URL。其语法如下所示。
String = NextLink.GetPreviousURL(link_file)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径及文件名。
●GetPreviousDescription方法
该方法从指定的Context Linking列表文件中返回当前页的上一页的说明行。其语法如下：
String = NextLink.GetPreviousDescription(link_file)
其中，参数link_file的数据类型的String，用来指定要使用Context Linking列表文件的路径及文件名。
●GetNextURL方法
该方法从指定的Context Linking列表文件中返回当前页的下一页的URL。其语法如下：
String = NextLink.GetNextURL(link_file)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径及文件名。
●GetNextDescription方法
该方法从指定的Context Linking列表文件中返回当前页的下一页的说明行。其语法如下：
String = NextLink.GetNextDescription(link_file)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径
及文件名。
●GetNthURL方法
该方法从指定的Context Linking列表文件中返回指定索引页面的URL。其语法如下所示。
String = NextLink.GetNthURL(link_file,n)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径及文件名。参数n的数据类型为整型，表示在Context Linking列表文件中页面的索引（从1开始）。
●GetNthDescription方法
该方法从指定的Context Linking列表文件中返回指定索引页面的说明行。其语法如下所示。
String = NextLink.GetNthDescription(link_file,n)
其中，参数link_file的数据类型是String，用来指定要使用Context Linking列表文件的路径及文件名。参数n的数据类型为整型，表示在Context Linking列表文件中页面的索引（从1开始）。
下面是一个显示Context Linking组件的使用实例，代码如下所示。
文件名：conlist.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Context Linking组件的应用实例</title>
</head>
<body>
<ul>
<%
dim count , i
set MyNextLink= Server.CreateObject("MSWC.NextLink")
count = MyNextLink.GetlistCount("")
for i=1 to count
%>
<li>
<a href="<%=MyNextLink.GetNthURL("",i)%>">
<%=MyNextLink.GetNthDescription("",i)%></a>
asp网页文件的格式<%
next
%>
</ul>
</body>
</html>
执行上述代码，结果如图5-12所示。
图5-12 文件超链接组件
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论