如何顯示一個(gè)文本文件?
Write(StrING)
WriteLine(StrING)
WriteBlankLines(LINES)
〈html〉
〈head〉
〈http-equiv="Content-Type" content="text/html;
charset=gb2312"〉
〈title〉春風(fēng)精彩之文本文件顯示〈/title〉
〈/head〉
〈body〉
<% LANGUAGE = VBScript %>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
' 參數(shù)為可選,決定輸入/輸出模式:①ForReading=1只讀;②ForWriting=2 可讀寫;③ForAppending=3追加.
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' 參數(shù)為可選,指出以何種格式打開文件:①忽略此參數(shù),以 ASCII格式打開文件;②TristateUseDefault=-2 以系統(tǒng)默認(rèn)格式打開文件;③TristateTrue=-1 以 Unicode 格式打開文件;④TristateFalse=0 以 ASCII 格式打開文件,當(dāng)然我們也可用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>
相關(guān)文章
可以讓程序告訴我詳細(xì)的頁面錯(cuò)誤和數(shù)據(jù)庫連接錯(cuò)誤嗎?
可以讓程序告訴我詳細(xì)的頁面錯(cuò)誤和數(shù)據(jù)庫連接錯(cuò)誤嗎?...2006-11-11何時(shí)將數(shù)據(jù)裝載到Application 或 Session 對(duì)象中去?
何時(shí)將數(shù)據(jù)裝載到Application 或 Session 對(duì)象中去?...2006-11-11如何編寫一個(gè)小數(shù)轉(zhuǎn)換分?jǐn)?shù)的函數(shù)?
如何編寫一個(gè)小數(shù)轉(zhuǎn)換分?jǐn)?shù)的函數(shù)?...2006-11-11