asp如何用FSO对象显示一个文本文件？

如何显示一个文本文件？

完整显示文本文件的代码如下：
　 　 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>