13-2.aspx

asp做的新闻系统

  <% @ 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 id="panel1" runat="server" > 
  <form id="form1" 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 >