（在说正事之前，我要推荐一个福利：你还在原价购买阿里云、腾讯云、华为云服务器吗？那太亏啦！来这里，新购、升级、续费都打折，能够为您省60%的钱呢！2核4G企业级云服务器低至69元/年，点击进去看看吧>>>)

 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 = 3

' 参数为可选，决定输入/输出模式：①ForReading=1只读；②ForWriting=2 可读写；③ForAppending=3追加.

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

  ' 参数为可选，指出以何种格式打开文件：①忽略此参数，以 ASCII格式打开文件；②TristateUseDefault=-2 以系统默认格式打开文件；③TristateTrue=-1 以 Unicode 格式打开文件；④TristateFalse=0 以 ASCII 格式打开文件，当然我们也可用OpenTextFile方法打开文件.

     　

　 　 Dim filename

　 　 filename = "test.txt"

      ' 缺省路径c:\win.

 

　 　 Set fs = CreateObject("Scripting.FileSystemObject")

　 　 Set f = fs.GetFile(filename)

　 　 Set readf = f.OpenAsTextStream(ForReading,TristateFalse)

 

　 　 s = readf.ReadLine

　 　 Do While readf.AtEndOfLine <> True

　 　 　 　 s = readf.ReadLine

　 　 　 　 Response.write s & ""

            ' 逐行读文件并写屏.

　 　 Loop

　 　 readf.close

　 　 %>

　 　 </body></html>