由本人第一次嘗試制作的錄像視頻教程，由于電腦速度較慢，播放時間較慢，請諒解。

本錄像講解最基礎(chǔ)的VB封裝ASP代碼生成DLL的制作教程，適合初級學習者參考。也是本人學習VB制作ASP組件的第一個嘗試，錄像基本成功。

用vb編寫asp組件(dll)示例

下面,將演示如何使用vb制作asp的dll組件...

1. 啟動你的vb,選擇activex dll圖標,然后在點擊菜單的工程>>引用,接
著在彈出的"引用"窗口從中選擇
microsoft active server pages object library.

2. 給工程和類重命名,在asp中調(diào)用時,就全靠它了^_^!我們的工程名改
為aspdll,類名為demo.在asp中調(diào)用的方法是:
set objreference = server.createobject("工程名.類名")
本例調(diào)用的相應(yīng)代碼如下:
set objreference = server.createobject("aspdll.demo")
調(diào)用的方法和一般常見的,比如fso等組件的方法一模一樣.
心動了吧,呵呵,下面我們繼續(xù)....

3. 接著,我們開始編寫代碼,打開我們剛才新建工程類窗口,第一步,先聲
明我們要用到的變量.主要是在vb聲明替代asp幾大對象的變量名,定義這
asp的幾大對象后,我們就可以像在asp環(huán)境中調(diào)用類似request,server等
這樣的幾大對象了.(聲明的變量名完全可以和asp對象名一樣)代碼如下:

'**********************************************
private mys criptingcontext as s criptingcontext
private myapplication as application
private myrequest as request
private myresponse as response
private myserver as server
private mysession as session
'**********************************************

4. 聲明完變量后,我們必須在類中寫onstartpage子函數(shù).本函數(shù)的作用是
當用戶訪問一個帶有本組件的asp文件時,iis就會把s criptingcontext傳
送給我們vb組件對象.這個s criptingcontext包括了全部的asp方法和屬性
.這樣,就使得我們有能力訪問所有asp的對象.代碼如下:

'*****************************************************************
public sub onstartpage(passeds criptingcontext as s criptingcontext)
set mys criptingcontext = passeds criptingcontext
set myapplication = mys criptingcontext.application
set myrequest = mys criptingcontext.request
set myresponse = mys criptingcontext.response
set myserver = mys criptingcontext.server
set mysession = mys criptingcontext.session
end sub
'*****************************************************************

通過上面的函數(shù),我們在asp中調(diào)用本組件后,上面的幾大對象就完全可以
像平時我們在asp使用一樣了,舉個例子:

在asp中實現(xiàn)接收提交的表單值并輸出屏幕:

<%
formvalue=request.form("username")
response.write ("你提交的用戶名是"&myformvalue&",歡迎您!")
%>

在vb中實現(xiàn)方法是:

formvalue=myrequest.form("username")
myresponse.write ("你提交的用戶名是"&myformvalue&",歡迎您!")

5. 相對應(yīng)于onstartpage函數(shù),我們還要編寫一個關(guān)閉onstartpage中對象
的onendpage函數(shù),代碼如下:

'*********************************
public sub onendpage()
set mys criptingcontext = nothing
set myapplication = nothing
set myrequest = nothing
set myresponse = nothing
set myserver = nothing
set mysession = nothing
end sub
'********************************

6.通過編寫上面的代碼,我們在vb中編寫asp組件實例的環(huán)境已經(jīng)具備了,
下面,我就嘗試寫兩個與asp中基本相類似的函數(shù),也就是說,關(guān)鍵部位就在
這里了,你完全可以把你所有的asp源碼封裝在這里...

先寫個最簡單的輸出屏幕信息函數(shù):
'********************************************
public sub welcomeinfo()
myresponse.write ("阿里西西_web開發(fā),歡迎訪www.alixixi.com!")
end sub
'********************************************

再寫個帶參數(shù)傳遞及顯示now()現(xiàn)在時間的函數(shù):
'**********************************
public sub setinfo(content as string)
myresponse.write content & "<br>"
myresponse.write "現(xiàn)在的時間是:" & now()
end sub
'**********************************

通過上面的asp代碼實例,你會發(fā)現(xiàn)其實這和asp源碼基本沒有區(qū)別^_^

7. 好了,整個類就編寫完了,我們開始打包封裝成dll.我們先保存工程,
這里我們保存到e:\vbdll,接著選擇菜單上的文件>>生成aspdll.dll,很
快的dll組件就封裝并生成完畢了.

8. 生成dll文件后,我們開始調(diào)試和使用.在系統(tǒng)運行欄輸入cmd,進入dos
命令行狀態(tài),我們要注冊剛才生成的dll組件,注冊方法是可以直接輸入
regsvr32 e:\vbdll\aspdll.dll ,為了安裝方便,你同時可以寫個批處理
文件,這里不一一舉例了...好,注冊成功!

9.注冊完dll組件后,我們針對剛才的組件,按照上面介紹過的方法編寫一
個asp文件來調(diào)試.代碼如下:

<%
set redll = server.createobject("aspdll.demo")
redll.welcomeinfo
response.write "<hr />"
redll.setinfo("傳遞參數(shù)到服務(wù)器組件,并返回值及當前日期now()!")
response.write "<hr />"
set redll = nothing
%>
在iis中打開此文件,屏幕顯示:

阿里西西_web開發(fā),歡迎訪www.alixixi.com!
------------------------------------------------------------
傳遞參數(shù)到服務(wù)器組件,并返回值及當前日期now()!
現(xiàn)在的時間是:xxxx-xx-xx-xx:xx:xx