通過VB6將ASP編譯封裝成DLL組件最簡教程 附全部工程源檔案

1、建立DLL
開啟VB6-->檔案-->建立工程-->選擇ActiveX DLL-->確定

2、將預設工程、類重新命名
工程重新命名：工程-->工程1 屬性（此名稱對應表單內工程項目名稱）-->在開啟對話方塊中將“工程名稱”重新命名為ASP2DLL（當DLL組件在系統中註冊後，在asp中預設的調用方法是“工程名.類名”）-->確定

類重新命名在屬性視窗中將名稱重新命名為Demo

3、定義ASP基本對象
添加模組：工程-->添加模組-->選擇“模組”-->開啟

重新命名模組：工程資源管理員-->模組--Module1-->在屬性視窗中將Module1重新命名為“ASPMod”

添加模組代碼，此段代碼幾乎適用於所有使用vb封裝的asp DLL組件中，其中的ASP2DLL更改為工程名或者在調用時保持一致即可，代碼如下：複製代碼 代碼如下:Public objContext As ObjectContext
Public Application As ASPTypeLibrary.Application
Public Server As ASPTypeLibrary.Server
Public Session As ASPTypeLibrary.Session
Public Response As ASPTypeLibrary.Response
Public Request As ASPTypeLibrary.Request
Public Sub ASP2DLL_Initialize()
On Error Resume Next
Set objContext = GetObjectContext
Set Application = objContext.Item("Application")
Set Server = objContext.Item("Server")
Set Session = objContext.Item("Session")
Set Request = objContext.Item("Request")
Set Response = objContext.Item("Response")
End Sub
Public Sub ASP2DLL_Terminate()
On Error Resume Next
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Public Function Eval(ByRef strEval)
Dim EvalObject As New ScriptControl
EvalObject.Language = "VBScript"
Eval = EvalObject.Eval(strEval)
Set EvalObject = Nothing
End Function

4、儲存新建立的DLL
檔案-->儲存工程，一路確定下來，將模組、類別模組、工程檔案全部儲存在一個檔案夾下
5、類別模組中調用ASP對象
工程資源管理員-->類別模組-->雙擊Demo切換到Demo類別模組代碼編輯器，貼上代碼，初始化類調用及類銷毀，代碼如下： 複製代碼 代碼如下:Private Sub Class_Initialize()
ASP2DLL_Initialize
End Sub
Private Sub Class_Terminate()
ASP2DLL_Terminate
End Sub

至此，一個基本的DLL架構結束，下面可以根據自己需要去完善所需封裝的函數了。
6、新建立一個測試函數
在Demo類別模組下貼上以下兩段測試函數。 複製代碼 代碼如下:Public Sub hello()
Response.Write ("Hello World！")
Exit Sub
End Sub

7、編譯產生DLL
檔案-->產生ASP2DLL.dll-->選擇工程所在檔案夾確定，ok，至此如果沒有錯誤資訊提示的話，則證明dll組件已編譯成功。
8、註冊、卸載組件
在ASP2DLL.dll組件所在目錄建立
“註冊.bat”批次檔，輸入： 複製代碼 代碼如下:iisreset/stop
regsvr32/s ASP2DLL.dll
iisreset/start

“卸載.bat”批次檔，輸入： 複製代碼 代碼如下:iisreset/stop
regsvr32 /u /s ASP2DLL.dll
iisreset/start

雙擊運行註冊.bat，成功註冊會提示：“ASP2DLL.dll 中的 DllRegisterServer 成功。”

9、在ASP程式中調用剛封裝好的DLL組件及測試函數
步驟2中我們知道“當DLL組件在系統中註冊後，在asp中預設的調用方法是‘工程名.類名'”，因此，應這樣建立對象：set Obj = Server.CreateObject("工程名.類名") ，代碼如下： 複製代碼 代碼如下:<%
Dim ASP2DLL
Set ASP2DLL = Server.CreateObject("ASP2DLL.Demo")
ASP2DLL.hello()
Set ASP2DLL = Nothing
%>

10、包含工程檔案等相關所有內容打包下載連結（20110221更新下載連結） 打包下載

在編譯DLL時需要注意的幾點：
1、避免使用vb保留關鍵字作為函數或變數名；
2、正則、部分Vbscript函數如Eval需要載入“工程-->引用-->Microsoft Script Control 1.0”及“Microsoft VBScript Regular Expressions 5.5”；
3、封裝並不能帶來本質上的速度提升，虛擬機器主機、遠程伺服器需有組件註冊許可權；
4、對已經存在的組件名稱或者修改了dll檔案，必須先停止IIS，再重啟IIS註冊dll組件；
5、VB6 SP6精簡綠色版下載連結

原文來自:http://www.dlstu.cn/code/default.asp?cateID=20 感謝作者的辛勤勞動，東西太好了，就是網站訪問太慢了