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

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

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

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

1. 啟動(dòng)你的vb,選擇activex dll圖標(biāo),然后在點(diǎn)擊菜單的工程>>引用,接
著在彈出的"引用"窗口從中選擇
microsoft active server pages object library.

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

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

'**********************************************
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ù)的作用是
當(dāng)用戶訪問一個(gè)帶有本組件的asp文件時(shí),iis就會(huì)把s criptingcontext傳
送給我們vb組件對(duì)象.這個(gè)s criptingcontext包括了全部的asp方法和屬性
.這樣,就使得我們有能力訪問所有asp的對(duì)象.代碼如下:

'*****************************************************************
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ù),我們?cè)赼sp中調(diào)用本組件后,上面的幾大對(duì)象就完全可以
像平時(shí)我們?cè)赼sp使用一樣了,舉個(gè)例子:

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

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

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

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

5. 相對(duì)應(yīng)于onstartpage函數(shù),我們還要編寫一個(gè)關(guān)閉onstartpage中對(duì)象
的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.通過編寫上面的代碼,我們?cè)趘b中編寫asp組件實(shí)例的環(huán)境已經(jīng)具備了,
下面,我就嘗試寫兩個(gè)與asp中基本相類似的函數(shù),也就是說(shuō),關(guān)鍵部位就在
這里了,你完全可以把你所有的asp源碼封裝在這里...

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

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

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

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

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

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

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

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