国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

OpenTextFile是asp語(yǔ)言中的一個(gè)方法
打開指定的文件并返回一個(gè) TextStream 對(duì)象，可以通過(guò)這個(gè)對(duì)象對(duì)文件進(jìn)行讀、寫或追加。
object.OpenTextFile(filename[, iomode[, create[, format]]])

1、方法編輯打開指定的文件并返回一個(gè) TextStream 對(duì)象，可以通過(guò)這個(gè)對(duì)象對(duì)文件進(jìn)行讀、寫或追加。
object.OpenTextFile(filename[, iomode[, create[, format]]])
2、參數(shù)編輯object

必選項(xiàng)。 object 應(yīng)為 FileSystemObject 的名稱。
filename
必選項(xiàng)。 指明要打開文件的字符串表達(dá)式。
iomode
可選項(xiàng)。 可以是三個(gè)常數(shù)之一： ForReading 、 ForWriting 或 ForAppending 。
create
可選項(xiàng)。 Boolean 值，指明當(dāng)指定的 filename 不存在時(shí)是否創(chuàng)建新文件。 如果創(chuàng)建新文件則值為 True ，如果不創(chuàng)建則為 False 。 如果忽略，則不創(chuàng)建新文件。
format
可選項(xiàng)。 使用三態(tài)值中的一個(gè)來(lái)指明打開文件的格式。 如果忽略，那么文件將以 ASCII 格式打開。

3、設(shè)置編輯iomode 參數(shù)可以是下列設(shè)置中的任一種：

常數(shù) 值 描述

ForReading 1 以只讀方式打開文件。 不能寫這個(gè)文件。
ForWriting 2 以寫方式打開文件
ForAppending 8 打開文件并從文件末尾開始寫。

format 參數(shù)可以是下列設(shè)置中的任一種：
值 描述

TristateTrue 以 Unicode 格式打開文件。
TristateFalse 以 ASCII 格式打開文件。
TristateUseDefault 使用系統(tǒng)默認(rèn)值打開文件。

4、說(shuō)明編輯下面的代碼說(shuō)明了如何使用 OpenTextFile 方法打開文件并追加文本：
var fs, a, ForAppending;
ForAppending = 8;
fs = new ActiveXObject("Scripting.FileSystemObject");
//可以是三個(gè)常數(shù)之一： ForReading 、 ForWriting 或 ForAppending
//分別是 1 ，2 ，8
a = fs.OpenTextFile("c:\\testfile.txt", 2, false);
...
a.Close();

在vbs腳本中的用例

打開指定的文件并返回一個(gè)TextStream對(duì)象，可以讀取、寫入此對(duì)象或?qū)⑵渥芳拥轿募?br>object.OpenTextFile(filename[,iomode[,create[,format]]])
參數(shù)
object
必選項(xiàng)。應(yīng)為FileSystemObject對(duì)象的名稱。
filename
必選項(xiàng)。字符串表達(dá)式，指明要打開的文件名稱。
iomode
可選項(xiàng)。輸入/輸出模式，是下列三個(gè)常數(shù)之一：ForReading，F(xiàn)orWriting,或ForAppending。
create
可選項(xiàng)。Boolean值，指出當(dāng)指定的filename不存在時(shí)是否能夠創(chuàng)建新文件。允許創(chuàng)建新文件時(shí)為True，否則為False。默認(rèn)值為False。
format
可選項(xiàng)。三個(gè)Tristate值之一，指出以何種格式打開文件。若忽略此參數(shù)，則文件以ASCII格式打開。

iomode參數(shù)可為下列設(shè)置之一：

　　format參數(shù)可為下列設(shè)置之一：

用法舉例：

Sub OpenTextFileTestConst ForReading =1, ForWriting =2, ForAppending =8Dim fso, fSet fso =CreateObject("Scripting.FileSystemObject")Set f =fso.OpenTextFile("c:\testfile.txt",ForWriting,True)f.Write "嗨，你好！"f.CloseEnd SubCall OpenTextFileTest

腳本之家寫的一個(gè)函數(shù)

Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")set fn2=fso.GetFile("E:\webroot\jb51\index2.htm")flsize2=fn2.sizefldate2=fn2.datelastmodifiedset fn=fso.GetFile("E:\webroot\jb51\index.htm")flsize1=fn.sizefldate1=fn.datelastmodifiedIf fso.FileExists("E:\webroot\jb51\index2.htm") and flsize2>50000 and fldate2>fldate1 Then'判斷文件的大小，如果html文件重新生成需要判斷是否更新過(guò)且文件不能小于50Kfso.getfile("E:\webroot\jb51\index2.htm").copy("E:\webroot\jb51\index.htm")if err.number=0 then WriteHistory "成功"&now()&".........","log.txt"end if'日志寫入函數(shù)Sub WriteHistory(hisChars, path) Const ForReading = 1, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars  f.CloseEnd Sub