内容的自动的制表

Content Linking 组件让你能够把你的Web站点上的页面组织得象一本书一样。它构造一个简要表，并维持在你的Web页面上的前一页和后一页的链接。这使你在改变页面的次序，插入或删除页面时不必对页面做太多的维护工作。

    内容的链接包括两部分：Content Linking List 和Content Linking 组件。
例：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<%
  Dim count
  Dim NextLink
  Dim index
  Set NextLink = Server.CreateObject("MSWC.NextLink")
  count = NextLink.GetListCount("index.txt")
%>
<div align="center"><center>
<table border="0" cellspacing="0" width="80%">
  <tr>
    <td width="100%" bgcolor="#ffda8d"><p align="center">网 上 冲 浪</font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#ffda8d"><table border="0" width="100%" cellspacing="1">
<%
For index = 1 to count step 2
%>
      <tr>
        <td width="50%" height="32" align="center" bgcolor="#FFFFFF">
<a href="<%= NextLink.GetNthURL("index.txt", index)%>">
<%= NextLink.GetNthDescription("index.txt", index) %></a></td>
   <td width="50%" height="32" align="center" bgcolor="#FFFFFF">
<%if index+1 <=count then%>
<p><a href="<%= NextLink.GetNthURL("index.txt", index+1)%>">
<%=NextLink.GetNthDescription("index.txt", index+1) %></a>
<%end if%>
</td>
      </tr>
<%next%>
    </table>
    </td>
  </tr>
</table>
</center></div>
</body>
</html>

index.txt文件：

nickname.htm 网虫的绰号与签名文件
nonameemail.htm 发匿名邮件
fillwater.htm 网络灌水学
hacker.htm 谨防网上特洛依木马
face.htm 网上表情
master.htm 网上高手速成完全手册
attchat.htm 攻击聊天室
inweb.htm 触网岁月
eschaker.htm 摆脱黑手
wwwskill.htm WWW的使用技巧
chatwar.htm 聊天室舌战
webmiskate.htm 电脑及网络常见误区
web36.htm 破网三十六计
fweb36.htm 反破网三十六计
safe.htm 个人用户网络安全
websafe.htm 个人上网用户的安全


说明：URL和说明之间用一个制表符分开。

♡ 点赞 0

☆ 收藏 0

留言区（共0条）