VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 网站开发 > ASPnet >
  • asp.net教程之使用ASP读出文本文件并显示

(注:textStream有关写的METHOD 

     Write(STRING) 

     WriteLine(STRING) 

     WriteBlankLines(LINES) 

     ) 

     这是一个完整的程序 

     〈 html 〉 

     〈 head 〉 

     〈 http-equiv="Content-Type" content="text/html; charset=gb2312" 〉 

     〈 title 〉〈 /title 〉 

     〈 /head 〉 

     〈 body 〉 

     < % LANGUAGE = VBScript % >

     < % 

     Const ForReading = 1, ForWriting = 2, ForAppending = 8 

     Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0      

     Dim filename 

     filename = "test.txt" ’缺省相对路径是c:winnt 

     Set fs = CreateObject("Scripting.FileSystemObject") 

     Set f = fs.GetFile(filename) 

     Set readf = f.OpenAsTextStream(ForReading,TristateFalse) 

     ’第一个参数可选。输入/输出模式,是下列三个常数之一: 

     ’ ForReading=1只读、ForWriting=2 可读写或 ForAppending=3追加 

     ’第二个参数也为可选。三个 Tristate 值之一, 

     ’ 指出以何种格式打开文件。忽略此参数,则文件以 ASCII 

     ’格式打开。 TristateUseDefault=-2 以系统默认格式打开文件、 

     ’TristateTrue=-1 以 Unicode 格式打开文件或TristateFalse=0 

     ’以 ASCII 格式打开文件。 

     ’也可用OpenTextFile方法打开文件 

     s = readf.ReadLine 

     Do While readf.AtEndOfLine <> True 

         s = readf.ReadLine 

         Response.write s & "" ’逐行读文件并写出 

     Loop 

     readf.close

     % >

     < /body> 

     < /html> 

 这样就可以将文本文件读出并显示了。 
相关教程