ASP呼叫dll及封裝dll實例，封裝為dll可提供運作效率，加密程式碼。開啟VB6，新建ActiveX DLL
2、在工程引用中加入Microsoft Active Server Pages Object Library選擇
3.填加代碼如下：
複製代碼代碼如下:
'Code Start
'聲明部分
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
'下面定義公用函數（在VB中存取ASP對象，即在VB中可以用MyApplication等同於ASP中的Application、MyRequest等同於ASP中的Request、 MyResponse等同於ASP中的Response、 MyServer等同於ASP中的Server 、 MySession等同於ASP中的Session 使用）
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
'建立自訂函數SayHello
Public Sub SayHello()
MyResponse.Write (Hello World)
End Sub
'Code End
4.將類別名稱改為：HelloWorld 將工程名稱改為：TestVBCode
5、產生TestVBCode.DLL文件，並使用Windows執行註冊元件指令Regsvr32 路徑/TestVBCode.DLL註冊後即可使用。 （卸載元件指令為Regsvr32 /u 路徑/TestVBCode.DLL）
6.建立Test.asp文件，程式碼如下
複製代碼代碼如下:
<%
'VB自建函數呼叫格式
'Set 物件名稱=Server.CreateObject(工程名稱.類別名稱)
'物件名.自建函數名
Set MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHello
%>
7.運行Test.asp檔結果顯示如下：
Hello World
==================================================== =========
對於更複雜的運用,大家可以透過這個實例向外擴展就可以了.
如:
複製代碼代碼如下:
Public Sub connstr2()
Set conn = MyServer.CreateObject(ADODB.Connection)
conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Set rs = conn.Execute(select * from news)
Do While Not rs.EOF
MyResponse.Write (rs(news_title) & <br>)
rs.MoveNext
Loop
rs.Close
Set conn = Nothing
End Sub
這是用資料庫連線的程式碼封裝,當然這裡要加入ADO引用的.