ASP 将值从文本框写入文本文件

Question

我有一个文本区域 (id=output2)，里面有一个数字列表。我有 ASP 将数据写入文本文件的代码，如果我指定文本，它就可以工作。

写入文本文件的代码：

<%
function WriteToFile(FileName, Contents, Append)
on error resume next

if Append = true then
   iMode = 8
else 
   iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
oTextFile.Write Contents
oTextFile.Close
set oTextFile = nothing
set oFS = nothing

end function

%>

然后此代码将覆盖文件并插入数据并工作：

<%
WriteToFile "C:\INSTALL\Test1.txt", "Why is this so difficult??", False
%>

但是，如果我不理会第一个代码并尝试从文本区域字段中获取动态数据，它会失败且没有错误。甚至不碰文本文件。我尝试了很多很多方法...这里有五个失败的方法：

1:

<%
WriteToFile "C:\INSTALL\Test1.txt", Document.getElementById("output2"), False
%>

2:

<%
dim texttoinsert
texttoinsert = Document.getElementById("output2")
WriteToFile "C:\INSTALL\Test1.txt", texttoinsert, False
%>

3:

<%
WriteToFile "C:\INSTALL\Test1.txt", Response.Write(Document.getElementById("output2")), False
%>

4:

<%
dim texttoinsert
texttoinsert = "Starting to hate this"
WriteToFile "C:\INSTALL\Test1.txt", texttoinsert, False
%>

5:

<%
dim texttoinsert
texttoinsert = "Definitely hate this"
WriteToFile "C:\INSTALL\Test1.txt", Response.Write(texttoinsert), False
%>

我什至做了一些能够利用 Document.getElementById 的 VBscript，但我不知道如何让它进入 ASP 代码。

Answer 1

将变量传递给函数时，

Response.write 是不必要的。

<%dim texttoinsert
texttoinsert = "Definitely hate this"
WriteToFile "C:\INSTALL\Test1.txt", texttoinsert, False
%>

Answer 2

document.getElementByID 在服务器端代码中没有任何意义。您必须提交一个表单以将数据传递到功能页面，然后像这样使用它：

html 页数：

<form action="myfunction.asp">
<input name="texttoinsert">
<input type="submit" value="write data">
</form>

myfunction.asp

<%
function WriteToFile(FileName, Contents, Append)
 on error resume next
 if Append = "true" then
    iMode = 8
 else 
    iMode = 2
 end if
 set oFs = server.createobject("Scripting.FileSystemObject")
 set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
 oTextFile.Write Contents
 oTextFile.Close
 set oTextFile = nothing
 set oFS = nothing
end function

texttoinsert = request("texttoinsert")
WriteToFile "C:\INSTALL\Test1.txt", texttoinsert, False
%>

ASP 将值从文本框写入文本文件

ASP Writing Values from Textbox to Textfile

vb.net

textarea

asp-classic

writetofile