服務(wù)器組件增強(qiáng)了腳本語言的功能_第1頁
服務(wù)器組件增強(qiáng)了腳本語言的功能_第2頁
服務(wù)器組件增強(qiáng)了腳本語言的功能_第3頁
服務(wù)器組件增強(qiáng)了腳本語言的功能_第4頁
服務(wù)器組件增強(qiáng)了腳本語言的功能_第5頁
已閱讀5頁，還剩24頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

服務(wù)器組件增強(qiáng)了腳本語言的功能第1頁，共29頁，2023年，2月20日，星期五DatabaseAccess提供用ActiveXDataObjects(ADO)對數(shù)據(jù)庫的訪問。ContentLinking創(chuàng)建一個(gè)NextLink對象，該對象可生成Web頁內(nèi)容列表，并象書一樣將各頁順續(xù)連接。FileAccess組件提供文件的輸入輸出訪問。第2頁，共29頁，2023年，2月20日，星期五MyInfo創(chuàng)建一個(gè)MyInfo

對象，該對象追蹤個(gè)人信息，例如站點(diǎn)管理員的姓名、地址及顯示選擇。Counters創(chuàng)建一個(gè)Counters

對象，該對象可以創(chuàng)建、保存、增加或檢索任意數(shù)量的獨(dú)立計(jì)數(shù)器。ContentRotator自動翻轉(zhuǎn)Web主頁上的HTML內(nèi)容字符串。PageCounter記錄并顯示W(wǎng)eb頁被打開的次數(shù)。Status創(chuàng)建一個(gè)Status

對象，該對象的某些屬性包含服務(wù)器狀態(tài)信息。當(dāng)前的這種服務(wù)器狀態(tài)僅適用于PersonalWebServerforMacintosh。第3頁，共29頁，2023年，2月20日，星期五二、創(chuàng)建內(nèi)置組件對象1.使用Server.CreateObject(注冊名)2.使用HTML語言中的<OBJECT>標(biāo)簽第4頁，共29頁，2023年，2月20日，星期五廣告翻轉(zhuǎn)器組件AdRotator組件創(chuàng)建一個(gè)AdRotator

對象，該對象在Web頁上自動輪換顯示廣告圖像。當(dāng)用戶每次打開或重新加載Web頁時(shí)，AdRotator組件將根據(jù)在ADRotator計(jì)劃文件中指定的信息顯示一個(gè)新廣告。語法SetAdRotator=Server.CreateObject("MSWC.AdRotator")

參數(shù)AdRotator

指定AdRotator對象的名稱，此對象通過調(diào)用Server.CreateObject

創(chuàng)建。一、廣告顯示第5頁，共29頁，2023年，2月20日，星期五屬性Border指定廣告邊框的大小。Clickable指定廣告是否為超鏈接。TargetFrame指定顯示廣告的框架的名稱。方法GetAdvertisement從數(shù)據(jù)文件中獲取下一個(gè)計(jì)劃廣告的詳細(xì)說明并將其格式化為HTML格式。第6頁，共29頁，2023年，2月20日，星期五示例下面的示例在用戶每次查看Web頁時(shí)顯示不同的廣告。<%Setad=Server.CreateObject("MSWC.AdRotator")%><%=ad.GetAdvertisement("/ads/adrot.txt")%>ADRotator計(jì)劃文件文件包含AdRotator組件用于管理和顯示各種廣告圖象的信息。在該文件中，用戶可以指定廣告的細(xì)節(jié)，例如廣告的空間大小、使用的圖象文件以及每個(gè)文件的顯示時(shí)間所占百分比。文件由兩部分組成。第一部分設(shè)置應(yīng)用于輪換安排中所有廣告圖象的參數(shù)；第二部分指定每個(gè)單獨(dú)廣告的文件和位置信息以及應(yīng)當(dāng)接收的每個(gè)廣告的顯示時(shí)間所占百分比。這兩部分由全是星號(*)的一行隔開。第7頁，共29頁，2023年，2月20日，星期五例子：Adrot.txtREDIRECTadred.aspWIDTH230HEIGHT33BORDER1*/prog/ad/468x60_1.gif/網(wǎng)易2/images/Ad173962St1Sz1Sq1Id2.gif/新浪網(wǎng)3gamichlg.gif-SponsoredbyFlyteworks3第8頁，共29頁，2023年，2月20日，星期五例子：主文件：<%Setad=Server.CreateObject("MSWC.AdRotator")%>

