”，在找到“Microsoft Active Server Pages Object Library”后，请在前面的空格中单击，加入成为引用的项目。

在Windows NT 4.0或Windows 98操作平台上，再增加“Microsoft Transaction Server Type Library”的引用。将新增“引用”之后的工程另存为“EX12-2”。

 

2. Windows me或Windows 2000

对于Windows 2000操作平台，ASP所引用的项目未变，改的只是Microsoft Transaction Server的部分。由于在Windows 2000环境中，Microsoft Transaction Server被并入成为“COM+”的组件。因此，当用Windows 2000做为开发MTS组件的平台时，如要达到这项功能则必须引用“COM+ Services Type Library”。

范例程序：EX12-3

同样以范例“EX12-1”所创建的工程为基础，开始在 Windows Me/2000操作平台上设置新的引用。在设置引用完成之后，将范例“EX12-1”另存为“EX12-3”。开始与“Windows NT 4.0 IIS & Windows 98 PWS”的操作相同，打开菜单“工程”中的“引用”选项。

范例说明

在Visual Basic中设置新增“引用”为“Microsoft Active Server Pages Object Library”。在Visual Basic中设置新增“引用”为 “COM+ Services Type Library”。

（1）将垂直滚动条向下移并找到“Microsoft Active Server Pages Object Library”，并选中“Microsoft Active Server Pages Object Library”，加入成为引用。

（2）找到“COM+ Services Type Library”并选中，成为可用的引用。

（3）将新增引用之后的工程另存为“EX12-3.vbp”。

 

12-2-3　如何设计ActiveX DLL的内容

完成了上一节两种不同操作系统中“Microsoft Active Server Pages Object Library”、与MTS有关的函数库的加入工作后，接下来的编译方法是完全相同的。接下来将详细说明如何使用MTS函数库和ASP函数库，在本节中还会为读者示范如何将自制的“ActiveX DLL”加入MTS中，供ASP程序调用。

1. 为程序加入MTS对象和ASP对象

在使用自制的ActiveX DLL组件之前，必须为这个程序加入一些命令，这样在编辑之后的ActiveX DLL才会有响应。以下是范例“EX12-4”的说明。

范例程序：EX12-4

笔者以已经加入“Microsoft Active Server Pages Object Library”和“MTS 组件”的范例为基础（范例用“EX12-2”或“EX12-3”，完全视读者目前所使用的操作系统而定），这里以“EX12-3”为基础，在这个工程中分别加入“ASP 函数库”的控制命令及MTS的控制命令。

范例说明

·         在本范例程序的对象类别模块中，定义ASP的对象。

·         在本范例程序中，定义起始模块的子程序。

·         在起始模块的子程序中，设置调用已经定义的ASP函数库。

（1）在范例“EX12-3”名为Class1的模块内，定义所使用的ASP对象。

01.  Option Explicit

02.  Dim m_Response As Response

03.  Dim m_Request As Request

04.  Dim m_Server As Server

05.  Dim m_Application As Application

06.  Dim m_Session As Session

程序说明

第02行：定义m_Response的对象类型为ASP的Response对象。

第03行：定义m_Request的对象类型为ASP的Request对象。

第04行：定义m_Server的对象类型为ASP的Server对象。

第05行：定义m_Application的对象类型为ASP的Application对象。

第06行：定义m_Session的对象类型为ASP的Session对象。

（2）在范例“EX12-3”名为Class1的对象类别模块中，加入对象模块类别的起始子程序。

01.  Private Sub Class_Initialize()

02.  Dim objContext As ObjectContext

03.  Set objContext = GetObjectContext()

04.  Set m_Response = objContext("Response")

05.  Set m_Request = objContext("Request")

06.  Set m_Server = objContext("Server")

07.  Set m_Application = objContext("Application")

08.  Set m_Session = objContext("Session")

09.  End Sub

程序说明

第01行：定义名为“Class_Initial”的子程序，其作用是当此对象类别模块被调用时，能自行定义所有与ASP对象的关联性。

第02行：定义objContext对象的类型为MTS的ObjectContext。

第

上一页  [1] [2] [3] [4] [5] [6]  下一页