使用ASP的對(duì)象

　　我們的變量現(xiàn)在就能像標(biāo)準(zhǔn)的ASP對(duì)象來使用了!比如,我們經(jīng)常在ASP中用Request.form()來收集提交表單的數(shù)據(jù).現(xiàn)在我們?cè)谖覀兊腣B中實(shí)現(xiàn)這個(gè)功能,代碼如下:

用ASP中實(shí)現(xiàn):

在VB中實(shí)現(xiàn):

MyTempVariable = MyRequest.Form("userName")
MyResponse.Write ("you entered "& MyTempVariable & "as your user name")


　　通過使用MyResponse來代替Response,我們能夠使用所有Response的方法,當(dāng)然,MyResponse這個(gè)名字可以隨便來取,你甚至可以就取Response.
另一件我們得注意的是,我們得在我們的建立的類中,寫上OnEndPage子函數(shù),這個(gè)OnStartPage是相反的!OnStartPage是創(chuàng)建對(duì)象,OnEndPage是消毀對(duì)象.


Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub


SayHello方法

　　我們來建立一個(gè)子函數(shù),用于顯示"Holle World".這個(gè)SayHello方法只是HelloWorld這個(gè)類中一個(gè)子函數(shù),我們以后會(huì)在ASP中用以下的顯示這個(gè)方法

SayHello的程序,很簡(jiǎn)單的!


Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub


　　現(xiàn)在一個(gè)小型的組件編寫完成,剩下的工作就是編譯這個(gè)組件,在"工程"菜單中保存它,取什么名字都可以,我們用Exmaple1.vbp吧! 然后就用在菜單中選擇"make exmaple1.dll",將其編譯成DLL文件.一個(gè)組件就真正完成了!

　　注意,編譯了此組件那么你就得先把你的PWS關(guān)掉,然后再編譯此組件.否則VB就會(huì)告訴你些組件在使用中.

在ASP中使用我們的自己的組件.

　　當(dāng)你更正了在編譯中的錯(cuò)誤,成功地編譯了example1這個(gè)工程,現(xiàn)在你就得拿出你最喜歡的HTML編輯器來寫下下面的語(yǔ)句,保存為ASP文件.

運(yùn)行后即可看到結(jié)果:

Hello World

注冊(cè)組件

　　如果你想和你的朋友,鄰居分享你的組件,那么你就得在你的系統(tǒng)上注冊(cè)你的組件.我們一般使用Regsvr32.exe來注冊(cè)組件.注冊(cè)后你的組件會(huì)出現(xiàn)在Win95/Win98的windows/system目錄中.下面是一個(gè)注冊(cè)的例子:

Regsvr32.exe C:/wwwroot/Example1/Example1.dll

　　在你的系統(tǒng)中,VB會(huì)自動(dòng)給你注冊(cè),所以你很少用到Regsvr32.exe

　　我們這里只是寫了一個(gè)非常小的組件,你們可以寫好自己的更大的組件,而且還可以用VB中的很多控件.
　　讓我們用組件來擴(kuò)展我們的程序的功能吧!也希望多多的看到我們中國(guó)人的組件.