NEWSZW_HZH_BEGIN-->
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>
NEWSZW_HZH_END-->查看更多关于如何显示一个文本文件？_编程10000问_的详细内容...