我們以計數器為例：
先看global.asa檔案，這個比較簡單
然後開啟vb6,新建activex dll工程。工程名修改為fcom,類名修改為fz2
引用「microsoft active server pages object」物件庫。
建立兩個元件事件：onstartpage以及onendpage
在事件onstartpage中建立類scriptingcontent的乙個引用。
例項化類scriptingcontent。
**如下：
option explicit
'物件的宣告
dim myresponse as response
dim myrequest as request
dim myserver as server
dim mysession as session
'當元件被建立的時候會觸發這個事件
public sub onstartpage(myscriptingcontent as scriptingcontext)
'進行物件的例項化
set myresponse = myscriptingcontent.response
set myrequest = myscriptingcontent.request
set myserver = myscriptingcontent.server
set mysession = myscriptingcontent.session
end sub
'當元件被銷毀的時候觸發這個事件
public sub onendpage()
'銷毀物件
set myresponse = nothing
set myrequest = nothing
set myserver = nothing
set mysession = nothing
end sub
『可以看到，把以前asp中寫的搬到了vb中，寫法是一樣的
public sub showcounter()
dim intcounter as long
intcounter = intcounter + 1
myresponse.write cstr(intcounter)
end sub測試
開啟visual interdev6.0,生成乙個asp檔案
<%@ language=vbscript %>
dim obj
set obj=server.createobject("fcom.fz2")
obj.showcounter()
配置好虛擬目錄，需要將global.asa檔案放到根目錄下,在ie中執行此asp檔案，重新整理頁面，就可以看到乙個不斷變化的數字。
的用法就講到這裡。
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...