ASP编程入门进阶（十四）：Browser & Linkin（2）

二、Content Linking组件

曾经用DW做网页都有这样一个烦恼：新做了页面，其它所有相关的页都要重新再做一次超级链接。一次也就罢了，多了多了不禁觉得无用功做了不少。试想如果能有一个专门的文件来负责页面的连接那该多好。

Content Linking 组件也就应运而生了。它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成和更新目录表及先前和后续的 Web 页的导航链接。

使用该组件，首先需要编写一个目录文件，也就是网页网址的顺序列表文件，它是一个文本文件，可以自由命名。其次，编写一个ASP文件，根据目录文件提供的信息自动生成带超链的目录页。如果需要在每一页上假如“向前或向后翻页”的超链，就再编写一个能自动生成翻页超链的包含文件，可使用inc为扩展名,例如"Nlink.inc"。以后，在组内每一页中包含它。

1，link.txt

redirect.asp?url=http://www.cnbruce.com/    cnbruce.com
redirect.asp?url=http://www.blueidea.com/    blueidea.com
redirect.asp?url=https://www.aspxhome.com/    aspxhome.com

该目录文件的网址就是连接网址，文本就是连接文本了，需要注意的是中间采用Tab键进行分隔。

2，link.asp

<％Set objNextLink = Server.CreateObject("MSWC.Nextlink")％>
<％intCount = objNextLink.GetListCount("link.txt")
For i = 1 To intCount ％>
<a href="<％=objNextLink.GetNthURL("link.txt", i) ％>">
<％=objNextLink.GetNthDescription("link.txt", i) ％></a><br>
<％Next％>

“Set objNextLink = Server.CreateObject("MSWC.Nextlink")”建立Nextlink组件的连接
“objNextLink.GetListCount("link.txt")”提取link.txt文件中的列表数目
“objNextLink.GetNthURL("link.txt",i)”提取link.txt文件中第i行文本的连接网址
“objNextLink.GetNthDescription("link.txt",i)”提取link.txt文件中第i行文本的连接文本

3，redirect.asp
也就是转向文件了。

<％Response.Clear
Response.Redirect Request.QueryString("url")％>

呵呵，是不是觉得还没用到“上一页”、“下一页”的功能。再来~！

4，link1.txt

1.asp    ASP编程入门进阶（一）
2.asp    ASP编程入门进阶（二）
3.asp    ASP编程入门进阶（三）
4.asp    ASP编程入门进阶（四）

主要功能是设置文本和连接

5，link1.inc

<％Set Nextlink=Server.CreateObject("MSWC.NextLink")
Response.write "当前文章索引号为" & NextLink.GetListIndex("link1.txt") & "<br>"
Response.write "上一章的标题：" & NextLink.GetPreviousDescription("link1.txt") & "<br>"
Response.write "下一章的标题：" & NextLink.GetNextDescription("link1.txt") & "<br>"
count = NextLink.GetListCount("link1.txt")
Response.write "<a href="""&NextLink.GetNthUrl("link1.txt",1)&"""&>"&"第一章"&"</a> "
Response.write "<a href="""&NextLink.GetPreviousUrl("link1.txt")&"""&>"&"上一章"&"</a> "
Response.write "<a href="""&NextLink.GetNextUrl("link1.txt")&"""&>"&"下一章"&"</a> "
Response.write "<a href="""&NextLink.GetNthUrl ("link1.txt",count)&"""&>"&"最后一章"&"</a><br>"
％>

GetListCount(目标文件名)       显示组件中包含的连接的文件数目。
GetListIndex(目标文件名)       显示当前页在这些连接文件中的前后位置索引值。
GetNextDescription(目标文件名) 显示连接文件中下一个的描述。
GetNextURL(目标文件名)         显示连接文件中的下一个文件的URL地址。
GetNthDescription(目标文件名, N)   显示连接文件中第N个网页的描述。
GetNthURL(目标文件名, N)       显示连接文件中第N个网页的文件URL地址。
GetPreviousDescription(目标文件名) 显示连接文件中前一个文件的描述。
GetPreviousURL(目标文件名)     显示连接文件中前一个文件的URL地址。

6，1.asp，2.asp，3.asp，4.asp

<!--#include file="link1.inc"--><br>

以下是具体内容

这就是个非常简单的分页程式了。当然接着的后面会有些更周详更复杂的分页，慢慢来吧，呵呵。