ASP 如何读写一个文本文件

利用Active Server Pages脚本，你就几乎完全可以控制服务器的文件系统。需要如下的组件：

■FileSystemObject：这个对象包括了一些基本的对文件系统进行操作的方法，比如说，复制和删除文件夹或者文件
■TextStream：这个对象用来读写文件
■File：它的方法和属性被用来处理单独的文件。
■Folder：它的方法和属性被用来处理文件夹。


这部分介绍如何读写一个文本文件。这对文本文件有很多用处，包括下面这些。

■一个常用的日志，利用文本文件记录访问者的活动以供日后参考。你可以记录诸如访问者IP地址，浏览器类型等等你能得到而且想要了解的东西。
■Form中的数据，你可以将用户在Form的文本框中填写的东西记入文本文件，尽管使用数据库会更加有效。
■每日新闻，将每日的新消息记录到文本文件，然后可以在很多文件中读出来显示
　

对文本文件的写操作

要创建并且写入一个文本文件，你应当使用FileSystemObject和TextStream对象。首先，你需要创建一个FileSystemObject对象的事例，然后，再利用CreateTextFile()以该事例创建一个TextStream对象的事例，最后利用TextStream对象的WriteLine()方法来写入文件。下面是这个例子：　

<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.CreateTextFile(“c://mydir//test.txt”)
MyTextFile.WriteLine(“欢迎进入迈至科网络ASP教程文件操作示例！”
MytextFile.Close
%>

这个例子创建了一个名字为test.txt的文件，该文件位于c://mydir//，WriteLine()方法被用来将那一句话写入该文件。最后，这个TextStream对象的事例关闭并且释放所有资源，下面部分将对每一个步骤进行仔细解释。
　

注意

如果你需要虚拟路径转化为真实路径（这样操作使得站点具有更强的可移植性），可以用Server.MapPath()方法，例如下面这个例子：
PhysicalPath=Server.MapPath(“/private/test.txt”)
假设虚拟路径/private对应于真实路径c://net//private，那么这个PhysicalPath的值将是c://net//private//test.txt

　

CreateTextFile()方法用来创建一个新的文本文件，当这个方法被调用，那么就返回一个TextStream对象，这个方法有一个必须的参数和两个可选的参数。

■FileSpecifier,限定要创建的文件及路径，如果没有这个参数，显然是要报错的。
■Overwrite,这个参数是可选的，默认为TRUE，如果存在同名的文件，依据这个参数判断是否进行覆盖操作，如果赋为FALSE，那么存在同名文件时会返回错误信息。
■Unicode,这个参数可选，默认为False，指示该文件是否用ASC码形式进行创建和保存。如果选择TRUE，将以Unicode方式创建。


再利用CreateTextFile()方法创建了文本文件后，你就可以使用TextStream对象来对文件进行读写，在写操作时，有如下的方法：

■Write(String).这个方法将一个字段写入文本文件。
■WriteLine(String)，这个方法是在文件中添加字串和一个分行符，这里面的string参数可选，如果没有的话，则添加一个分行符。
■WriteBlankLines(lines)，顾名思义，这是允许用户在文件中指定数目个分行符。
■close.这个方法就是关闭一个打开的TextStream文件并释放其占用的资源。
　

下面是一个连续在文件中输出32行同样字符串的例子脚本：
　

<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.CreateTextFile(“c://mydir//test.txt”)
For i=1 to 32
MyTextFile.WriteLine(“Hello World!”)
Next
MyTextFile.Close
%>
　

在文本文件中读取和追加数据

这里，首先要做的依然是创建一个FileSystemObject对象的事例，然后，利用OpenTextFile()方法来创建一个TextStream对象的事例，最后，你就可以用TextStream对象的ReadLine方法来对文件读取，下面是个例子：　

<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//test.txt”)
While not MyTextFile.AtEndOfStream
Response.Write(MyTextFile.ReadLine)
Wend
MyTextFile.Close
%>
　

这个脚本将文本文件Test.txt文件中所有的内容读出来并且显示在浏览器上。如果文件不存在，回显示相应错误信息（在下一个部分，你会学到怎样检测一个文件是否存在）

其中While…Wend循环是将文件内容一行一行的循环读取，其中如果没有到达文件末尾，那么AtEndOfStream属性就会是False，直到末尾时变为True。

　

下面是读取文件时可能会用到的属性：

■AtEndOfLine。这个属性判断是否到了文件中一个特定行的末尾，如果不是，则为False，反之为True
■AtEndOfStream。就是这个例子中用到的，判断是否到了该文件的结尾并依此返回True和False
■Column。这个属性判断当前字符在该行的位置，返回一个整数值。
■Line。这个属性判断当前行在文件中的行数，返回一个整数值
　

除了使用ReadLine方法以外，你当然还可以使用Read()方法。Read()方法会从指定打开的文本文件中返回指定数目个字符。下面是用这个方法的示例：

　

<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//test.txt”)
While NOT MyTextFile.AtEndOfLine
Response.Write(MyTextFile.Read(1))
WEND
MyTextFile.Close
%>


这个脚本从文本文件中接受第一行，每次接受显示一个字符，利用AtEndOfLine属性一直到行尾截止，由Read(1)一个一个读取。

　

下面是从文本文件读取数据时要用到的方法

■Read(Number).从文本文件中读取限定数目个字符
■ReadLine.从文本文件中读取一行（换行符不返回)
■ReadAll.这个方法接受TextStream文件的所有内容
■Skip(Number).这个方法从一个打开的文本文件中跳过指定数目个字符
■close关闭当前打开的文件并释放所占用的资源。

　
一般说来，OpenTextFile()方法是用来读取数据的，但是你也可以用它追加数据信息，例如，你希望在该文本数据中追加一些新内容，可以见下面的示例：
　

<%
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//browser.log”,8,TRUE)
MyTextFile.WriteLine(Request.ServerVariables(“HTTP_USER_AGENT”))
MyTextFile.Close
%>


这个脚本用于在网站中创建一个日志文件。无论什么时候这个脚本执行，此时的浏览器类型就会追加到该日志文件中，浏览器信息由ServerVariables集合接收。
　

注意

有关ServerVariables集合的情况参见本书的第14章有关小节。

这里面需要说明的是，如果browser.log不存在，则会自动建立，这是使用了OpenTextFile()方法的两个参数：IOMode和Create参数。

　

下面介绍针对于OpenTextFile()方法的所有参数：

■FileSpecifier，限定要进行读写或者追加的文本文件名称
■IOMODE，可选参数，指示该文件是被用来读，写还是追加。默认为1表示读，设为2表示进行写操作，进行追加操作则设为8。
■Create，可选参数，如果文件不存在是否创建，默认为False，如果希望进行创建，则设为TRUE
■Format，可选参数，指示文件是ASCII码制格式还是Unicode格式，作为默认的ASCII码制文件，其值为-2，如果希望设为Unicode格式，此参数设为-1

你不能在当前版本的Active Server Pages中使用常量，例如，你如果希望进行文件 追加，你必须使用数字8作为参数而不是什么常量。


　

范例应用

这部分提供了一个范例应用来使得读者对这些对象、方法、属性、以及集合、有更加明晰的认识了解。在世界最大的网上书店，美国亚马逊网上书店（ www.amazon.com）正在进行（也许您在阅读时这个活动还在进行）网上的故事合创运动，由John Updike先生写入 该故事的第一部分，每一天，访问者都可以根据自己的意愿在线进行故事发展的写作，同时每一天都会对写的最好的给出$1000的奖赏（如果您的英语写作足够好，不妨一试）。这个故事是大家一起添加的。


这真是个好主意，这下子网站的‘回头客’就会激增，同时产生巨大的社会影响力，你完全可以在自己的网站上实现类似的应用。最简单的方法就是直接把这个范例拿出去放到你的网站上，当然，如果你的网站还不能支持Active Server Pages，那么只好说你太不幸运了（见图19.1）。

　

例子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文件中的内容，请注意其中每一行之间用两个&nbsp;来进行分隔，参见HTML中符号含义。然后用一个Form提供访问者进行添加，其中Form执行还是这个文件，（就是第一部分脚本处理），因此注意该文件名称必须是”story.asp”

　

其实这个应用实在是过于简单，但是作一个留言版相当合适，而且在该文件膨胀过大时，只要删除就可以了，（不要忘了前面的脚本中将OpenTextFile的Create参数设为TRUE)是可以创建文本文件的。