ASP編程入門(mén)進(jìn)階（十八）：FSO組件之文件操作（上）

熱門(mén)標(biāo)簽：沈陽(yáng)電話機(jī)器人公司 長(zhǎng)春公司外呼系統(tǒng)中心 云南便宜外呼系統(tǒng)平臺(tái) 廣東語(yǔ)音外呼系統(tǒng)公司 沈陽(yáng)三五防封電銷(xiāo)卡 鄭州智能外呼電銷(xiāo)機(jī)器人廠家 虛擬電話外呼系統(tǒng) 鄢陵學(xué)校如何做地圖標(biāo)注 成都ai外呼系統(tǒng)線路

FSO中除了可以對(duì)驅(qū)動(dòng)器、文件夾的操作以外，功能最強(qiáng)大的就是對(duì)文件的操作了。它可以用來(lái)記數(shù)、內(nèi)容管理、搜索還可生成動(dòng)態(tài)HTML頁(yè)面等等。

一、fso.OpenTextFile
無(wú)需多說(shuō)，fso.OpenTextFile就是打開(kāi)某個(gè)文件了，一般情況之下是打開(kāi)的txt文本文件。所以首先我們先建立一個(gè)txt文件，然后通過(guò)FSO來(lái)讀取其中的內(nèi)容。

1，info.txt

name:cnbruce sex:male

建立了該文件，下面再做個(gè)ASP頁(yè)面，當(dāng)然最好兩個(gè)文件是在同一目錄下。

2，opentxt.asp

% whichfile=server.mappath("info.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set txt = fso.OpenTextFile(whichfile,1) rline = txt.ReadLine rline = rline "br>" txt.ReadLine Response.Write rline txt.Close %>

需要注意：無(wú)論是通過(guò)FSO打開(kāi)驅(qū)動(dòng)器、打開(kāi)文件夾、打開(kāi)文件，以及以后要接觸到的打開(kāi)數(shù)據(jù)庫(kù)，都只能是打開(kāi)絕對(duì)物理路徑地址。但一般情況是上傳到空間服務(wù)商那,不能很直接地了解到自己文件的所在位置，所以強(qiáng)烈推薦使用server.mappath方法：平臺(tái)移植性強(qiáng)，適用性強(qiáng)。

CreateObject("Scripting.FileSystemObject")建立了FSO組件的連接，fso.OpenTextFile(whichfile,1)打開(kāi)了info.txt該文件。參數(shù)“1”表示“ForReading：以只讀方式打開(kāi)文件。不能寫(xiě)這個(gè)文件?！保渌€有參數(shù)“2”表示“ForWriting：以寫(xiě)方式打開(kāi)文件”，參數(shù)“8”表示“ForAppending：打開(kāi)文件并從文件末尾開(kāi)始寫(xiě)”。

打開(kāi)了該文件，接下來(lái)是不是要顯示文件中的內(nèi)容？那就通過(guò)txt.ReadLine方法讀取文本中的一整行，如果需要繼續(xù)讀取下一行，則繼續(xù)使用txt.ReadLine方法。當(dāng)然初此還有其它的讀取方法，比如txt.Read(7)讀取指定數(shù)量的字符，txt.ReadAll返回文本中的全部?jī)?nèi)容。

二、fso.CreateTextFile
如fso.CreateFolder建立文件夾般，fso.CreateTextFile則是建立文件了。

3，creattxt.asp

% whichfile=server.mappath("info.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(whichfile,True) MyFile.WriteLine("My Name Is CN-Bruce") MyFile.WriteLine("My Sex Is Male") MyFile.Close %> a href="opentxt.asp">查看內(nèi)容/a>

本次建立的文件是上一info.txt文件，fso.CreateTextFile(whichfile,True)其中的參數(shù)true即表示能覆蓋已有文件。建立后需要向里面添加數(shù)據(jù)就采用“MyFile.WriteLine”了。

那現(xiàn)在就可以建立一個(gè)簡(jiǎn)單的文本記數(shù)器了，還記得以前的記數(shù)？：1，通過(guò)application、session、global.asa進(jìn)行記數(shù)；2，通過(guò)Counter組件進(jìn)行記數(shù)。但兩者都有通病，就是不能保存，如果服務(wù)器重新啟動(dòng)后，是不是所有記數(shù)全部清空了呢：）那現(xiàn)在就可以使用文本來(lái)記錄數(shù)據(jù)了，即使重啟，下次提取的也還是該文件。

試驗(yàn)：文本計(jì)數(shù)器

首先建立一記數(shù)的文本文件counter.txt，設(shè)定初始值為“1”

4，counter.txt

1

接著是記數(shù)的ASP文件，功能是顯示文本的記數(shù)，本做加1的記數(shù)，然后還要將新的記數(shù)寫(xiě)入文本文件。

5，txtcount.asp

% whichfile=server.mappath("counter.txt") '打開(kāi)文件并將其值讀取，最后關(guān)閉連接釋放資源 set fso=createobject("Scripting.FileSystemObject") set openfile=fso.opentextfile(whichfile,1) visitors=openfile.readline openfile.close '頁(yè)面顯示記數(shù)內(nèi)容并做加1運(yùn)算 response.write "您是本頁(yè)的第"visitors"位訪客" visitors=visitors+1 '將新的數(shù)值添加寫(xiě)入到文本，最后關(guān)閉所有連接釋放資源 set creatfile=fso.createtextfile(whichfile) creatfile.writeLine(visitors) creatfile.close set fso=nothing %>

那根據(jù)這個(gè)可以繼續(xù)地?cái)U(kuò)展內(nèi)容：比如讓記數(shù)用數(shù)字圖片顯示。當(dāng)然前提就是你需要0-9的10張記數(shù)圖片，并將此圖片放于img文件夾中。
下為一增強(qiáng)的txtcount.asp內(nèi)容代碼

% whichfile=server.mappath("counter.txt") set fso=createobject("Scripting.FileSystemObject") set openfile=fso.opentextfile(whichfile,1) visitors=openfile.readline openfile.close CountLen=len(visitors) response.write "您是本頁(yè)的第" for i=1 to 6-countLen '表示最大值999999 response.write "img src=img/0.gif>/img>" next for i=1 to countlen response.write "img src=img/" mid(visitors,i,1) ".gif>/img>" next response.write "位訪客" visitors=visitors+1 set creatfile=fso.createtextfile(whichfile) creatfile.writeLine(visitors) creatfile.close set fso=nothing %>

本程序中采用的是mid函數(shù)，該函數(shù)的作用是返回某字符串中從第幾位字符開(kāi)始的幾個(gè)字符。格式即為：Mid(string,start,length)
script language=vbs> cn_string= "cnbruce love cnrose" cn_start = 9 cn_length = 4 alert (mid(cn_string,cn_start,cn_length)) /script>
[Ctrl+A 全部選擇進(jìn)行拷貝 提示：可先修改部分代碼，再點(diǎn)擊運(yùn)行]
效果頁(yè)參看http://www.cnbruce.com/code/txtcount.asp

記數(shù)文本查看：http://www.cnbruce.com/code/counter.txt