欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

如何顯示一個文本文件?

 更新時間:2006年11月16日 00:00:00   作者:  

 WriteStrING

    WriteLineStrING

    WriteBlankLinesLINES

 

    html

    head

    http-equiv="Content-Type" content="text/html;

    charset=gb2312"

    title〉春風精彩之文本文件顯示〈/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)默認格式打開文件;③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>

相關文章

最新評論