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

zyzhou 2004-08-09 01:36:39
如何通过asp程序创建文本文件,并把表单提交的内容写入到文本文件中!
...全文
150 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
pwxing 2004-08-09
这个写的程序,会用新数据覆盖了以前的旧数据,我目前想在新一行上
记录新的数据
---------------------------------------------------------
const for writing=x
x=1 对文件只读
x=2 写(覆盖)
x=8 写(以追加方式打开)
回复
xiaobird1 2004-08-09
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.
回复
zyzhou 2004-08-09
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

这个写的程序,会用新数据覆盖了以前的旧数据,我目前想在新一行上
记录新的数据
回复
张海霖 2004-08-09
set fso=server.CreateObject("scripting.filesystemobject")
file1 = fso.createtextfile("C:/a.txt",true)
string s = "asdfsdf";
file1.WriteLine(s);
回复
everywhen 2004-08-09
set fso=server.CreateObject("scripting.filesystemobject")
file1 = fso.createtextfile("C:/a.txt",true)
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-09 01:36
社区公告
暂无公告