如何显示一个文本文件？

nbsp;Write（StrING）

　 　 WriteLine（StrING）

　 　 WriteBlankLines（LINES）

nbsp;

　 　 〈html〉

　 　 〈head〉

　 　 〈http-equiv="Content-Type" content="text/html;

　 　 charset=gb2312"〉

　 　 〈title〉春风精彩之文本文件显示〈/title〉

　 　 〈/head〉

nbsp;

　 　〈body〉

　 　 lt;% LANGUAGE = VBScript %gt;

　 　 lt;%

Const ForReading = 1, ForWriting = 2, ForAppending = 3

' 参数为可选，决定输入/输出模式：①ForReading=1只读；②ForWriting=2 可读写；③ForAppending=3追加.

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

nbsp; ' 参数为可选，指出以何种格式打开文件：①忽略此参数，以 ASCII格式打开文件；②TristateUseDefault=-2 以系统默认格式打开文件；③TristateTrue=-1 以 Unicode 格式打开文件；④TristateFalse=0 以 ASCII 格式打开文件，当然我们也可用OpenTextFile方法打开文件.

nbsp;nbsp;nbsp; nbsp;　

　 　 Dim filename

　 　 filename = "test.txt"

nbsp;nbsp;nbsp;nbsp;nbsp; ' 缺省路径c:win.

nbsp;

　 　 Set fs = CreateObject("Scripting.FileSystemObject")

　 　 Set f = fs.GetFile(filename)

　 　 Set readf = f.OpenAsTextStream(ForReading,TristateFalse)

nbsp;

　 　 s = readf.ReadLine

　 　 Do While readf.AtEndOfLine lt;gt; True

　 　 　 　 s = readf.ReadLine

　 　 　 　 Response.write s ""

nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; ' 逐行读文件并写屏.

　 　 Loop

　 　 readf.close

　 　 %gt;

　 　 lt;/bodygt;lt;/htmlgt;

（编辑：大同站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!