• 1 = ForReading - Open a file for reading. You cannot write to this file
  • 1 = 以阅读方式打开（ForReading） - Open a file for reading. You cannot write to this file。| 打开一个文件然后进行阅读，你不可以向此文件中写入内容
• 2 = ForWriting - Open a file for writing
  • 2 = 以书写方式打开（ForWriting） - Open a file for writing | 打开一个文件并向其中书写内容。
• 8 = ForAppending - Open a file and write to the end of the file
  • 8 = 以添加方式打开（ForAppending） - Open a file and write to the end of the file | 打开一个文件，并在其文本的最末端追加文本。

• 0 = TristateFalse - Default. Open the file as ASCII
  • 0 = TristateFalse - Default. Open the file as ASCII | 默认方式。以ASCII的形式打开文件。
• -1 = TristateTrue - Open the file as Unicode
  • -1 = TristateTrue - Open the file as Unicode | 以Unicode的形式打开文件。
• -2 = TristateUseDefault - Open the file using the system default 
  • -2 = TristateUseDefault - Open the file using the system default | 以系统默认的形式打开文件。

<%
dim fs,f,ts
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("c:test.txt")
Set ts=f.OpenAsTextStream(ForWriting)
ts.Write("Hello World!")
ts.Close

Set ts=f.OpenAsTextStream(ForReading)
Response.Write(ts.ReadAll)
ts.Close
set ts=nothing
set f=nothing
set fs=nothing
%>

Output:

Hello World!