|
當IIS被請求執行一個ASP程序,它首先會在ASP文件中找到<%%>標籤之間的代碼,並且執行它(也可以是<scri ptrunat=server></script....>之間的代碼).如果這個ASP程序在先前被調用過,那麼它就會用內存中的編譯過的程序來向用戶返回HTML代碼,如果沒有,那麼它就重新編譯.這裏ASP就比CGI多一點速度優勢,因爲CGI 是每一個請求都使用一個線程.這樣就大大消耗了服務器的資源.
啓動你的VB,選擇ActiveX圖標.這個圖標可以在新建工程找到!VB會提供一個默認的工程名(project1)和類名( class1).我們會將這兩個名字都改掉.在改名之前,請首先確認我們擁有MicrosoftActiveServerPag esObjectLibrary,它在我們的程序非常有用.從菜單中選擇"工程",然後在其中選擇"引用",就會出現"引用"窗口從中選擇MicrosoftActiveServerPagesObjectLibrary.
給工程和類命名
現在我們來根據自己的愛好來爲project1和class1來命名吧!給它們命名也是很重要的,我們以後會用這個工程名和類名來創建這個組件的實例!後面詳細介紹.
如何改名,我就不想多說了!
我們的工程名改爲Exmaple,類名爲Helloword
怎樣使用工程和類
現在我們有了我們自己的工程(Example1)和類名(HelloWorld).以後我們就會在ASP代碼中使用它們的名字來引用這個組件.在ASP中我們就這樣引用,如下:
SetObjReference=Server.CreateObject("ProjectName.ClassName")
對於我們工程的引用就是:
SetObjReference=Server.CreateObject("Example1.HelloWorld")
現在我們就能用ObjReference來調用我們在組件中所創建的函數,子程序.下面我們會來寫一個SayHello的子程序 ,我們執行它的代碼如下:
![]()
〈%
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
helloworld.cls
--------------------------------------------------------------------------------------------------------------------------------------
Private Wenscript....ingContext As script....ingContext
Private WenApplication As Application
Private WenRequest As Request
Private WenResponse As Response
Private WenServer As Server
Private WenSession As Session
Public Sub OnStartPage(Passedscript....ingContext As script....ingContext)
Set Wenscript....ingContext = Passedscript....ingContext
Set WenApplication = Wenscript....ingContext.Application
Set WenRequest = Wenscript....ingContext.Request
Set WenResponse = Wenscript....ingContext.Response
Set WenServer = Wenscript....ingContext.Server
Set WenSession = Wenscript....ingContext.Session
End Sub
Public Sub OnEndPage()
Set Wenscript....ingContext = Nothing
Set WenApplication = Nothing
Set WenRequest = Nothing
Set WenResponse = Nothing
Set WenServer = Nothing
Set WenSession = Nothing
End Sub
Public function..hello()
WenResponse.Write ("HelloWorld")
End Function
----------------------------------------------------
asp頁面
<%
Dim aa
Set aa = Server.CreateObject("p1.c1")
aa.hello()
Set aa = Nothing
%>
|
