如何将ASP表单提交的数据写入文本文件中？

2024-12-18 20:10:34

推荐回答（4个）

回答1：

用fso的TextStream
,先读取文件然后用writeline写入
_________________________________________________________________
TextStream对象
TextStream对象具有一系列的方法和性质，这些方法和性质可以用于对某一文件进行操作或返回该文件的信息。
<%
Set
MagicFs
=
Server.CreateObject(“Scripting.FileSystemObject”)
Set
Magicfile=MagicFs.CreateTextFile(“c:\\myfile.txt”,True)
%>
方法
Close
关闭打开的文本流文件。
Read(characters)
读取文本流文件中一定数量的字符，并把它写入到一字符串中。
ReadAll
读取整个文本流文件（可能很大），并把它写入到字符串中。
ReadLine
读取文本流文件的一行，并把它写入字符串中。不包含新行符。
Skip(characters)
跳过文本流文件中指定数目的字符。
SkipLine
跳过文本流文件的一行。
Write(String)
往文本流文件内写入字符串，不包含新行符。
WriteBlankLine(Lines)
往文本流文件内写入指定数目的空行（新行符）。
WriteLine([String])
往文本流文件内写入包含新行符的字符串。
性质
AtEndOfLine
如果遇到新行符，返回值TRUE；否则返回值为FALSE。
AtEndOfStream
如果到达文本流文件的结尾时，返回值为TRUE，否则返回值为FALSE。只在文本流文件是用于读取时。
Column
返回当前列在文本流文件中的列位置。
Line
返回当前行在文本流文件中的行位置。

回答2：

可以用FSO
你想插哪个表单的内容?
在你的

里加上type="hidden"
name="Action"
value="Add"
/>
下面代码随便放在页面什么地方
<%
Dim
FSO,MyFile,Action,Str
Action=Request.Form("Action")
If
Action="Add"
Then
Str=Reqeust.Form("要获取的Input的Name")
Set
FSO=Server.CreateObject("Scripting.FileSystemObject")
Set
MyFile=FSO.OpenTextFile(Server.MapPath("文件路径"),8)'打开文件
MyFile.WriteLine(Str)'写入内容
Set
MyFile=Nothing
Set
FSO=Nothing
End
If
%>

回答3：

可以用FSO
你想插哪个表单的内容？
在你的

里加上
下面代码随便放在页面什么地方
<%
Dim FSO,MyFile,Action,Str
Action=Request.Form("Action")
If Action="Add" Then
Str=Reqeust.Form("要获取的Input的Name")
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set MyFile=FSO.OpenTextFile(Server.MapPath("文件路径"),8)'打开文件
MyFile.WriteLine(Str)'写入内容
Set MyFile=Nothing
Set FSO=Nothing
End If
%>

回答4：

name="wen"
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = name
.SaveToFile Server.MapPath("test.txt"),2
.Close
End With
Set objStream = Nothing