如何显示一个文本文件?

(编辑:jimmy 日期: 2024/12/26 浏览:2)

 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>

一句话新闻

高通与谷歌联手!首款骁龙PC优化Chrome浏览器发布
高通和谷歌日前宣布,推出首次面向搭载骁龙的Windows PC的优化版Chrome浏览器。
在对骁龙X Elite参考设计的初步测试中,全新的Chrome浏览器在Speedometer 2.1基准测试中实现了显著的性能提升。
预计在2024年年中之前,搭载骁龙X Elite计算平台的PC将面世。该浏览器的提前问世,有助于骁龙PC问世就获得满血表现。
谷歌高级副总裁Hiroshi Lockheimer表示,此次与高通的合作将有助于确保Chrome用户在当前ARM兼容的PC上获得最佳的浏览体验。