read1.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 15 行

<%@Page language="VB"%>
    <%@ Import Namespace="System.IO" %>
    <% 
    Response.write("读出aspnet.txt文件中的数据<BR>")
    Dim streamreaderobj As StreamReader         '声明一个StreamReader对象
    Dim filecont As String                 '声明一个变量保存读出的内容
    streamreaderobj = File.OpenText( "c:\aspnet.txt" ) '打开文件赋值到StreamReader对象
    Do                        '按行循环读取文件内容
    filecont = streamreaderobj.ReadLine() 
    Response.Write( filecont & "" ) 
    Loop Until filecont = "" 
    streamreaderobj.Close                '关闭StreamReader对象
    Response.write("<BR>读完文件！")
    %>