使用asp将变量写入文本文件

时间:2014-01-17 12:27:05

标签: html asp-classic

我正在寻找一些帮助,因为我撞到了一堵砖墙。我有一个简单的asp代码,它接受一个html文件的内容并写入一个文本文件(见下文)。我可以在文件中写字符串,当我尝试从表单中编写其中一个字段时,一切正常,问题就出现了。

sEmailAddress = request.form("IEmailAddress")

'** Now create the request file
Dim path, objFSO, objConn
path = "E:\Inetpub\sites\test\upd\"

'----- create output file
fileName = "Otest.wso"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outputFile = objFSO.CreateTextFile(path & fileName, True)
w request.form("IEmailAddress")
outputFile.WriteLine("Start")
outputFile.WriteLine( request.form("IEmailAddress") )
outputFile.close

我可以看到正在创建的文件和单词Start正在写入文件。我还可以看到电子邮件地址显示在屏幕上,以确保数据传递到文件。

2 个答案:

答案 0 :(得分:0)

从第一行使用变量sEmailAddress或将最后一行更正为:

outputFile.WriteLine( request.form("IEmailAddress") )

不是

outputFile.WriteLine(request.form("sEmailAddress"))

(outputFile.WriteLine中有拼写错误(request.form(“sEmailAddress”)))

答案 1 :(得分:0)

我正在做一些类似的事情,从文本文件读取并将文本文件内容放入我的文本区域。然后,用户可以更新其中的内容并单击“更新”,它将从文本区域获取所有新信息。不知道这是不是你想要做的,但我的代码在下面。希望它有所帮助。

更新页面

    <!-- Opens / Creates the file Notifications.txt-->
        <%

            Set cs=Server.CreateObject("Scripting.FileSystemObject")
            Set c=cs.OpenTextFile(Server.MapPath("Notifications.txt"), 1)
            theGoods = (c.ReadAll)

            c.Close

            Set f=Nothing
            Set fs=Nothing


        %>
    <!-- /End the file Notifications.txt-->
        <form method="GET" action="overwrite.asp">

            <textarea rows="10" cols="100" name="Updates" id="Notifications" required><%= theGoods%></textarea>
            <br /><br />
            <input type="submit" name="submit" value="Update" id="submit" onclick="toggle_visibility('Update');"/>
            <input type="button" value="Bold Tags" id="bold" />
            <input type="button" value="Italic Tags" id="italic" />
        </form>

实际处理/覆盖页面:

<!-- Opens / Creates the file Notifications.txt-->
        <%
        Dim idea

        dim fs,f

        set fs=Server.CreateObject("Scripting.FileSystemObject")
        set f=fs.OpenTextFile(Server.MapPath("Notifications.txt"), 2, true)

        idea= Request.QueryString("Updates")


        f.WriteLine(idea)
        f.Close
        set f=nothing
        set fs=nothing

        %>