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

 

系列前言：

有人認(rèn)為ASP門檻低，是低級語言，但筆者要更正的是，這恰恰是一款好的通用語言所要具備的特征，但正因?yàn)槿腴T門檻低，也出現(xiàn)了不少不具備編程素養(yǎng)的初學(xué)者寫出了許多不忍直視的程序;

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

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

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

但ASP與PHP卻沒有和.NET有可比性，前者是優(yōu)秀的通用解釋型語言，能幫你處理90%應(yīng)用。后者則是框架類專業(yè)編譯型語言，打個可能不是很恰當(dāng)?shù)谋确?，美軍四代?zhàn)機(jī)F22與F35的搭配，而F35雖沒有F22高級，卻是大批量裝備。

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

筆者認(rèn)為適用性廣恰是ASP最大優(yōu)點(diǎn)之所在，因此相信在諸多領(lǐng)域?qū)⒌玫綇V泛應(yīng)用，經(jīng)過時間沉淀，做為猿一族，更應(yīng)客觀公正的看待這門語言，對于不足，ASP高手并沒有回避，而是加以創(chuàng)新改進(jìn)，小編將通過整理，以系列的形式來與大家分享，時光不老，ASP還在，讓ASP更完美！

 

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

1、新建DLL

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

2、將默認(rèn)工程、類重命名

工程重命名：工程-->工程1 屬性（此名稱對應(yīng)窗體內(nèi)工程項(xiàng)目名稱）-->在打開對話框中將工程名稱重命名為IsOK（當(dāng)DLL組件在系統(tǒng)中注冊后，在asp中默認(rèn)的調(diào)用方法是工程名.類名）-->確定

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

2個修改后如下圖

3、增加到引用asp

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

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沒有管理員權(quán)限運(yùn)行，右鍵使用管理員權(quán)限運(yùn)行vb6就可以了。

7、注冊dll

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

1iisreset/stop

2regsvr32/s IsOK.dll

3iisreset/start

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

1iisreset/stop

2regsvr32 /u /s IsOK.dll

3iisreset/start

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

8、asp中調(diào)用dll

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

<%

Dim IsOK

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

IsOK.hello()

%>

訪問test.asp結(jié)果會輸出：

讓ASP更完美系列！