<%=ad.GetAdvertisement("/ads/adrot.txt")%>

在第一部分中有四個(gè)全局參數(shù)，每個(gè)參數(shù)都由一個(gè)關(guān)鍵字和值組成。所有的參數(shù)都是可選的。如果用戶未指定全局參數(shù)的值，則AdRotator

將使用默認(rèn)的值。在這種情況下，文件的第一行必須只有一個(gè)星號(*)。第9頁，共29頁，2023年，2月20日，星期五

二、用PageCounter組件統(tǒng)計(jì)訪問者PageCounter組件創(chuàng)建PageCounter

對象，以記錄和顯示W(wǎng)eb頁被打開的次數(shù)。每隔一定的時(shí)間，此對象將訪問次數(shù)寫入文本文件以便數(shù)據(jù)不會在服務(wù)器關(guān)機(jī)時(shí)丟失。語法<%SetoVar=Server.CreateObject("MSWC.PageCounter")%>

參數(shù)

oVar

指定通過調(diào)用Server.CreateObject

創(chuàng)建的PageCounter

對象的名稱。第10頁，共29頁，2023年，2月20日，星期五方法Hits顯示指定的URL被打開的次數(shù)。PageHit增加訪問次數(shù)。Reset將指定的頁的訪問次數(shù)設(shè)置為0。第11頁，共29頁，2023年，2月20日，星期五例子：<HTML><HEAD><TITLE>頁面計(jì)數(shù)器示例</TITLE></HEAD><BODY><%SetWHits=Server.CreateObject("MSWC.PageCounter")WHits.PageHit()%>此頁面被訪問了<%=WHits.hits%>次</Body></HTML>第12頁，共29頁，2023年，2月20日，星期五三、瀏覽器能力：實(shí)例：<HTML><HEAD><TITLE>瀏覽器能力檢測示例</TITLE></HEAD><BODY><%SetMyBrow=Server.CreateObject("MSWC.BrowserType")%>你的瀏覽器有如下特性：<P>瀏覽器類型:<%=MyBrow.Browser%></br></br>是否支持分屏:<%=MyBrow.Frames%></br></br>Cookies:<%=MyBrow.Cookies%></br></br>操作平臺:<%=MyBrow.platform%></br></br>VBScript:<%=MyBrow.vbscript%></br></br></BODY></HTML>第13頁，共29頁，2023年，2月20日，星期五文件存取組件一、FileAccess組件簡介FileAccess組件展示可用來訪問計(jì)算機(jī)文件系統(tǒng)的方法和屬性。用戶可以使用FileAccess組件創(chuàng)建FileSystemObject

對象，該對象提供用于訪問文件系統(tǒng)的方法、屬性和集合。FileAccess組件的對象第14頁，共29頁，2023年，2月20日，星期五二、文件的讀、寫1.創(chuàng)建并寫入文件首先，需要創(chuàng)建一個(gè)FileSystemObject對象，然后，利用CreateTextFile()以該對象創(chuàng)建一個(gè)TextStream對象，最后利用TextStream對象的WriteLine方法來寫入文件。2.從文本文件讀取數(shù)據(jù)首先，創(chuàng)建一個(gè)FileSystemObject對象，然后，利用OpenTextFile()以該對象創(chuàng)建一個(gè)TextStream對象，最后利用TextStream對象的ReadLine方法來讀取文件。第15頁，共29頁，2023年，2月20日，星期五CreateTextFile(文件名,[overwrite[,unicode]])參數(shù):overwrite:對文件是否覆蓋

