第三章文件的讀與寫簡(jiǎn)單留言本案例簡(jiǎn)單留言本案例案例分析簡(jiǎn)單的留言本功能用戶填寫留言內(nèi)容用戶可以瀏覽留言內(nèi)容簡(jiǎn)單留言本的實(shí)現(xiàn)步驟制作留言本的表單界面編寫留言本的表單處理程序?yàn)g覽用戶留言信息涉及的知識(shí)點(diǎn)：文本文件的創(chuàng)建文本文件的寫入文本文件的讀取FileSystemObject對(duì)象創(chuàng)建FileSystemObject對(duì)象

創(chuàng)建FileSystemObject對(duì)象的語法如下：

<%

Dim對(duì)象名稱

Set對(duì)象名稱=Server.CreateObject(“Scripting.FileSystemObject”)

%>

例如定義一個(gè)名為“objfso”的文件對(duì)象，則

dimobjfsoset

objfso=server.createobject(“Scripting.filesystemobject”)復(fù)制文件復(fù)制文件——copyfile方法

格式：fso.copyfilesource,destination[,overwrite]

其中：參數(shù)fso是文件系統(tǒng)對(duì)象的一個(gè)實(shí)例；參數(shù)Source表示源文件；參數(shù)Destination表示目標(biāo)文件；Overwrite選項(xiàng)表示是否覆蓋一個(gè)已經(jīng)存在的文件，是邏輯類型，如果覆蓋則為True。移動(dòng)文件文件移動(dòng)操作——movefile方法格式：fso.movefilesource,destination其中：參數(shù)fso是文件系統(tǒng)對(duì)象的一個(gè)實(shí)例；參數(shù)Source表示源文件；參數(shù)Destination表示目標(biāo)文件；例2：將d:\test1.txt移動(dòng)到e:\myweb\test3.txt。<%dimobjfsosetobjfso=server.createobject(“scripting.filesystemobject”)

objfso.movefile“d:\test1.txt”,”e:\myweb\test3.txt”%>刪除文件刪除文件——Deletefile方法

格式：FSO.Deletefilesource

其中：FSO是文件系統(tǒng)對(duì)象的一個(gè)實(shí)例；參數(shù)Source表示將要?jiǎng)h除文件的文件名。例4：刪除d:\book.txt。

<%dimobjfsosetobjfso=server.createobject(“scripting.filesystemobject”)

objfso.deletefile“d:\book.txt”%>創(chuàng)建文本文件創(chuàng)建文本文件——Createtextfile方法

格式如下：

SetobjTextStream=objFso.createtextfile(Filename,[overwrite[,Unicode]])

其中：objFso：創(chuàng)建的FSO對(duì)象實(shí)例名稱；Filename:所要?jiǎng)?chuàng)建文件的完整路徑與名稱；Overwrite：是否允許覆蓋已有文件，True表示允許覆蓋原有的文件，F(xiàn)alse表示不允許覆蓋原有的文件；創(chuàng)建文本文件Unicode：指定文件是否以Unicode或ASCII文件格式創(chuàng)建，如果文件以Unicode格式創(chuàng)建，則值為True;如果以ASCII格式創(chuàng)建，則值為False。objTextStream：創(chuàng)建一個(gè)“objTextStream”數(shù)據(jù)流對(duì)象名稱；例7：使用CreateTextFile方法在真實(shí)路徑指定的位置創(chuàng)建一個(gè)空的文本文件。

<%Dimfso,filsetfso=server.createobject(“scripting.Filesystemobject”)setfil=fso.createtextfile(“D:\mywebs\test1.txt”,True)%>打開文本文件利用opentextfile方法打開一個(gè)文本文件

setfil=fso.opentextfile(filename[,iomode[,create[,format]]])

其中：fil表示打開文件時(shí)的TextStream對(duì)象的名稱；filename表示文件的完整路徑與名稱；iomode表示輸入輸出模式,是可選參數(shù);常數(shù)值說明ForReading1以只讀方式打開文件ForWriting2以只寫方式打開文件ForAppending8打開文件并在文件末尾進(jìn)行寫操作打開文本文件Create參數(shù)是可選的，當(dāng)指定的filename不存在時(shí)，確定是否要?jiǎng)?chuàng)建新文件。允許創(chuàng)建新文件時(shí)，此值為True,否則為False。如果予以省略，則不創(chuàng)建新文件。Format參數(shù)是可選的，指以何種格式打開文件；如果省略則以ASCII格式打開。例8：以寫方式打開d:\test1.txt。<%dimfso,filsetfso=server.createobject(“scripting.filesystemobject”)const

forreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)%>文件文件的寫入往文本文件中寫入內(nèi)容文本文件的寫入方法主要有:Write方法格式:objectname.write(string)

作用:寫入指定字符串。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.write(“helloworld!”)

str=“大家好”

fil.write(str)%>文件文件的寫入往文本文件中寫入內(nèi)容Writeline方法

格式：objectname.writeline(string)

作用:寫入指定字符串和換行字符。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

str=“大家好”

fil.write(str)%>文件文件的寫入往文本文件中寫入內(nèi)容Writeblanklines方法

格式：objectname.writeblanklines(lines)

作用:寫入指定數(shù)目的新行字符。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

fil.writeblanklines(2)

str=“大家好”

fil.write(str)%>關(guān)閉文本文件關(guān)閉文本文件

objectName.closesetobjectName=nothingsetfso=nothing

例：

<%

fil.closesetfil=nothingsetfso=nothing%>寫文本文件寫入文本文件文本文件的寫入主要有以下幾個(gè)步驟：創(chuàng)建文件系統(tǒng)對(duì)象；以寫方式打開文本文件；進(jìn)行文本文件的寫操作；關(guān)閉文本文件。寫文本文件<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

str=“大家好”

fil.write(str)

fil.closesetfil=nothingsetfso=nothing%>讀取文本文件內(nèi)容文本文件的讀取Read方法格式：objectName.read(characters)作用：從文本文件中讀取指定數(shù)量的字符；例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)response.writefil.read(2)%>讀取文本文件內(nèi)容文本文件的讀取Readline方法格式：objectName.readline作用：從文本文件中讀取一整行，不包括換行符；例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)response.writefil.readline%>讀取文本文件內(nèi)容文本文件的讀取Readall方法格式：objectName.readall作用：讀取一個(gè)文本文件的所有內(nèi)容。例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)

str=fil.readall%>讀取文本文件內(nèi)容文本文件的讀取skip方法格式：objectName.skip(number)作用：在讀取文本文件時(shí)跳過幾個(gè)字符；例：

<%dimfso,fil,str,str1setfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)

str=fil.read(2)fil.skip(3)

str1=fil.readline%>讀取文本文件內(nèi)容文本文件的讀取skipline方法格式：objectName.skipline(number)作用：在讀取文本文件時(shí)跳過下一行繼續(xù)讀取文件。例：

<%dimfso,fil,str,str1setfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,f