ASP教程15:常用的 ASP ActiveX 組件

發表于:2007-09-07來源:作者:點擊數: 標簽:
當你用 ASP 編寫 服務器 端應用程序時,必須依靠 ActiveX 組件來強大 Web 應用程序的功能,譬如:你需要連接 數據庫 ,對數據庫進行在線操作等等,繼上篇介紹了 AD Rotator 組件后,本篇將接著給大家介紹其它一些常用的 ASP ActiveX 組件的使用方法。 最近仍
當你用 ASP 編寫服務器端應用程序時,必須依靠 ActiveX 組件來強大 Web 應用程序的功能,譬如:你需要連接數據庫,對數據庫進行在線操作等等,繼上篇介紹了 AD Rotator 組件后,本篇將接著給大家介紹其它一些常用的 ASP ActiveX 組件的使用方法。

  最近仍有不少朋友來信問我, ASP 是否只能在 Microsoft IIS 上運行,是否可以在非 NT 平臺上運作?本來這個問題我已經回答過很多遍了 : 我只是聽說過有某種可以支持的軟件,卻從沒見過。但一些熱情的朋友仍然孜孜不倦地來信詢問,于是在朋友們的盛情之下,我訪遍了 ASP 相關站點,竟驚奇的發現,原來 ASP 的確是可以運行在其它非 NT 平臺上的,因此在本篇的開頭,我就給來信的朋友們簡要介紹一下如何在非 NT 平臺上使用 ASP。

  要在非 NT 平臺上開發并運行 ASP 應用程序我們可以依賴于一套名為 Instant ASP 的第三方軟件,它的廣告標語非常吸引人“ASP Anytime, Anywhere”,我想所有 ASP 的開發者們看到如此的標語必然興奮不已。這套由 Halcyon 軟件公司開發的軟件使得你無需重復開發原有 ASP 應用程序即可以將它運行在任何操作平臺上 ! 這樣非但節省了大量的開發時間,而且使得 ASP 真正成為了一種跨平臺的 Internet、 Intranet 或 Extranet 應用程序。 Instant ASP 本身其實是一套基于 Java 的應用程序,因此通過它你可以將基于 WEB 的 ASP 應用程序運行在任何平臺上,下表列出了 Instant ASP 目前版本所支持的操作平臺。

請添加描述

  更令人吃驚的是 Instant ASP 不僅提供了 ASP 的運作環境,而且它較目前市場上的 ASP 應用還提供了更為強大和實用的功能,它將 ActiveX 組件和 Enterprise Java Beans 或者 CORBA-compliant objects 組合起來,從而使 ASP 有了更為廣泛的應用。它同樣提供了通過 ADO 接口訪問連接各種數據庫,并生成動態頁面的強大功能。對于開發者而言可以使用自己擅長的編程語言或工具如 :Visual Basic, JScript, VBScript, C++, Java, HTML, Delphi , MS Visual InterDev 等等來進行開發。關于 Instant ASP 具體安裝和操作我就不在這里展開了,有興趣的朋友可以到它的站點上去看看 halcyonsoft.com,你還可以免費下載一個試用版試試。
  繼上一篇中作者給大家介紹了 AD Rotator 組件的使用方法后,今天我們接著來看看其它的一些 ASP 常用組件。

   一、 Database Aclearcase/" target="_blank" >ccess 組件

  我們在 WEB 服務器上運用 WEB 應用程序進行的最常見和最實用的任務就是訪問服務器端的數據庫。而 ASP 內建的 Database Access 組件使得我們能夠輕而易舉地通過 ActiveX Data Objects (ADO) 訪問存儲在服務器端的數據庫或其他表格化數據結構中的信息。 ADO 是對當前微軟所支持的數據庫進行操作的最有效和最簡單直接的方法,它是一種功能強大的數據訪問編程模式,從而使得大部分數據源可編程的屬性得以直接擴展到你的 Active Server 頁面上??梢允褂?ADO 去編寫緊湊簡明的腳本以便連接到 Open Database Connectivity (ODBC) 兼容的數據庫和 OLE DB 兼容的數據源,這樣 ASP 程序員就可以訪問任何與 ODBC 兼容的數據庫,包括 MS SQL SERVER、 Access、 Oracle 等等。如果您是一個對數據庫連接有一定了解的腳本編寫人員,那么您將發現 ADO 命令語句并不復雜而且容易掌握。同樣地,如果您是一個經驗豐富的數據庫編程人員,您將會正確認識 ADO 的先進的與語言無關性和查詢處理功能。熟悉 VB 數據庫編程的朋友會發現 ADO 與 RDO (Remote Data Objects) 有某種類似的地方。但據說 ADO 的訪問的速度更快,內存需要更小。
   下面給大家簡要介紹一下利用 ASP 的 Database Access 組件通過 ADO 連接并操作 WEB 數據庫的步驟

   第一步 : 指定想要連接的數據庫,有 DSN 和 DSN-less 兩種方法。

   DSN(Data Source Name 數據源名稱 ): 建立一個系統數據源名稱,方法如下 :

   1、單擊“開始”,選設置控制面板。

   2、雙擊圖標“32 位 ODBC” , 將彈出一個對話框,選標簽“System DSN”

   3、單擊“Add”添加一個 DSN 入口 , 選擇如“Microsoft Access Drive”并確認。

   4、在“Data Source Name”欄里輸入你希望指定的 DSN, 然后單擊“Select”選擇數據庫存放位置,你可以按“Browse”來選取。

   5、以上步驟完成后在 ASP 程序中指定 DSN,如下 :

   < %connstr = "DSN"%>

  DSN-less: 是另一種通過在 ASP 文件里直接指定數據庫文件所在位置,而無需建立 DSN 的方法。由于許多公司沒有自己的 WEB 服務器,他們的網站往往是存放在遠端的虛擬服務器上,因此要建立和修改 DSN 的設置比較麻煩。而使用 DSN-less 方法直接指定遠端數據庫所在位置恰恰解決了這一問題,方法如下 :

