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>