熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> ASP編程 >> 正文

ASP講座之四:ASP內置組件

2013-11-15 12:51:42  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.