ActiveX DLL

注：这个示例是用在 ASP 中的 DLL。

ActiveX DLL 文件是扩展名为 DLL 的链接库，可以象使用通用类型一样使用它。如：

MyDll = CreateObject("Myproject.MyClassname")

MyDll.Procedure()

MyDll.Function()

生成及使用此类 DLL 的方法如下：

  1. 新建工程，选 "ActiveX DLL"，工程名称为 "Myproject"；
  2. 添加类模块，模块名称为 "MyClassname"；
  3. 工程引用 "Microsoft Active Server Page Object Library"；
  4. 在模块中定义 OnStartPage(mysc As ScriptingContext) 构造过程和 OnEndPage() 析构过程；
  5. 在模块中定义变量、过程、函数等。
  6. 选文件菜单的 "生成 Myproject.dll" 文件。
  7. 用命令 "regsvr32 Myproject.dll" 进行注册。
  8. 在 ASP 页面使用 server.createobject("Myproject.MyClassname") 生成。

示例：

工程名称：Myproject，类名：MyClassname。

'' 对象的声明

Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session


''当组件被创建的时候会触发这个事件

Public Sub OnStartPage(mysc As ScriptingContext)

   ''进行对象的实例化
   Set rp = mysc.Response
   Set rq = mysc.Request
   Set sr = mysc.Server
   Set ap = mysc.Application
   Set sn = mysc.Session
   rp.Write "<br>ActiveX DLL组件已经被创建了！OK<br>"
End Sub


''当组件被销毁的时候触发这个事件

Public Sub OnEndPage()
   rp.Write "<br>ActiveX DLL组件已经被销毁！OK<br>"
   ''销毁对象
   Set rp = Nothing
   Set rq = Nothing
   Set sr = Nothing
   Set ap = Nothing
   Set sn = Nothing
End Sub


''定义我们自己的一个组件方法

Public Sub HelloWorld()
   rp.Write "<H1>Hello,World!</H1>"
End Sub

　

''定义一个属性, FilesCount

Public Property Get FilesCount() As Integer
   FilesCount = 123
End Property

　

''定义一个有下标的属性 value

Public Property Get value(arglist) As String
   value = Item(keys(arglist))
End Property