在ASP.NET中进行文件处理(3)

     三.ASP.NET页面进行文件写操作：
  
  本程序的运行界面如下图所示：
  
  

  　　　　　　　　　　　　　　图3:程序运行界面
  
  
  　　1).程序设计中的主要思路及步骤：
  
  　　本ASP.NET页面中采用的程序语言是VB.NET。程序主要功能是建立一个文本形式的文件，这个文件名是可以让使用者自行定义的，然后把使用者填入的内容保存在此文件中。下面是程序设计的主要步骤：
  
  　　i＞.读取文件中用到的对象--StreamWriter
  
  　　StreamWriter也是由名称空间--System.IO中定义的，主要用来写入文件内容。本程序中也通过他来完成文件写操作的。对文件的写操作相比较文件的读操作来说较简单。具体的步骤如下：
  
  Dim strwriterobj As StreamWriter
  Dim contxt as String
  file_name = filename.text
  contxt = body.text
  ' 其中body.text是要写入文件的内容
  strwriterobj = File.CreateText ( file_name )
  ' 创建一个文件，并把此文本文件作为对象分派给 streamwriter对象
  strwriterobj.WriteLine( contxt )
  ' 把文本内容写入文件中
  strwriterobj.Close
  '关闭对象
  
  　　ii＞.上面主要完成的是对建立一个新文件，并写入内容。此时要写入的文件如果已经存在，程序就会清空原文件，然后再写入新内容。如果你所要完成的工作是对于已经存在的文件只是在文件尾部添加内容，对于不存在的文件才建立和追加内容。用以下语句替换，就可以了。
  
  　　被替换语句：
  
  strwriterobj = File.CreateText ( file_name )
  
  　　替换成语句：
  
  strwriterobj = File.AppendText ( file_name )
  
  　　2).程序源代码
  
  ＜% @ Import Namespace = "System.IO" %＞
  ＜script language = "vb" runat = "server" ＞
  Sub SendButton_Click ( sender as Object, e as EventArgs )
  ' 定义一个 streamwriter 对象
  Dim strwriterobj As StreamWriter
  Dim file_name as String
  Dim contxt as String
  ' 创建一个文件，并把此文本文件作为对象分派给 streamwriter对象
  file_name = filename.text
  contxt = body.text
  strwriterobj = File.CreateText ( file_name )
  ' 把文本内容写入文件中
  strwriterobj.WriteLine( contxt )
  '关闭对象
  strwriterobj.Close
  Response.write ( "成功的进行了文件写操作！" )
  panel1.visible = false
  End Sub
  ＜/script＞
  ＜asp:panel runat="server" ＞
  ＜form runat="server" ＞
  ＜p＞欢迎在ASP.NET页面对文件进行写操作＜/p ＞
  请填入文件名称：＜asp:textbox id = "filename" size = "40" runat = "server" /＞＜br ＞
  请填入写入内容：＜asp:textbox id = "Body" TextMode = "MultiLine" Columns = "40" Rows = "10" runat = "server" /＞＜br ＞
  ＜asp:button runat = "server" id = "Write" Text = "写入文件" OnClick = "SendButton_Click" /＞
  ＜/form ＞
  ＜/asp:panel ＞