< %
connstr = "DBQ="+server.mappath("database/source.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
%>


   在指定了想要連接的數據庫后,就可以通過以下方法連接并打開數據庫 :

< %
Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open constr
%>



  第二步 : 指定想要執行的 SQL 指令,可以使用 RecordSet。

  當連接了數據庫后就可以對數據庫進行操作,比如查詢、刪除、更新等等,這些操作都是通過 SQL 指令來完成的,如下例在數據庫表 datebase 中查詢所有姓名中有“A”的記錄 :

< %
sql="select * from datebase where name like 'A%%'"
Set rs = Conn.Execute(sql)
%>



  盡管 Connection 對象簡化了連接數據庫和查詢任務,但 Connection 對象仍有許多不足。確切地說,檢索和顯示數據庫信息的 Connection 對象不能用于創建腳本,您必須確切知道要對數據庫作出的更改,然后才能使用查詢實現更改。對于檢索數據、檢查結果、更改數據庫, ADO 提供了 Recordset 對象。正如它的名稱所暗示的那樣, Recordset 對象有許多您可以使用的特性,根據您的查詢限制,檢索并且顯示一組數據庫行,即記錄。 Recordset 對象保持查詢返回的記錄的位置,允許您一次一項逐步掃描結果。根據 Recordset 對象的指針類型屬性設置,您可以滾動和更新記錄。數據庫指針可以讓您在一組記錄中定位到特定的項。指針還用于檢索和檢查記錄,然后在這些記錄的基礎上執行操作。 Recordset 對象有一些屬性,可用于精確地控制指針的行為,提高您檢查和更新結果的能力。
   Recordset 的使用方法如下 :

   Set rs = Server.CreateObject("ADODB.Recordset")

   rs.Open SQL 指令 , Conn, 1, 1 ' 讀取

   或

   rs.Open SQL 指令 , Conn, 1, 3 ' 新增、修改、或刪除

  第三步 : 使用 RecordSet 屬性和方法,并顯示執行的結果。

  通過以上指令,我們創建了一個包含數據的游標 (RecordSet)“rs”,事實上游標是存儲在活動內存中的類似記錄和字段的數組的東西,當通過 RecordSet 組件創建一個游標時,它從數據提供者的得到一個數據集,并用它來充實游標,我們可以想象 ADO 產生的 RecordSet 是一個象電子表格的記錄,它有一行行的記錄,在任何時候都有一行是它的當前行,而 RecordSet 的字段是用 RecordSet 的 Field 集合表示的。下面列出了所創建的 RecordSet 對象 ( 游標 ) 的一些屬性和方法 :
   rs.Fields.Count: RecordSet 對象的字段總數。

   rs(i).Name: 第 i 個字段的名稱, i 由 0 算起到 rs.Fields.Count-1。

   rs(i): 讀取第 i 個字段的數據, i 由 0 算起到 rs.Fields.Count-1。

   rs(" 字段名稱 "): 讀取指定字段的數據。

   rs.RecordCount: 游標中的數據記錄總數。

   rs.EOF: 是否已指到最后一條記錄。

   rs.MoveNext: 將指標移到下一筆記錄。

   rs.MovePrev: 將指標移到上一筆記錄。

   rs.MoveFirst: 將指標移到第一筆記錄。

   rs.MoveLast: 將指標移到最后一筆記錄。

   rs.Close: 關閉 RecordSet 對象

   有關 ADO 的其他介紹,作者將在今后給大家詳細講解。

  二、 Content Linking 組件

  如果你的網站有一系列相互關聯的頁面的話, Content Linking 組件將非常適合你的需求,它非但可以使你在這些頁面中建立一個目錄表,而且還可以在它們中間建立動態連接,并自動生成和更新目錄表及先前和后續的 Web 頁的導航鏈接。這對于列出聯機報刊、電子讀物網站以及論壇郵件是十分理想的選擇。

  Content Linking 組件創建管理 URL 列表的 Nextlink 對象,要使用 Content Linking 組件,必須需要先創建 Content Linking List 文件。 Content Linking 組件正是通過讀取這個文件來獲得處理我們希望鏈接的所有頁面的信息。事實上該文件是一個純文本文件,其內容如下 :
page1.htm one
page2.htm two
page3.htm three
page4.htm four
page5.htm five
page6.htm six


   這個文本文件的每行有如下形式 :

   url description comment

  其中, URL 是與頁面相關的超鏈地址, description 提供了能被超鏈使用的文本信息, comment 則包含了不被 Content Linking 組件解釋的注釋信息,它的作用如同程序中的注釋。 description 和 comment 參數是可選的。

   下面我們來看看如何具體使用 Content Linking 組件 :

< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title> 網絡電子讀物寶藏 < /title>
< /head>
< body>
< p> 網絡電子讀物導航
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%>
< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>
< % Next %>
< /body>
< /html>


   在以上代碼中,我們先用 GetListCount 方法確定在文件 nextlink.txt 中有多少條項目,然后利用循環語句,并使用 GetNthURL、 GetNthDescription 方法逐一將存儲在 nextlink.txt 文件中的內容讀出并顯示給客戶端瀏覽器。

   下面列出了 Content Linking 組件所有可使用的方法 GetListCount(file) 統計內容鏈接列表文件中鏈接的項目數。

   GetNextURL(file) 獲取內容鏈接列表文件中所列的下一頁的 URL。

   GetPreviousDescription(file) 獲取內容鏈接列表文件中所列的上一頁的說明行。

   GetListIndex(file) 獲取內容鏈接列表文件中當前頁的索引。

   GetNthDescription(file,index) 獲取內容鏈接列表文件中所列的第 N 頁的說明。

   GetPreviousUR(file) 獲取內容鏈接列表文件中所列的上一頁的 URL。

   GetNextDescription(file) 獲取內容鏈接列表文件中所列的下一頁的說明。

   GetNthURL(file,index) 獲取內容鏈接列表文件中所列的第 N 頁的說明。

  在我們創建了網站的總導航頁面后,我們當然還希望在每一頁中添加一個“上一頁”、“下一頁”的導航超鏈,下面我們就來看看如何實現導航超鏈。

  由于考慮到你的網站可能包含了上千或更多的頁面,所以我們不可能在每一個頁面中都編寫實現導航超鏈的 ASP 代碼。因此,我們必須利用前幾篇中所學到的服務器端包容 SSI,這樣就避免了大量的重復作業,請看下例 :
   < !--#include file="nextprev.inc"-->

   只要將這端代碼放在每個頁面中即可。 nextprev.inc 文件的內容如下 :

< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
current = link.GetListIndex("nextlink.txt")
If current > 1 Then
%>
< a href="< %= Link.GetPreviousURL("nextlink.txt") %>"> 上一頁 < /a>
< %
End If
If current < count Then
%>
< a href="< %= Link.GetNextURL("nextlink.txt") %>"> 下一頁 < /a>
< % End If %>

  今天的學習又到此結束了,在這里我要再次感謝所有關心我的文章的朋友們,你們的來信給了我很大的鼓舞,不過請大家不要再稱我為“老師”,其實我也和你們一樣是在不斷的學習和摸索中,有問題我們可以一起探討,我的文章中肯定還存在很多不足或漏洞,也希望大家發現后能及時向我提出。由于近來 ASP 已經在國內的網站中廣泛運用起來,所以應朋友們的要求,在國內 ASP 高手飛鳥的熱情幫助下,我決定寫一些 ASP 應用實例作為現在這篇文章的姊妹篇,這樣也就可以為大家提供一些真正實用的東西了,敬請關注。



原文轉自:http://www.anti-gravitydesign.com

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97