Unicode:指示該文件是否用ASC還是UNICODE碼第16頁，共29頁，2023年，2月20日，星期五實(shí)例（寫入文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok寫入文件”)%>Writeline:在文件中添加字符串和分行符Write：將一個(gè)字段寫入文本writeBlankLine(lines):用戶在文件中指定分行符數(shù)目第17頁，共29頁，2023年，2月20日，星期五OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值為ForReading;ForAppendingmode:1為只讀打開;8為追加Create:如果文件不存在問是否創(chuàng)建,如果要創(chuàng)建則設(shè)為trueFormat:-2:系統(tǒng)默認(rèn);-1unicode;0:ASCII第18頁，共29頁，2023年，2月20日，星期五實(shí)例（讀取文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.OpenTextFile(“c:\test\test.txt”)WhilenotTfile.AtEndOfStreamResponse.Write(Tfile.Readline)WendTfile.close%>第19頁，共29頁，2023年，2月20日，星期五參數(shù)（讀取文件）：AtEndofLine:當(dāng)光標(biāo)在當(dāng)前行的末尾時(shí)為真AtEndOfStream:在流的末尾時(shí),為真Column:(只讀的整數(shù)):統(tǒng)計(jì)從行首到當(dāng)前光標(biāo)的位置的字符數(shù)LINE:只讀的整數(shù):指明光標(biāo)所在行在整個(gè)文件中的行號.方法:Read(字符數(shù)):指定從光標(biāo)的當(dāng)前位置開始從文本文件中讀取一定數(shù)量的字符ReadLine:讀取一行字符ReadAll:讀取全部字符Skip(字符數(shù)):略過一定的字符

Close:關(guān)閉打開的文件第20頁，共29頁，2023年，2月20日，星期五OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值為ForReading;ForAppendingmode:1為只讀打開;8為追加Create:如果文件不存在問是否創(chuàng)建,如果要創(chuàng)建則設(shè)為trueFormat:-2:系統(tǒng)默認(rèn);-1unicode;0:ASCII第21頁，共29頁，2023年，2月20日，星期五文件的處理:FileSystemObject方法:CopyFilesource,destinationMoveFilesource,destinationDeleteFileFileSpecifierFile對象Copynewcopy,[overwrite]Movenewcopydelete:第22頁，共29頁，2023年，2月20日，星期五實(shí)例(文件的處理)1：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok寫入文件”)Tfile.closeFObject.CopyFile”c:\test\test.txt”“c:\test\test2.txt”FObject.MoveFile”c:\test\test.txt”“c:\test\test3.txt”FObject.DeleteFile”c:\test\test.txt”%>第23頁，共29頁，2023年，2月20日，星期五實(shí)例(文件的處理)2：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok寫入文件”)Tfile.closeSetafile=tfile.GetFile(“c:\test\test.txt”)Afile.copy“c:\test2.txt”Afile.move”c:\test3.txt”Afile.delete%>第24頁，共29頁，2023年，2月20日，星期五檢測文件的存在性:

語法:FileExists(文件的物理地址)例子:<%Myself=request.ServerVariables(“PATH_TRANSLATED”)Setfobject=server.createobject(“scripting.filesystemObject”)Tfile.writeLine(“ok寫入文件”)If(fobject.FileExists(myself)thenResponse.write(“fileexist”)%>第25頁，共29頁，2023年，2月20日，星期五驅(qū)動器和文件夾操作例子:<%Setfobject=server.createobject(“scripting.filesystemObject”)Foreachthinginfobject.drives%><br>Driveletter:<%=thing.Driveletter%><br>DriveTotalSize:<%=thing.TotalSize%><br>DriveAvailableSpace:<%=thing.AvailableSpace%><hr><%next%>第26頁，共29頁，2023年，2月20日，星期五文件操作綜合事例:<%@Language=VBScript%><%'注意絕對路徑:C:\Inetpub\home\asp\wuf23.asp主頁路徑:C:\Inetpub\home'使用CreateObject方法創(chuàng)建FileSystemObject對象FSOSetFSO=Server.CreateObject("Scripting.FileSystemObject")Path=Server.MapPath("test")'返回test的物理目錄(絕對路徑)'就本例而言,下面這句與上面這句返回的Path完全一樣'Path=Server.MapPath("\asp\test\")Response.WritePath&"<Br>"IfFSO.FolderExists(Path)=falsethen'判斷該文件夾是否存在

FSO.CreateFolder(Path)'新建文件夾EndIf第27頁，共29頁，2023年，2月20日，星期五文件操作綜合事例:File=Path&"\asptest.txt"'寫文件操作IfFSO.FileExists(File)=TrueThen'判斷該文件是否存在

'建立TextStream對象CTFSe

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論