ASP形式的操作文件（FileSystemObject的）

Question

我有我的代碼張貼在表單中的JavaScript數組：

<form id="my_form" action="file:///C:/Users/John/Desktop/jquery/savetext.aspx" method="post" onsubmit="return prepare()"> 
<input type="text" id="file_name" name="file_name" rows="1" cols="20" /> 
<input type="hidden" name="seatsArray" /> 
<input type="submit" value="Save" /> 
</form> 

<script type="text/javascript"> 
function prepare(); 
{ 
document.getElementById('seatsArray').value = seatsArray.join(); 
return true; 
} 
</script> 

誰能幫我出我需要的savetext.aspx操作文件，因爲我的ASP.NET的知識是最小的（我習慣於PHP，但這需要是ASP.NET）。

我想我可以在越來越近的地方一條縫：

<%@ Page Language="C#" %> 
<script runat="server"> 
using System; 
using System.IO; 

class Test 
{ 
public static void Main() 
{ 
    string path = "file:///C:/Users/John/Desktop/jquery/txtfiles/" + request.form("file_name"); 
    if (!File.Exists(path)) 
    { 
     using (StreamWriter sw = File.CreateText(path)) 
     { 
      sw.WriteLine(request.form("seatsArray")); 
      sw.WriteLine(""); 
     } 
    } 

    using (StreamReader sr = File.OpenText(path)) 
    { 
     string s = ""; 
     while ((s = sr.ReadLine()) != null) 
     { 
      Console.WriteLine(s); 
     } 
    } 
} 
} 
</script> 

我在正確的軌道上？

非常感謝！

Answer 1

我想你應該只使用形式爲預期的，只是數組數據添加到一個隱藏的元素..

<form id="my_form" action="http://my_site/savetext.aspx" method="post" onsubmit="return prepare()"> 
    <input type="text" id="file_name" name="file_name" rows="1" cols="20" /> 
    <input type="hidden" name="seatsArray" /> 
    <input type="submit" value="Save" /> 
</form> 

<script type="text/javascript"> 
function prepare(); 
{ 
    document.getElementById('seatsArray').value = seatsArray.join(); 
    return true; 
} 
</script> 

，並在服務器端使用request.form("file_name")和request.form("seatsArray")

Answer 2

您需要使用Stream類。這是使用VB.NET在ASP.NET中編寫/創建文本文件的簡短代碼。

Dim strStreamW As Stream 
    Dim strStreamWriter As StreamWriter 
    Try 
     Dim ds As New DataSet 
     Dim FilePath As String = "C:\nombreArchivo.txt" 

     'Open the file, if not exists create it 
     strStreamW = File.OpenWrite(FilePath) 
     strStreamWriter = New StreamWriter(strStreamW, _ 
        System.Text.Encoding.UTF8) 

    'Using a conection with the db 
    ds = Negocios.TraerDatosArchivo() 

    Dim dr As DataRow 
    Dim Nombre as String = "" 
    Dim Apellido as String = "" 
    Dim Email as String = "" 

    For Each dr In ds.Tables(0).Rows 
    'Get the recordset 
     Nombre = CStr(dr("Nombre")) 
     Apellido = CStr(dr("Apellido")) 
     Email = CStr(dr("Email")) 

     'Write the line in the file or "stream" 
     strStreamWriter.WriteLine(Nombre & " " & Apellido & " - " & Email) 

    Next 
    strStreamWriter.Close() 

    Catch ex As Exception 

     strStreamWriter.Close() 

     MsgBox(ex.Message) 

    End Try