19-2.cfm.htm

asp.net 应用开发教程,非常实用

<P ALIGN="JUSTIFY">   Response.Write(MyTextFile.Read(1))</P>
<P ALIGN="JUSTIFY">WEND</P>
<P ALIGN="JUSTIFY">MyTextFile.Close</P>
<P ALIGN="JUSTIFY">%&gt;</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    这个脚本从文本文件中接受第一行，每次接受显示一个字符，利用AtEndOfLine属性一直到行尾截止，由Read(1)一个一个读取。</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    下面是从文本文件读取数据时要用到的方法</P>
<B><P ALIGN="JUSTIFY">■</B>Read(Number).从文本文件中读取限定数目个字符</P>
<B><P ALIGN="JUSTIFY">■</B>ReadLine.从文本文件中读取一行（换行符不返回)</P>
<B><P ALIGN="JUSTIFY">■</B>ReadAll.这个方法接受TextStream文件的所有内容</P>
<B><P ALIGN="JUSTIFY">■</B>Skip(Number).这个方法从一个打开的文本文件中跳过指定数目个字符</P>
<B><P ALIGN="JUSTIFY">■</B>close关闭当前打开的文件并释放所占用的资源。</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    一般说来，OpenTextFile()方法是用来读取数据的，但是你也可以用它追加数据信息，例如，你希望在该文本数据中追加一些新内容，可以见下面的示例：</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">&lt;%</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
<P ALIGN="JUSTIFY">Set MyTextFile=MyFileObject.OpenTextFile(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>c:\mydir\browser.log</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>,8,TRUE)</P>
<P ALIGN="JUSTIFY">MyTextFile.WriteLine(Request.ServerVariables(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>HTTP_USER_AGENT</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>))</P>
<P ALIGN="JUSTIFY">MyTextFile.Close</P>
<P ALIGN="JUSTIFY">%&gt;</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    这个脚本用于在网站中创建一个日志文件。无论什么时候这个脚本执行，此时的浏览器类型就会追加到该日志文件中，浏览器信息由ServerVariables集合接收。</P>
<P ALIGN="JUSTIFY">　</P>
<B><P ALIGN="JUSTIFY">注意</P>
</B><P ALIGN="JUSTIFY">    有关ServerVariables集合的情况参见本书的第14章有关小节。</P>
<P ALIGN="JUSTIFY">    </P>
<P ALIGN="JUSTIFY">    这里面需要说明的是，如果browser.log不存在，则会自动建立，这是使用了OpenTextFile()方法的两个参数：IOMode和Create参数。</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    下面介绍针对于OpenTextFile()方法的所有参数：</P>
<B><P ALIGN="JUSTIFY">■</B>FileSpecifier，限定要进行读写或者追加的文本文件名称</P>
<B><P ALIGN="JUSTIFY">■</B>IOMODE，可选参数，指示该文件是被用来读，写还是追加。默认为1表示读，设为2表示进行写操作，进行追加操作则设为8。</P>
<B><P ALIGN="JUSTIFY">■</B>Create，可选参数，如果文件不存在是否创建，默认为False，如果希望进行创建，则设为TRUE</P>
<B><P ALIGN="JUSTIFY">■</B>Format，可选参数，指示文件是ASCII码制格式还是Unicode格式，作为默认的ASCII码制文件，其值为-2，如果希望设为Unicode格式，此参数设为-1</P>
<P ALIGN="JUSTIFY">    </P>
<P ALIGN="JUSTIFY">    你不能在当前版本的Active Server Pages中使用常量，例如，你如果希望进行文件 追加，你必须使用数字8作为参数而不是什么常量。</P>
<B><P ALIGN="JUSTIFY">　</P>
</FONT><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">范例应用</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">这部分提供了一个范例应用来使得读者对这些对象、方法、属性、以及集合、有更加明晰的认识了解。在世界最大的网上书店，美国亚马逊网上书店（www.amazon.com）正在进行（也许您在阅读时这个活动还在进行）网上的故事合创运动，由John Updike先生写入 该故事的第一部分，每一天，访问者都可以根据自己的意愿在线进行故事发展的写作，同时每一天都会对写的最好的给出$1000的奖赏（如果您的英语写作足够好，不妨一试）。这个故事是大家一起添加的。</P>
<P ALIGN="JUSTIFY">    </P>
<P ALIGN="JUSTIFY">这真是个好主意，这下子网站的‘回头客’就会激增，同时产生巨大的社会影响力，你完全可以在自己的网站上实现类似的应用。最简单的方法就是直接把这个范例拿出去放到你的网站上，当然，如果你的网站还不能支持Active Server Pages，那么只好说你太不幸运了（见图19.1）。</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">例子19.1 Story.asp脚本</P>
<P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">&lt;%</P>
<P ALIGN="JUSTIFY">IF NOT Request.Form(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>NextLine</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)=</FONT><FONT SIZE=3>””</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3> THEN</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
<P ALIGN="JUSTIFY">Set MyTextFile=MyFileObject.CreateTextFile(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\MyDir\TheStory.txt</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>,8,TRUE)</P>
<P ALIGN="JUSTIFY">MyTextFile.WriteLine(Request.Form(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>NextLine</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>))</P>
<P ALIGN="JUSTIFY">MyTextFile.Close</P>
<P ALIGN="JUSTIFY">END IF</P>
<P ALIGN="JUSTIFY">%&gt;</P>
<P ALIGN="JUSTIFY">&lt;HTML&gt;</P>
<P ALIGN="JUSTIFY">&lt;HEAD&gt;&lt;TITLE&gt;在线故事接龙&lt;/TITLE&gt;&lt;/HEAD&gt;</P>
<P ALIGN="JUSTIFY">&lt;BODY&gt;</P>
<P ALIGN="JUSTIFY">&lt;hr&gt;</P>
<P ALIGN="JUSTIFY">&lt;%</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
<P ALIGN="JUSTIFY">Set MyText=MyFileObject.OpenTextFile(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\MyDir\TheStory.txt</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
<P ALIGN="JUSTIFY">WHILE NOT MyTextFile.AtEndOfStream</P>
<P ALIGN="JUSTIFY">   Response.Write(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&amp;nsp;&amp;nsp;</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&amp;MyTextFile.Readline)</P>
<P ALIGN="JUSTIFY">WEND</P>
<P ALIGN="JUSTIFY">MyTextFile.Close</P>
<P ALIGN="JUSTIFY">%&gt;</P>
<P ALIGN="JUSTIFY">&lt;HR&gt;</P>
<P ALIGN="JUSTIFY">&lt;H3&gt;请输入这个故事的新行：&lt;/h3&gt;</P>
<P ALIGN="JUSTIFY">&lt;Form method=</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>post</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3> action=</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Story.asp</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&gt;</P>
<P ALIGN="JUSTIFY">&lt;input name=</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>NextLine</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3> Type=Text Size=70&gt;</P>
<P ALIGN="JUSTIFY">&lt;input type=Submit Value=</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>确认添加这一句</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&gt;</P>
<P ALIGN="JUSTIFY">&lt;/Form&gt;</P>
<P ALIGN="JUSTIFY">&lt;/Body&gt;</P>
<P ALIGN="JUSTIFY">&lt;/HTML&gt;</P>
<B><P ALIGN="JUSTIFY">图19.1 一个在线的故事接龙</P>
</B><P ALIGN="JUSTIFY"><IMG SRC="Image120.gif" tppabs="http://210.74.168.175/guide/asp/part19/Image120.gif" WIDTH=535 HEIGHT=329></P>
<P ALIGN="JUSTIFY">    这个Active Server Pages文件包含两段主要脚本，第一部分是看是否有Form传来的 句子信息，如果有，则该句子添加到TheStory.txt文件中去。第二部分是显示TheStory.txt文件中的内容，请注意其中每一行之间用两个&amp;nbsp来进行分隔，参见HTML中符号含义。然后用一个Form提供访问者进行添加，其中Form执行还是这个文件，（就是第一部分脚本处理），因此注意该文件名称必须是</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>story.asp</FONT><FONT SIZE=3>”</P>
</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">　</P>
<P ALIGN="JUSTIFY">    其实这个应用实在是过于简单，但是作一个留言版相当合适，而且在该文件膨胀过大时，只要删除就可以了，（不要忘了前面的脚本中将OpenTextFile的Create参数设为TRUE)是可以创建文本文件的。</P></FONT></BODY>
</HTML>