您现在的位置： 
在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] 下一页
