如何显示一个文本文件？

答案：
 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> 

上一个：如何获取文件的名称和扩展名？
下一个：如何实现文件上传并自动归类功能？