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 感謝作者的辛勤勞動，東西太好了，就是網站訪問太慢了
您可能感興趣的文章:- VB6中的LSet語句和RSet語句詳解
- VB6反編譯軟件VB RezQV2.4a 正式版注冊碼
- 讀取Access數據庫的vbscript代碼打包下載
- ACCESS的參數化查詢,附VBSCRIPT(ASP)和C#(ASP.NET)函數
- VB的TextBox文本框實現垂直居中顯示的方法
- VB實現屏蔽文本框右鍵菜單的復制、粘貼等功能的方法
- VB讀取線程、句柄及寫入內存的API代碼實例
- VB實現的倒計時類代碼詳解
- VB調用Word拼寫檢查功能實例
- VB6實現連接Access數據庫的ADODB代碼實現方法
