精华区文章阅读

发信人: echo (lucky三毛), 信区: network
标  题: Re:  懂 ASP的大侠帮忙
发信站: 听涛站 (Tue May  9 12:24:49 2000), 转信

【在 yahooboy 的大作中提到: 】
: 看看这个程序目的是实现故事接龙  就是大家可以为这个故事写接下去的情节
: 但我看第一个脚本是新建一个文本文件而且是可以覆盖的
: 第二个脚本事读出这个脚本  那么每次打开这页的时候这个文本文件不是都会被
: 重建一次，那又如何称的上是接龙呢？而且Action是调用本身所在地页，又是什么意思呢？
: 是不是应该先调入这个文本文件，然后将脚本另存在一页呢？
: <%
: IF NOT Request.Form(“NextLine”)=”” THEN
: Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
: Set MyTextFile=MyFileObject.CreateTextFile(“C:\MyDir\TheStory.txt”,8,TRUE)
                              ~~~~~~~~~~~~~~~写错了吧，应该OpenTextFile
        后面的参数true表示如果文件不存在就建立此文件。
        而参数8表示向文件末尾追加。
: 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>

--
                         为民服务是我的宗旨。嘻嘻!
                               ***    ***
                          高亢悲怆的长调响起来了，
                          它叩击着大地的胸膛�   �
                          冲撞着低巡的流云
                               ***    ***

※ 来源:．听涛站 cces.net．[FROM: 匿名天使的家]

computer 版 (精华区)