Asp讀取文本文件並顯示

　　<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/net/201311/14423.html