如何显示一个文本文件

如何显示一个文本文件？ 完整显示文本文件的代码如下： Write（STRING） WriteLine（STRING） WriteBlankLines（LINES） html head http-equiv=Content-Type content=text/html; charset=gb2312 title春风精彩之文本文件显示/title /head body %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 %