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>
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!