99精品国产免费久久久久久下载,亚洲综合精品一区二区三区中文 ,免费国产黄

利用Active Server Pages腳本，你就幾乎完全可以控制服務(wù)器的文件系統(tǒng)。需要如下的組件：■FileSystemObject：這個(gè)對(duì)象包括了一些基本的對(duì)文件系統(tǒng)進(jìn)行操作的方法，比如說，復(fù)制和刪除文件夾或者文件■TextStream：這個(gè)對(duì)象用來讀寫文件■File：它的方法和屬性被用來處理單獨(dú)的文件?！鯢older：它的方法和屬性被用來處理文件夾。這部分介紹如何讀寫一個(gè)文本文件。這對(duì)文本文件有很多用處，包括下面這些?！鲆粋€(gè)常用的日志，利用文本文件記錄訪問者的活動(dòng)以供日后參考。你可以記錄諸如訪問者IP地址，瀏覽器類型等等你能得到而且想要了解的東西。■Form中的數(shù)據(jù)，你可以將用戶在Form的文本框中填寫的東西記入文本文件，盡管使用數(shù)據(jù)庫會(huì)更加有效。■每日新聞，將每日的新消息記錄到文本文件，然后可以在很多文件中讀出來顯示　對(duì)文本文件的寫操作要?jiǎng)?chuàng)建并且寫入一個(gè)文本文件，你應(yīng)當(dāng)使用FileSystemObject和TextStream對(duì)象。首先，你需要?jiǎng)?chuàng)建一個(gè)FileSystemObject對(duì)象的事例，然后，再利用CreateTextFile()以該事例創(chuàng)建一個(gè)TextStream對(duì)象的事例，最后利用TextStream對(duì)象的WriteLine()方法來寫入文件。下面是這個(gè)例子：　<%Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.CreateTextFile(“c://mydir//test.txt”)MyTextFile.WriteLine(“歡迎進(jìn)入邁至科網(wǎng)絡(luò)ASP教程文件操作示例！”MytextFile.Close%>這個(gè)例子創(chuàng)建了一個(gè)名字為test.txt的文件，該文件位于c://mydir//，WriteLine()方法被用來將那一句話寫入該文件。最后，這個(gè)TextStream對(duì)象的事例關(guān)閉并且釋放所有資源，下面部分將對(duì)每一個(gè)步驟進(jìn)行仔細(xì)解釋?！∽⒁馊绻阈枰摂M路徑轉(zhuǎn)化為真實(shí)路徑（這樣操作使得站點(diǎn)具有更強(qiáng)的可移植性），可以用Server.MapPath()方法，例如下面這個(gè)例子：PhysicalPath=Server.MapPath(“/private/test.txt”)假設(shè)虛擬路徑/private對(duì)應(yīng)于真實(shí)路徑c://net//private，那么這個(gè)PhysicalPath的值將是c://net//private//test.txt　CreateTextFile()方法用來創(chuàng)建一個(gè)新的文本文件，當(dāng)這個(gè)方法被調(diào)用，那么就返回一個(gè)TextStream對(duì)象，這個(gè)方法有一個(gè)必須的參數(shù)和兩個(gè)可選的參數(shù)?！鯢ileSpecifier,限定要?jiǎng)?chuàng)建的文件及路徑，如果沒有這個(gè)參數(shù)，顯然是要報(bào)錯(cuò)的。■Overwrite,這個(gè)參數(shù)是可選的，默認(rèn)為TRUE，如果存在同名的文件，依據(jù)這個(gè)參數(shù)判斷是否進(jìn)行覆蓋操作，如果賦為FALSE，那么存在同名文件時(shí)會(huì)返回錯(cuò)誤信息?！鯱nicode,這個(gè)參數(shù)可選，默認(rèn)為False，指示該文件是否用ASC碼形式進(jìn)行創(chuàng)建和保存。如果選擇TRUE，將以Unicode方式創(chuàng)建。再利用CreateTextFile()方法創(chuàng)建了文本文件后，你就可以使用TextStream對(duì)象來對(duì)文件進(jìn)行讀寫，在寫操作時(shí)，有如下的方法：■Write(String).這個(gè)方法將一個(gè)字段寫入文本文件?！鯳riteLine(String)，這個(gè)方法是在文件中添加字串和一個(gè)分行符，這里面的string參數(shù)可選，如果沒有的話，則添加一個(gè)分行符?！鯳riteBlankLines(lines)，顧名思義，這是允許用戶在文件中指定數(shù)目個(gè)分行符?！鯿lose.這個(gè)方法就是關(guān)閉一個(gè)打開的TextStream文件并釋放其占用的資源?！∠旅媸且粋€(gè)連續(xù)在文件中輸出32行同樣字符串的例子腳本：　<% Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.CreateTextFile(“c://mydir//test.txt”)For i=1 to 32MyTextFile.WriteLine(“Hello World!”)NextMyTextFile.Close%>　在文本文件中讀取和追加數(shù)據(jù)這里，首先要做的依然是創(chuàng)建一個(gè)FileSystemObject對(duì)象的事例，然后，利用OpenTextFile()方法來創(chuàng)建一個(gè)TextStream對(duì)象的事例，最后，你就可以用TextStream對(duì)象的ReadLine方法來對(duì)文件讀取，下面是個(gè)例子：　<%Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//test.txt”)While not MyTextFile.AtEndOfStreamResponse.Write(MyTextFile.ReadLine)WendMyTextFile.Close%>　這個(gè)腳本將文本文件Test.txt文件中所有的內(nèi)容讀出來并且顯示在瀏覽器上。如果文件不存在，回顯示相應(yīng)錯(cuò)誤信息（在下一個(gè)部分，你會(huì)學(xué)到怎樣檢測(cè)一個(gè)文件是否存在）其中While…Wend循環(huán)是將文件內(nèi)容一行一行的循環(huán)讀取，其中如果沒有到達(dá)文件末尾，那么AtEndOfStream屬性就會(huì)是False，直到末尾時(shí)變?yōu)門rue。　下面是讀取文件時(shí)可能會(huì)用到的屬性：■AtEndOfLine。這個(gè)屬性判斷是否到了文件中一個(gè)特定行的末尾，如果不是，則為False，反之為True■AtEndOfStream。就是這個(gè)例子中用到的，判斷是否到了該文件的結(jié)尾并依此返回True和False■Column。這個(gè)屬性判斷當(dāng)前字符在該行的位置，返回一個(gè)整數(shù)值?！鯨ine。這個(gè)屬性判斷當(dāng)前行在文件中的行數(shù)，返回一個(gè)整數(shù)值　除了使用ReadLine方法以外，你當(dāng)然還可以使用Read()方法。Read()方法會(huì)從指定打開的文本文件中返回指定數(shù)目個(gè)字符。下面是用這個(gè)方法的示例：　<%Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//test.txt”)While NOT MyTextFile.AtEndOfLineResponse.Write(MyTextFile.Read(1))WENDMyTextFile.Close%>這個(gè)腳本從文本文件中接受第一行，每次接受顯示一個(gè)字符，利用AtEndOfLine屬性一直到行尾截止，由Read(1)一個(gè)一個(gè)讀取。　下面是從文本文件讀取數(shù)據(jù)時(shí)要用到的方法■Read(Number).從文本文件中讀取限定數(shù)目個(gè)字符■ReadLine.從文本文件中讀取一行（換行符不返回)■ReadAll.這個(gè)方法接受TextStream文件的所有內(nèi)容■Skip(Number).這個(gè)方法從一個(gè)打開的文本文件中跳過指定數(shù)目個(gè)字符■close關(guān)閉當(dāng)前打開的文件并釋放所占用的資源。　一般說來，OpenTextFile()方法是用來讀取數(shù)據(jù)的，但是你也可以用它追加數(shù)據(jù)信息，例如，你希望在該文本數(shù)據(jù)中追加一些新內(nèi)容，可以見下面的示例：　<%Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.OpenTextFile(“c://mydir//browser.log”,8,TRUE)MyTextFile.WriteLine(Request.ServerVariables(“HTTP_USER_AGENT”))MyTextFile.Close%>這個(gè)腳本用于在網(wǎng)站中創(chuàng)建一個(gè)日志文件。無論什么時(shí)候這個(gè)腳本執(zhí)行，此時(shí)的瀏覽器類型就會(huì)追加到該日志文件中，瀏覽器信息由ServerVariables集合接收?！∽⒁庥嘘P(guān)ServerVariables集合的情況參見本書的第14章有關(guān)小節(jié)。這里面需要說明的是，如果browser.log不存在，則會(huì)自動(dòng)建立，這是使用了OpenTextFile()方法的兩個(gè)參數(shù)：IOMode和Create參數(shù)?！∠旅娼榻B針對(duì)于OpenTextFile()方法的所有參數(shù)：■FileSpecifier，限定要進(jìn)行讀寫或者追加的文本文件名稱■IOMODE，可選參數(shù)，指示該文件是被用來讀，寫還是追加。默認(rèn)為1表示讀，設(shè)為2表示進(jìn)行寫操作，進(jìn)行追加操作則設(shè)為8?！鯟reate，可選參數(shù)，如果文件不存在是否創(chuàng)建，默認(rèn)為False，如果希望進(jìn)行創(chuàng)建，則設(shè)為TRUE■Format，可選參數(shù)，指示文件是ASCII碼制格式還是Unicode格式，作為默認(rèn)的ASCII碼制文件，其值為-2，如果希望設(shè)為Unicode格式，此參數(shù)設(shè)為-1你不能在當(dāng)前版本的Active Server Pages中使用常量，例如，你如果希望進(jìn)行文件追加，你必須使用數(shù)字8作為參數(shù)而不是什么常量。　范例應(yīng)用這部分提供了一個(gè)范例應(yīng)用來使得讀者對(duì)這些對(duì)象、方法、屬性、以及集合、有更加明晰的認(rèn)識(shí)了解。在世界最大的網(wǎng)上書店，美國(guó)亞馬遜網(wǎng)上書店（www.amazon.com ）正在進(jìn)行（也許您在閱讀時(shí)這個(gè)活動(dòng)還在進(jìn)行）網(wǎng)上的故事合創(chuàng)運(yùn)動(dòng)，由John Updike先生寫入該故事的第一部分，每一天，訪問者都可以根據(jù)自己的意愿在線進(jìn)行故事發(fā)展的寫作，同時(shí)每一天都會(huì)對(duì)寫的最好的給出$1000的獎(jiǎng)賞（如果您的英語寫作足夠好，不妨一試）。這個(gè)故事是大家一起添加的。這真是個(gè)好主意，這下子網(wǎng)站的'回頭客’就會(huì)激增，同時(shí)產(chǎn)生巨大的社會(huì)影響力，你完全可以在自己的網(wǎng)站上實(shí)現(xiàn)類似的應(yīng)用。最簡(jiǎn)單的方法就是直接把這個(gè)范例拿出去放到你的網(wǎng)站上，當(dāng)然，如果你的網(wǎng)站還不能支持Active Server Pages，那么只好說你太不幸運(yùn)了（見圖19.1）?！±?9.1 Story.asp腳本　<%IF NOT Request.Form(“NextLine”)=”” THENSet MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyTextFile=MyFileObject.CreateTextFile(“C://MyDir//TheStory.txt”,8,TRUE)MyTextFile.WriteLine(Request.Form(“NextLine”))MyTextFile.CloseEND IF%><HTML><HEAD><TITLE>在線故事接龍</TITLE></HEAD><BODY><hr><%Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)Set MyText=MyFileObject.OpenTextFile(“C://MyDir//TheStory.txt”)WHILE NOT MyTextFile.AtEndOfStreamResponse.Write(“&nsp;&nsp;”&MyTextFile.Readline)WENDMyTextFile.Close%><HR><H3>請(qǐng)輸入這個(gè)故事的新行：</h3><Form method=”post” action=”Story.asp”><input name=”NextLine” Type=Text Size=70><input type=Submit Value=”確認(rèn)添加這一句”></Form></Body></HTML>這個(gè)Active Server Pages文件包含兩段主要腳本，第一部分是看是否有Form傳來的句子信息，如果有，則該句子添加到TheStory.txt文件中去。第二部分是顯示TheStory.txt文件中的內(nèi)容，請(qǐng)注意其中每一行之間用兩個(gè) 來進(jìn)行分隔，參見HTML中符號(hào)含義。然后用一個(gè)Form提供訪問者進(jìn)行添加，其中Form執(zhí)行還是這個(gè)文件，（就是第一部分腳本處理），因此注意該文件名稱必須是”story.asp”　其實(shí)這個(gè)應(yīng)用實(shí)在是過于簡(jiǎn)單，但是作一個(gè)留言版相當(dāng)合適，而且在該文件膨脹過大時(shí)，只要?jiǎng)h除就可以了，（不要忘了前面的腳本中將OpenTextFile的Create參數(shù)設(shè)為TRUE)是可以創(chuàng)建文本文件的。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版