使用ASP讀出文本文件並顯示

（注:textStream有關寫的METHOD

　　 　 Write（STRING）

　　 　 WriteLine（STRING）

　　 　 WriteBlankLines（LINES）

　　 　 ）

　　 　 這是一個完整的程序

　　 　 〈 html 〉

　　 　 〈 head 〉

　　 　 〈 httpequiv=ContentType content=text/html; charset=gb 〉

　　 　 〈 title 〉〈 /title 〉

　　 　 〈 /head 〉

　　 　 〈 body 〉

　　 　 ＜ % LANGUAGE = VBScript % ＞

　　 　 ＜ %

　　 　 Const ForReading = ForWriting = ForAppending =

　　 　 Const TristateUseDefault = TristateTrue = TristateFalse = 　　 　

　　 　 Dim filename

　　 　 filename = testtxt 缺省相對路徑是c:winnt

　　 　 Set fs = CreateObject(ScriptingFileSystemObject)

　　 　 Set f = fsGetFile(filename)

　　 　 Set readf = fOpenAsTextStream(ForReadingTristateFalse)

　　 　 第一個參數可選輸入/輸出模式是下列三個常數之一

　　 　 ForReading=只讀ForWriting= 可讀寫或 ForAppending=追加

　　 　 第二個參數也為可選三個 Tristate 值之一

　　 　 指出以何種格式打開文件忽略此參數則文件以 ASCII

　　 　 格式打開 TristateUseDefault= 以系統默認格式打開文件

　　 　 TristateTrue= 以 Unicode 格式打開文件或TristateFalse=

　　 　 以 ASCII 格式打開文件

　　 　 也可用OpenTextFile方法打開文件

　　 　 s = readfReadLine

　　 　 Do While readfAtEndOfLine <> True

　　 　 　 　 s = readfReadLine

　　 　 　 　 Responsewrite s & 逐行讀文件並寫出

　　 　 Loop

　　 　 readfclose

　　 　 % ＞

　　 　 < /body>

　　 　 < /html>

　這樣就可以將文本文件讀出並顯示了 
From:http://tw.wingwit.com/Article/program/ASP/201311/21814.html