<<<返回

范例应用
这部分提供了一个范例应用来使得读者对这些对象、方法、属性、以及集合、有更加明晰的认识了解。 在世界最大的网上书店，美国亚马逊网上书店（www.amazon.com）正在进行（也许您在阅读时这个活动还在进行）网上的故事合创运动，由John Updike先生写入 该故事的第一部分，每一天，访问者都可以根据自己的意愿在线进行故事发展的写作，同时每一天都会对写的最好的给出$1000的奖赏（如果您的英语写作足够好，不妨一试）。这个故事是大家一起添加的。 这真是个好主义，这下子网站的‘回头客’就会激增，同时产生巨大的社会影响力，你完全可以在自己的网站上实现类似的应用。
最简单的方法就是直接把这个范例拿出去放到你的网站上，当然，如果你的网站还不能支持Active Server Pages，那么只好说你太不幸运了。
例子19.1 Story.asp脚本
<%
IF NOT Request.Form(“NextLine”)=”” THEN
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.CreateTextFile(“C:\MyDir\TheStory.txt”,8,TRUE)
MyTextFile.WriteLine(Request.Form(“NextLine”))
MyTextFile.Close
END IF
%>
<HTML>
<HEAD><TITLE>在线故事接龙</TITLE></HEAD>
<BODY>
<hr>
<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyText=MyFileObject.OpenTextFile(“C:\MyDir\TheStory.txt”)
WHILE NOT MyTextFile.AtEndOfStream
Response.Write(“&nsp;&nsp;”&MyTextFile.Readline)
WEND
MyTextFile.Close
%>
<HR>
<H3>请输入这个故事的新行：</h3>
<Form method=”post” action=”Story.asp”>
<input name=”NextLine” Type=Text Size=70>
<input type=Submit Value=”确认添加这一句”>
</Form>
</Body>
</HTML>
这个Active Server Pages文件包含两段主要脚本，第一部分是看是否有Form传来的 句子信息，如果有，则该句子添加到TheStory.txt文件中去。第二部分是显示TheStory.txt文件中的内容，请注意其中每一行之间用两个 来进行分隔，参见HTML中符号含义。然后用一个Form提供访问者进行添加，其中Form执行还是这个文件，（就是第一部分脚本处理），因此注意该文件名称必须是”story.asp”
其实这个应用实在是过于简单，但是作一个留言版相当合适，而且在该文件膨胀过大时，只要删除就可以了，（不要忘了前面的脚本中将OpenTextFile的Create参数设为TRUE)是可以创建文本文件的。