2014-01-17 27 views
0

嗨,我正在寻找一些帮助,因为我碰到了一堵砖墙。我有一个简单的asp代码,它接受一个html文件的内容并写入一个文本文件(见下文)。我可以写入字符串到文件,并且一切正常,当我尝试从窗体写入一个字段时,问题就会发生。使用asp写一个变量到文本文件

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 

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

回答

0

或者使用你的变量sEmailAddress从您的第一行或最后一行纠正以下几点:

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

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

(你有outputFile.WriteLine一个错字(的Request.Form (“sEmailAddress”)))

+0

感谢回去我。我输入了错误的帖子。我已经仔细检查了你所说的代码,但仍然没有运气 – user3206555

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 

     %> 
相关问题