如何通过asp程序创建文本文件，并把表单提交的内容写入到文本文件中！

[zyzhou]

如何通过asp程序创建文本文件，并把表单提交的内容写入到文本文件中！

[everywhen]

set fso=server.CreateObject("scripting.filesystemobject")
file1 = fso.createtextfile("C:/a.txt",true)

[张海霖]

set fso=server.CreateObject("scripting.filesystemobject")
file1 = fso.createtextfile("C:/a.txt",true)
string s = "asdfsdf";
file1.WriteLine(s);

[zyzhou]

Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
set fso=server.CreateObject("scripting.filesystemobject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并且带有新行字符。
f1.WriteLine("Testing 1, 2, 3.")
' 向文件写三个新行字符。
f1.WriteBlankLines(4)
f1.writetab(1)
' 写一行。
f1.Write ("This is a test.")

' 读取文件的内容。
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub

这个写的程序，会用新数据覆盖了以前的旧数据，我目前想在新一行上
记录新的数据

[xiaobird1]

OpenTextFile Method
Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.

object.OpenTextFile(filename[, iomode[, create[, format]]])

Arguments
object

Required. Always the name of a FileSystemObject.

filename

Required. String expression that identifies the file to open.

iomode

Optional. Indicates input/output mode. Can be one of three constants: ForReading, ForWriting, or ForAppending.

create

Optional. Boolean value that indicates whether a new file can be created if the specified filename doesn't exist. The value is True if a new file is created; False if it isn't created. The default is False.

format

Optional. One of three Tristate values used to indicate the format of the opened file. If omitted, the file is opened as ASCII.

Settings
The iomode argument can have either of the following settings:

Constant Value Description
ForReading 1 Open a file for reading only. You can't write to this file.
ForWriting 2 Open a file for writing only. You can't read from this file.
ForAppending 8 Open a file and write to the end of the file.


The format argument can have any of the following settings:

Constant Value Description
TristateUseDefault -2 Opens the file using the system default.
TristateTrue -1 Opens the file as Unicode.
TristateFalse 0 Opens the file as ASCII.


Remarks
The following code illustrates the use of the OpenTextFile method to open a file for writing text:

Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
f.Close
End Sub

这里：
ForAppending 8 Open a file and write to the end of the file.

[pwxing]

这个写的程序，会用新数据覆盖了以前的旧数据，我目前想在新一行上
记录新的数据
---------------------------------------------------------
const for writing=x
x=1 对文件只读
x=2 写(覆盖)
x=8 写(以追加方式打开)