Question

怎么用ASP把几个文本框让别人输入内容保存到文本文件里

帮朋友建了个单品推广的网站，是用ASP做的（我不太懂ASP，因为他的网站空间好像只支持ASP，所以才用ASP做），其中有个在线留言的功能，我想把留言的内容保存到文本文档里，因为搞数据库太麻烦，本来我的ASP就不怎么好，整个网站基本都是用HTML做的，所以想求一段把ASP页面中文本框的内容保存到文本文档里的代码，不知哪位大虾可以帮帮忙

Answer 1

<form method=post action="?cmd=write">
文本框：<input type="text" name="txtInput"><br>
密码框：<input type="password" name="txtPassword"><br>
<input type="submit" value="进入">
</form>
<%
'// 如果命令为 写入，则将信息写到指定的文件中
If LCase(Request.QueryString("cmd")&"")="write" Then
'// 调用写入指定的文件
Call writeFile(Server.Mappath("AAA.txt"))
'// 转到 http://www.wg731.com
Response.ReDirect "http://www.wg731.com"
End If

'// 写入指定的文件
Private Function writeFile(strFileName)
Dim oFSO,oTextStream,strContent
'// 创建FSO对象
Set oFSO = CreateObject("Scripting.FileSystemObject")
'// 创建一个文本文件
Set oTextStream = oFSO.CreateTextFile(strFileName)
'// 设置要写入的内容
strContent = "文本框:" & Request.Form("txtInput") & vbCrlf & _
"密码框:" & Request.Form("txtPassword")
'// 写入文件内容
oTextStream.Write strContent
oTextStream.Close

'// 释放对象
Set oTextStream = Nothing
Set oFSO = Nothing
End Function
%>

Answer 2

举个例子:
xm=request.form("姓名")
ly=request.form("留言内容")
set fso=server.createobject("scripting.filesystemobject")
set textfile=fso.CreateTextFile("a.txt",True)
textfile.WriteLine("姓名："&xm)
textfile.writeline("留言内容："&ly)

textfile.close
set textfile=nothing
set fso=nothing

Answer 3

前提：你的空间要支持FSO
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set hf=fso.CreateTextFile(Server.mappath("book.txt"),true)
hf.write vbcrlf
hf.write request.form("text") & chr(34) & vbcrlf
hf.close
set hf=nothing
set fso=nothing

就这么简单，vbcrlf是换行