13-1.aspx

asp做的新闻系统

  <% @ Import Namespace = "System.IO" %>
  <script language = "vb" runat = "server" >
  Sub SendButton_Click ( sender as Object , e as EventArgs )
  ' 创建一个StreamReader对象
  Dim streamreaderobj As StreamReader
  Dim file_name as String
  ' 定义一个变量来保存从文件中读出的内容
  Dim filecont As String 
  streamreaderobj = File.OpenText ( file_name )
  panel1.visible = false 
  ' 一行一行读出文件内容，知道读到一行内容为空字符串的时候，才停止
  Do 
  filecont = streamreaderobj.ReadLine () 
  ' 利用StreamReader对象读取文件 
  Response.Write( filecont & " <br> " )
  ' 显示文件内容 
  Loop Until filecont = "" 
   
  ' 在读操作完成以后，关闭StreamReader对象 
  streamreaderobj.Close 
  Response.write ( " <br> 以上就是" & file_name & "文件的全部内容！ " ) 
  End Sub 
  </script> 
  <asp:panel id = "panel1" runat = "server" > 
  <form Method = "Post" EncType = "Multipart/Form-Data" runat = "server" > 
  <p>欢迎在ASP.NET页面对文件进行读操作</p > 
  请选择文件名称：<input type = "file" id = "filename" runat = "server" /> <br > 
  <asp:button id = "Write" Text = "读文件" OnClick = "SendButton_Click" runat = "server" /> 
  </form > 
  </asp:panel >