Asp元件中級入門與精通系列之一

2021-09-05 18:44:17 字數 1805 閱讀 4904

初級教程寫了七篇了,肯定還有一些初級的東西需要寫,我會慢慢的進行補充

中級教程的內容:

這可能也是大家最關心的:如:資料庫的操作與封裝。asp內建物件的使用。這些部分我會花費較長的篇幅來說明,這一部分內容需要你能夠比較熟練的使用ado運算元據庫並且對asp的5大物件比較熟悉。

我們看一下網上比較流傳的一些資料:

只要你安裝了pws4或者iis4以上的web伺服器,你就擁有了乙個名稱叫做「microsoft active server pages object」的物件庫,我們可以在vb的activex dll應用中引用這個物件庫,通過引用這個物件庫,我們就獲得了乙個物件(類):scriptingcontext,這個物件也正是我們整個文章**的核心物件。物件庫內的關係如下:

物件庫      類        類成員

下面我們來看乙個具體的例子吧:

開啟vb6,新建activex dll工程。工程名修改為fcom,類名修改為fz1

引用「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

myresponse.write "activex dll元件已經被建立了!"

end sub

'當元件被銷毀的時候觸發這個事件

public sub onendpage()

myresponse.write "activex dll元件已經被銷毀!"

'銷毀物件

set myresponse = nothing

set myrequest = nothing

set myserver = nothing

set mysession = nothing

end sub

'定義我們自己的乙個元件方法

public sub helloworld()

myresponse.write "這是用asp內建物件寫的"

end sub測試

開啟visual interdev6.0,生成乙個asp檔案

<%@ language=vbscript %>

set obj=server.createobject("fcom.fz1")

call obj.helloworld()

配置好虛擬目錄,在ie中執行此asp檔案,得到結果如下:

activex dll元件已經被建立了!這是用asp內建物件寫的 activex dll元件已經被銷毀!

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...