首頁 > 開發者 > ASP

用VB編寫ActiveX DLL實現ASP編程

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！
ASP是目前一種廣為應用的用來快速構建動態WEB網站的程式設計語言，預設的內建開發語言是VBScript，由於ASP和微軟Windows系列作業系統的結合非常的好，使得ASP已經成為了NT開發平台上面進行WEB開發的慣用語言和環境。他有著簡單易學，方便快速開發的種種優點，但是他也有著致命的弱點，就是他是指令碼語言解釋執行的，速度會受到一定的影響，更為關鍵的是，使用ASP來開發完成一個項目之後，整個項目在交付客戶使用的時候，是會連帶所有的ASP指令碼原始碼的，也就無法將商業程式保密了，原始碼泄漏會給自己造成很大的損失，雖然微軟也相應的推出了用來加密ASP程式的軟體，但是有著諸多的限制，以及會降低程式啟動並執行速度和二次開發調試的難度，難道ASP做出來的項目就真的要暴露所有的原始碼嗎？ 

　　當然了，答案當然是否定的，因為世界上沒有絕對不可能的事情，接下來就跟隨我來看看如何利用VB的ActiveX DLL來實現將ASP程式封裝起來吧，也就是我們可以使用ActiveX DLL來完成所有ASP能完成的事情，而ActiveX DLL是編譯好的DLL檔案，別人是無法得知你的原始碼的，也就保證的自己的商業機密和核心技術，並且達到同樣的效果，使用完全封裝的ActiveX DLL會比完全適用ASP指令碼語言的執行速度要快很多，尤其是大運算量的時候跟為明顯！經過我們的具體測試，在操縱10000條資料庫記錄的時候，封裝成為ActiveX DLL的WEB應用程式比純ASP代碼的應用程式，速度上面要快大約21%左右，在目前國內過於緩慢的網路來講，速度就是一個WEB網站的很關鍵的一部分。並且採用了ActiveX DLL來開發WEB程式，要比單純使用ASP好得多，畢竟ASP只能使用VBScript來開發，無法享用VB大量的優點，而ActiveX DLL則可以充分利用VB裡面所有的特性。 

　　下面我們先來看看什麼是ActiveX DLL吧。ActiveX是微軟提出的廣泛應用於Windows系列的一種代碼封裝技術，提高了程式碼的可重用性，加快了程式項目的開發速度，一般被稱為“組件”。在VB6的整合式開發環境當中，我們可以看到一下幾種ActiveX項目： 

　　1、ActiveX EXE 

　　這是在“過程外”啟動並執行ActiveX/COM伺服器組件，也就是說他們啟動並執行過程和初始化組件的客戶機代碼不同。儘管可以用ASP訪問ActiveX EXE，但是不推薦改動IIS元庫，該庫允許所有的可執行檔由伺服器上啟動並執行指令碼代碼啟動。 

　　2、ActiveX OCXs 

　　這些特殊的組件把主應用程式顯示和操作組件所需的附加支援包含在GUI環境中。還可以把OCX組件放在網頁當中。但是，OCX是應用程式介面，不可以使用ASP來建立的。 

　　3、ActiveX文檔DLL和ActiveX文檔EXE 

　　Active文檔可以在OLE檔案箱應用程式中，例如IE或者Office Binder，顯示VB表單。但他們在ASP不能應用。 

　　4、ActiveX DLLs 

　　這些ActiveX/COM組件和初始化組件的客戶機在同一個進程中運行。而我們要討論的ActiveX DLL正是整個組件。一般微軟的附加組件和其他的一些第三方廠家提供的各種組件都是這種類型的ActiveX DLL，但是並不全是使用VB編寫的，同樣可以使用VC/JAVA等等語言來開發。 

　　探討完了什麼是ActiveX DLL，我們開始正式編寫我們自己的ActiveX DLL，以便來實現ASP中的同樣功能，眾所周知，ASP內建了Response、Request、Server、Session、Application五個對象，其實這五個內建對象正是IIS控制台初始化的五個ActiveX DLL組件，既然IIS可以初始化這五個組件用於ASP中，我們當然也可以直接在我們的ActiveX DLL中引用這些組件來實現我們的編程，也就是說我們可以在VB應用程式中通過引用這些組件來實現訪問ASP內建對象的功能。 

