动态包括文本文件（2）——动态导航
在教程5中我已经介绍了怎样动态地合并文本文件到你地网页上。现在我们将继续深入探讨它。我的文章数据库引用一些简短的文章（只有一页）以及一些长文章（有20页）。而我不想让用户装载全部的文章，所以我们我们必须将文本文件分隔成许多小片段。先让我们再次看看数据库的设计。
文章数据库
现在你可能会注意到我参考的原始文本文件要包含到ArticleURL区域以及接下去的文件作为Page2URL，等等。
区域名字 数据类型 描述
ArticleID Autonumber 主键
Title varchar(75) 文章标题
ShortDesc varchar(255) 简短的描述
ArticleURL varchar(50) 文章第一页的文件名字
Page2URL varchar(50) 文章第二页的文件名字（如果文章很长）
Page3URL varchar(50) 文章第三页的文件名字（如果文章很长）
Page4URL varchar(50) 文章第四页的文件名字（如果文章很长）
示例数据
区域名字 示例
ArticleID 100
Title 文章标题
ShortDesc 文章的简短描述
ArticleURL 100.asp
Page2URL 100-2.asp
Page3URL 100-3.asp
Page4URL 100-3.asp
网站
现在我们需要对教程5中的代码进行一些修改。
在这个页面上第一件事情要做的是放置一个记录集，用于显示文章和作者。在所有的UltraDev记录集代码下面以及在标签上面增加以下的代码，手稿程序必须在UltraDev的'Go to Specific Record'代码之后，这样ArticleURL才被正确取出。代码如下：
< %
Dim ArticleLink, ArticleFile
If Request.Form("ArticleLink") = "" then
ArticleLink = rsArticleID.Fields.Item("ArticleURL").Value
Else ArticleLink = Request.Form("ArticleLink")
End If
ArticleFile = Chr(34) & ArticleLink & Chr(34)
% >
其余的代码跟教程5中的一样。
|