捡沙

天空之城
  首页  :: 新随笔  :: 管理

Content Linking组件

Posted on 2009-01-05 16:28  洛克.李  阅读(249)  评论(0)    收藏  举报

曾经用DW做网页都有这样一个烦恼：新做了页面，其它所有相关的页都要重新再做一次超级链接。一次也就罢了，多了多了不禁觉得无用功做了不少。试想如果能有一个专门的文件来负责页面的连接那该多好。
首先需要编写一个目录文件，也就是网页网址的顺序列表文件，它是一个文本文件。其次，编写一个ASP文件，根据目录文件提供的信息自动生成带超链的目录页。如果需要在每一页上假如“向前或向后翻页”的超链，就再编写一个能自动生成翻页超链的包含文件，可使用inc为扩展名,例如"Nlink.inc"。以后，在组内每一页中包含它。

1，link.txt 

book1.asp 第一课
book2.asp 第二课
book3.asp 第三课

2，link.asp 

 

Code
<% 
dim onl,intcount
set onl=server.CreateObject("mswc.nextlink")
intcount=onl.getlistcount("../js/link.txt")
dim path,str,num
for num=1 to intcount
path=onl.getnthurl("../js/link.txt",num)
str=onl.getnthdescription("../js/link.txt",num)
response.Write"<li><a href="""&path&""">"&str&"</a>"&vbclf
next
%>

 

3.book1,boo2,boo3文件内容 

Code

 

方案二:

 

 

Code

 

包含文件

 

Code