<<<返回

内容连接组件实例应用
这部分是创建一个简单的讨论组的实例应用，用户在这里可以读取他人文章以及发表新的文章。 注：对于这些很有代表性的实例，如果用户希望在线进行使用和测试以加深理解，建议访问http://www.aspsite.com 下面是一个特别简单的用户讨论组的范例，如果你希望也有这么一个讨论组，那么所有的程序放到你的服务器上就可以了（当然前提是你的服务器支持Active Server Pages） 创建这么一个讨论组，你只需要以下四个文件： ·发布文章页：这个页面用来发布文章
·文件包含页：用于用户读取文章，将发布的文章文件包容在该文件中。
·新项目处理页：将发布的文章进行保存并且更新组件连接所用的文本文件。
·讨论组主页：显示所有信息，提供发布文章的入口。
发布文章页
提供用户发布新消息的页面，这其实只是一个普通的HTML页，利用了HTML的Form进行文章填写，其中名字为subject的文本框是标题拦。
例20.1 post.htm脚本
<HTML>
<HEAD><TITLE>文章发布页</TITLE></HEAD>
<BODY>
<h2>发布一个新消息</h2>
<form method=post action=”newitem.asp”>
主题：<input type=text name=subject size=50 maxlength=50>
<br>
<textarea name=Posting cols=60 rows=10wrap=”Virtual”></textarea>
<p>
<input type=Reset value=”清除”>
<input type=Submit Value=”发布信息”>
</Form>
</Body>
</Html>
文件包容页
每一个信息页显示时都应当包括前一篇和后一篇，同时还要有一个回主页的连接，这样信息页就必须用文件包容方式，这些连接显示显然是自动更新的，那么更新过程在下一个页面介绍中，这个页面介绍是如何动态显示。脚本如下：
例20.2：news.inc脚本
<hr>
<%
Set mylinks=Server.CreateObject(“MSWC.NextLink”)
IF mylinks.GetListIndex(“news.txt”)>1 THEN
%>
<a Href=”<%=mylinks.GetPreviousURL(“news.txt”) %>”>
前一篇文章</a>
<% End IF %>
<a Href=”<%=mylinks.GetNextURL(“news.txt”) %>”>
后一篇文章</a>
<p>
<a href=”news.asp”>返回主页</a>