如何将ASP表单提交的数据写入文本文件中？
比如说name="wen"如何把wen的数据写入文本中？<body><tablewidth="1028"border="0"cellpadding="0"cellspac...
比如说name="wen" 如何把wen的数据写入文本中？
<body>
<table width="1028" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="1028" height="482"><form id="zhai" name="zhai" method="post" action="">
<label>
<input type="text" name="textfield" />
</label>
</form>
<form id="wen" name="wen" method="post" action="">
<label>
<input type="password" name="textfield2" />
<input type="submit" name="Submit" value="提交" />
</label>
</form>
</td>
</tr>
</table>
</body>
</html>
这样一段代码如何将它提交后写入文本中 不重复 不叠加 不删除原有的 展开
<body>
<table width="1028" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="1028" height="482"><form id="zhai" name="zhai" method="post" action="">
<label>
<input type="text" name="textfield" />
</label>
</form>
<form id="wen" name="wen" method="post" action="">
<label>
<input type="password" name="textfield2" />
<input type="submit" name="Submit" value="提交" />
</label>
</form>
</td>
</tr>
</table>
</body>
</html>
这样一段代码如何将它提交后写入文本中 不重复 不叠加 不删除原有的 展开
4个回答
展开全部
用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
返回当前行在文本流文件中的行位置。
,先读取文件然后用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
返回当前行在文本流文件中的行位置。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
可以用FSO
你想插哪个表单的内容?
在你的<form></form>里加上<input
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
%>
你想插哪个表单的内容?
在你的<form></form>里加上<input
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
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
可以用FSO
你想插哪个表单的内容？
在你的<form></form>里加上<input 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
%>
你想插哪个表单的内容？
在你的<form></form>里加上<input 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
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
