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 >