日期:2014-03-15  浏览次数:20458 次

1).程序设计中的主要思路及步骤:
  
    本ASP.NET页面中采用的程序语言是VB.NET。程序主要功能是打开指定文件并把文件以ASCII码的形式显示出来。下面是程序设计中的一些主要步骤:
  
    i>.读取文件中用到的对象--StreamReader
  
    在System.IO中定义了一个读取文件的对象--StreamReader,本程序就是通过这个对象完成对文件的读取。然后以文本形式显示出来。具体如下:
  
  Dim streamreaderobj As StreamReader
  file_name = filename.PostedFile.FileName
  ' 读出一个指定文件,并把他指派给streamreader对象
  Do
   filecont = streamreaderobj.ReadLine ()
   Response.Write( filecont & " <br> " )
  Loop Until filecont = ""
  ' 一行一行读出文件内容,知道读到一行内容为空字符串的时候,才停止
  streamreaderobj.Close
  ' 在读操作完成以后,关闭StreamReader对象
  
  
    ii>在程序中所用到的Form的编码应该是"Multipart/Form-Data",不用他的缺省编码。具体如下:
  
  <form Method = "Post" EncType = "Multipart/Form-Data" runat = "server" >
  </form >
  
    2).程序的源代码:
  
  <% @ 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 >