　　只要你安裝了PWS4或者IIS4以上的WEB伺服器，你就擁有了一個名稱叫做“Microsoft Active Server Pages Object”的物件程式庫，我們可以在VB的ActiveX DLL應用中引用這個物件程式庫，通過引用這個物件程式庫，我們就獲得了一個對象（類）：ScriptingContext，這個對象也正是我們整個文章探討的核心對象。物件程式庫內的關係如下： 

　　物件程式庫　　　　　　類　　　　　　　　類成員 

　　ASPTypeLibrary ScriptingContext Application 

　　　　　　　　　　　　　　　　　　　　Request 

　　　　　　　　　　　　　　　　　　　　Response 

　　　　　　　　　　　　　　　　　　　　Session 

　　　　　　　　　　　　　　　　　　　　Server 

　　通過上面的關係圖，我們就可以很容易理解類ScriptingContent。下面我們來看一個具體的例子吧： 

　　1、 使用VB6建立一個新的ActiveX DLL項目 

　　2、 引用“Microsoft Active Server Pages Object”物件程式庫。 

　　3、 建立兩個組件事件：OnStartPage以及OnEndPage 

　　4、 在事件OnStartPage中建立類ScriptingContent的一個引用。 

　　5、 執行個體化類ScriptingContent。 

　　Test.cls (類實現) 

　　'對象的聲明 

　　Dim rp as Response 

　　Dim rq as Request 

　　Dim ap as Application 

　　Dim sr as Server 

　　Dim sn as Session 

　　'當組件被建立的時候會觸發這個事件 

　　Public Sub OnStartPage(mysc as ScriptingContent) 

　　 '進行對象的執行個體化 

　　 set rp=mysc.Response 

　　 set rq=mysc.Request 

　　 set sr=mysc.Server 

　　 set ap=mysc.Application 

　　 set sn=mysc.Session 

　　 rp.write "<br>ActiveX DLL組件已經被建立了！<br>" 

　　End Sub 

　　'當組件被銷毀的時候觸發這個事件 

　　Public Sub OnEndPage() 

　　 Rp.write "<br>ActiveX DLL組件已經被銷毀！<br>" 

　　 '銷毀對象 

　　 Set rp=nothing 

　　 Set rq=nothing 

　　 Set sr=nothing 

　　 Set ap=nothing 

　　 Set sn=nothing 

　　End Sub 

　　'定義我們自己的一個組件方法 

　　Public Sub HelloWorld() 

　　 Rp.write "<H1>Hello,World!</H1>" 

　　End Sub 

　　這樣，我們就建立可以訪問ASP內建對象的ActiveX DLL了。我們命名這個組件項目為first，在VB中間編譯這項目成為一個DLL檔案first.dll，並且我們在系統中註冊這個DLL檔案。接下來，我們需要一個簡單的幾乎沒有什麼代碼的ASP程式來調用這個組件： 

　　test.asp 

　　<html> 

　　 <head> 

　　　　<title>測試ActiveX DLL</title> 

　　 </head> 

　　 <body> 

　　<% 

　　Dim testme 

　　'建立我們剛才編譯成功的組件，一旦建立這個組件，同時會在葉面輸出文字“ActiveX DLL組件已經被 

　　'建立了！” 

　　set testme=server.createobject("first.test") 

　　'調用組件的方法 

　　testme.HelloWorld 

　　'登出組件，在登出的同時，會自動在葉面顯示“ActiveX DLL組件已經被銷毀！” 

　　set testme=nothing 

　　%> 

　　 </body> 

　　</html> 

　　通過上面簡單的例子，我們可以看到使用ActiveX DLL同樣可以實現和ASP同樣的功能，並且帶來的代碼保密和程式運行更加高效的優點。ActiveX DLL和純ASP有著各自的優點和缺點，只要我們合理的運用這兩種技術，比如適當的將商業邏輯封裝在ActiveX DLL中，或者在需要保密的地方使用DLL封裝技術，一定可以編寫出高效快速的WEB應用程式。 


本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

熱門內容

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More