讓ASP更完美系列編譯封裝成DLL教程

 

系列前言：

有人認為ASP門檻低，是低級語言，但筆者要更正的是，這恰恰是一款好的通用語言所要具備的特征，但正因為入門門檻低，也出現了不少不具備編程素養的初學者寫出了許多不忍直視的程序;

有人認為PHP速度快，但真正入門者都知道ASP+MSSQL速度其實一點都不輸PHP，原因在于ASP+MSSQL支持過程存儲（請關注該系列的文章），

有人認為......跳出細節，橫觀ASP與PHP兩種語言，都屬于同一類別同一級別的語言，只是運行平臺不一樣，因此，只要是ASP做不到的，PHP也肯定做不了的。

對于同等級間的對比，兩者沒有好壞高低之分，只有素養駕馭能力之別。

但ASP與PHP卻沒有和.NET有可比性，前者是優秀的通用解釋型語言，能幫你處理90%應用。后者則是框架類專業編譯型語言，打個可能不是很恰當的比方，美軍四代戰機F22與F35的搭配，而F35雖沒有F22高級，卻是大批量裝備。

因此，對于不同等級間的對比，是沒有好壞卻有高低之分，此時工程適用性才是最大考量因素。

筆者認為適用性廣恰是ASP最大優點之所在，因此相信在諸多領域將得到廣泛應用，經過時間沉淀，做為猿一族，更應客觀公正的看待這門語言，對于不足，ASP高手并沒有回避，而是加以創新改進，小編將通過整理，以系列的形式來與大家分享，時光不老，ASP還在，讓ASP更完美！

 

對ASP熟悉的話,優點大家都明白，但缺陷卻是我們要去完善的，比如今天要講的代碼開源問題，只要開源就不能保證代碼的安全性，如果源代碼一旦泄露，后果將不堪設想。更重要的是影響了其商業化進程，在這里呢，向大家推薦一個辦法，就是用VB6.0將asp封裝dll文件.dll文件是比較安全的，而且運行速度比asp快那么一點。具體步驟如下：

1、新建DLL

打開VB6-->文件-->新建工程-->選擇ActiveX DLL-->打開

2、將默認工程、類重命名

工程重命名：工程-->工程1 屬性（此名稱對應窗體內工程項目名稱）-->在打開對話框中將工程名稱重命名為IsOK（當DLL組件在系統中注冊后，在asp中默認的調用方法是工程名.類名）-->確定

類重命名在屬性窗口中將名稱重命名為demo

2個修改后如下圖

3、增加到引用asp

點擊工程引用，然后選擇其中的Microsoft Active Server Pages Object Library，還有引用Microsoft VBscript Regular Expressions 5.5（RegExp正則表達式對象）

4、編寫代碼

01Option Explicit

02Private Context As scriptingContext

03Private Application As Application

04Private Response As Response

05Private Request As Request

06Private Session As Session

07Private Server As Server

08Public Sub OnStartPage(PassedscriptContext As scriptingContext)

09Set Context = PassedscriptContext

10Set Application = Context.Application

11Set Request = Context.Request

12Set Response = Context.Response

13Set Server = Context.Server

14Set Session = Context.Session

15End Sub

16

17Public Sub hello()

18Response.Write "讓ASP更完美系列！"

19End Sub

20

21Public Sub OnEndPage()

22Set Application = Nothing

23Set Request = Nothing

24Set Response = Nothing

25Set Server = Nothing

26Set Session = Nothing

27Set Context = Nothing

28End Sub

5、保存工程文件

6、編譯生成dll

如果沒有錯誤提示的話說明編譯成功，如果遇到訪問注冊表錯誤，是vb6沒有管理員權限運行，右鍵使用管理員權限運行vb6就可以了。

7、注冊dll

在IsOK.dll組件所在目錄創建注冊.bat批處理文件，輸入：

1iisreset/stop

2regsvr32/s IsOK.dll

3iisreset/start

卸載.bat批處理文件，輸入：

1iisreset/stop

2regsvr32 /u /s IsOK.dll

3iisreset/start

雙擊運行注冊.bat，成功注冊會提示：IsOK.dll 中的 Dll Register Server 成功。

8、asp中調用dll

新建test.asp文件，輸入代碼:

<%

Dim IsOK

Set IsOK=Server.createObject("IsOK.demo")

IsOK.hello()

%>

訪問test.asp結果會輸出：

讓ASP更完美系列！