ASP講座之四：ASP內置組件

　　一 Browser Capabilities Component（浏覽器能力組件）
　　
　　我們知道不同的浏覽器也許支持不同的功能如有些浏覽器支持框架有些不支持利用這個組件可以檢查浏覽器的能力使你的網頁爭對不同的浏覽器顯示不同的頁面（如對不支持Frame的浏覽器顯示不含Frame的網頁）該組件的使用很簡單需注意的是要正確使用該組件必須保證Browscapini文件是最新的（其實每一個浏覽器及其特性都列在這個文件中自己打開看看就明白了）否則結果可能相去甚遠如Win第二版所帶的IE在下例中顯示為Netscape這個文件一般位於Web服務器的\Winnt\System\InetSrv下最新的版本可去/或下載
　　例wufasp
　　<html>
　　<BODY>
　　注意組件的使用與對象類似但是組件在使用前必須先創建而使用內置對象前不必創建
　　<%Set BrowsCap=ServerCreateObject(MSWCBrowserType)%>
　　請稍候
　　<P>
　　<TABLE BORDER= CELLPADDING=>
　　<TR><TD>浏覽器類型</TD><TD><%=BrowsCapBrowser%></TD></TR>
　　<TR><TD>浏覽器版本</TD><TD><%=BrowsCapversion%></TD></TR>
　　<TR><TD>是否支持表格</TD><TD><%=BrowsCaptables%></TD></TR>
　　<TR><TD>是否支持ActiveX控件</TD><TD><%=BrowsCapactivexcontrols%></TD></TR>
　　<TR><TD>是否支持JavaApplets</TD><TD><%=BrowsCapjavaapplets%></TD></TR>
　　<TR><TD>是否支持javascript</TD><TD><%=BrowsCapjavascript%></TD></TR>
　　<TR><TD>是否支持Cookies</TD><TD><%=BrowsCapCookies%></TD></TR>
　　<TR><TD>是否支持Frames</TD><TD><%=BrowsCapFrames%></TD></TR>
　　<TR><TD>操作系統</TD><TD><%=BrowsCapPlatform%></TD></TR>
　　<TR><TD>是否支持VBScript</TD><TD><%=BrowsCapvbscript%></TD></TR>
　　</TABLE>
　　<%Set BrowsCap = Nothing%>
　　</BODY>
　　</HTML>
　　注意在本例中我們也接觸了Server對象的CreateObject方法ServerCreateObject用於創建已經注冊到服務器上的ActiveX組件（說明還有其他方法可以創建組件）不過別忘了用Set 對象 = Nothing來及時釋放資源這應該成為一個習慣
　　
　　二 File Access組件
　　
　　File Access組件由FileSystemObject對象和TextStream對象組成使用FileSystemObject對象可以建立檢索刪除目錄及文件而TextStream對象則提供讀寫文件的功能
　　實例wufasp強調只有通過實踐才能加深理解實踐和比較程序運行結果是快速掌握編程技巧的最好方法
　　<%@ Language=VBScript %>
　　<% Option Explicit
　　注意絕對路徑: C:\Inetpub\home\asp\wufasp　主頁路徑: C:\Inetpub\home
　　Dim Path File FSO CTF Str StrHTML StrNoHTML
　　
　　使用 CreateObject 方法創建 FileSystemObject 對象 FSO
　　Set FSO = ServerCreateObject(ScriptingFileSystemObject)
　　
　　Path = ServerMapPath(test)　　　　返回test的物理目錄(絕對路徑)
　　就本例而言下面這句與上面這句返回的Path完全一樣
　　Path = ServerMapPath(\asp\test\)
　　ResponseWrite Path & <Br>
　　
　　If FSOFolderExists(Path) = false then　　判斷該文件夾是否存在
　　FSOCreateFolder(Path)　　　　　　　　新建文件夾
　　End If
　　
　　File = Path & \asptesttxt
　　寫文件操作
　　If FSOFileExists(File) = True Then　　　　　　　　判斷該文件是否存在
　　建立 TextStream 對象 CTF
　　　Set CTF = FSOOpenTextFile(File False )　　打開文件詳見說明
　　Else
　　　Set CTF = FSOCreateTextFile(FileFalse False)　新建文件
　　End If
　　CTFWrite <P>第一個字符串; 　　　　　　　寫字符串
　　CTFWriteLine 第二個字符串; 　　　　　　寫字符串並加上一個換行符
　　CTFWrite 第三個字符串;
　　CTFClose　　　　　　　　　　　　　　　　　注意要關閉文件
　　
　　讀文件操作
　　Set CTF = FSOOpenTextFile(File )
　　Do While CTFAtEndOfStream <> True　　　　判別是否文件結尾（循環語句）
　　　Str = CTFReadLine　　　　　　　　　　　（每次）讀取一行
　　　StrNoHTML = StrNoHTML & Str & <BR> & VbCrLf
　　　StrHTML = StrHTML & ServerHTMLEncode(Str) & <BR> & VbCrLf
　　Loop
　　ResponseWrite StrNoHTML
　　ResponseWrite StrHTML
　　
　　CTFClose
　　Set CTF = Nothing　釋放對象
　　Set FSO = Nothing
　　%>
　　CTF = FSOOpenTextFile(File False )括號內第一個參數為文件名第二個參數為表示在原文件後追加內容若為表示只讀為則會重寫原文件第三個參數false表示若指定文件不存在也不新建文件若為True表示指定文件不存在則新建該文件第四個參數表示以ASCII文件格式打開若為則表示以原來的格式打開
　　CTF = FSOCreateTextFile(FileFalse False)第二個參數false表示不覆蓋已有文件若為True則表示覆蓋（OverWrite）已有文件第三個參數為False表示文件格式為ASCII為True表示文件格式為Unicode
　　Server對象的MapPath方法將指定的虛擬路徑轉換為真實的文件路徑MapPath將/和\字符視為相同
　　Server對象的HTMLEncode方法允許你對特定的字符串進行HTML編碼或者說使浏覽器中可以正確顯示特定的字符上例中若未編碼則<P>顯示不出來而是被浏覽器作為HTML標記你可以對比一下運行結果
　　實際上File Access組件對文件文件夾和驅動器的操作還是比較強大的也提供了較多的方法如果需要用到這方面的知識別忘了使用它
　　另外到現在為止寫一個網頁計數器已經是小菜一碟了吧難怪那麼多的網頁提供免費計數器怎麼樣？自己寫一個圖形計數器試試看想怎麼作弊就怎麼作弊完全自己說了算爽呆！（小秘密我的主頁上有實例wufasp）
　　
　　三 AD Rotator（廣告翻轉組件）
　　
　　現在上網恐怕最討厭的是別人主頁上的廣告條最喜歡的是自己主頁上的廣告條廣告條如同垃圾郵件一樣比比皆是防不勝防你也可以自己動手制造這樣的垃圾ASP的AD Rotator組件就可使每次打開或者重新加載網頁時隨機的顯示廣告這個例子包括三部分
　　例程wufasp
　　<%@ Language=VBScript %>
　　<% Option Explicit
　　Dim adr
　　創建 AD Rotator 對象
　　Set adr = ServerCreateObject(MSWCAdRotator)
　　adrBorder = 　　　　　　　指定圖形文件的邊框大小
　　adrClickable = True　　　　指示顯示的圖片是否是一個超鏈接
　　adrTargetFrame = _blank　設置超鏈接是否要指定Frame名稱如: _TOP _NEW _PARENT
　　獲取將要顯示的圖片及超鏈接設置在文件 AdrSettxt 中設置
　　ResponseWrite adrGetAdvertisement(AdrSettxt)
　　%>
　　　　AdrSettxt內容（後面為注釋不是這個文件的內容）
　　REDIRECT wufasp　　　點擊廣告後轉由wufasp來處理
　　WIDTH 　　　　　　　廣告圖片寬度
　　HEIGHT 　　　　　　　廣告圖片高度
　　*　　　　　　　　　　　分隔符
　　/Article/UploadFiles//gif
　　
　　佳能
　　
　　本例中一共有三個圖片（圖片大小X）及鏈接每個鏈接的描述占四行實際使用時你可如法炮制增加更多的圖片
　　<%　wufasp
　　　URL = RequestQueryString(url)
　　ResponseRedirect(URL)
　　%>
　　wufasp是一個最簡單的處理程序你可根據實際需要在這裡加入更多的代碼
　　運行一下原來這個組件的使用也很簡單你要做的就是得到自己的AdrSettxt文件利用這個組件你甚至可以設計一個現在已非常時髦的廣告交換主頁
　　
　　四 Content Linking組件
　　
　　顯然這個組件與鏈接有關系如果想馬上知道這個組件的具體用途恐怕還操之過急不妨先引用一個經典的例子假設在網上閱讀一本書你對以下這些鏈接一定不會陌生第章第章…上一章下一章（或前一頁後一頁）等等我們現在要做的就是如何在這些鏈接之間方便快速地設置跳轉
　　首先建一個鏈接列表文本文件如urllisttxt
　　wufasp 第章文件操作（File Access組件）
　　wufasp 第章Content Linking組件使用示例
　　wufasp 第章浏覽器能力組件
　　鏈接url地址和描述之間用 Tab 鍵分隔下面wufasp用來列出urllisttxt中的所有鏈接
　　<% @LANGUAGE = VBScript %>
　　<% Option Explicit %>
　　<html><head><title>Content Linking組件使用</title></head>
　　<body>
　　<h>目錄列表: 注意核心鏈接是第章你一定要點擊它</h>
　　<
From:http://tw.wingwit.com/Article/program/ASP/201311/21771.html