IIS6.0下ASP的新增功能（四）

下列示例在默认网站应用程序 (W3SVC/1/ROOT) 上启用分区。请注意，只要设置了 ASPEnableTracker 属性，ASPAppServiceFlags 属性就发生改变。　　

　　On Error Resume Next

　　set providerObj = GetObject("winmgmts://MyMachine/root/MicrosoftIISv2")

　　' 获得对名为“默认网站”的 ASP 应用程序的引用

　　set IIsWebVirtualDirSettingObj = providerObj.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'")

　　WScript.Echo "Before: ASPUsePartition = " & IIsWebVirtualDirSettingObj.ASPUsePartition

　　WScript.Echo " ASPPartitionID = " & IIsWebVirtualDirSettingObj.ASPPartitionID

　　WScript.Echo " ASPAppServiceFlags = " & IIsWebVirtualDirSettingObj.ASPAppServiceFlags

　　' 设置 ASP 应用程序以启用 COM+ 分区

　　IIsWebVirtualDirSettingObj.ASPUsePartition = 1

　　' 将 ASPPartitionID 属性设置为在组件服务管理器中配置的 GUID

　　' 当您创建 COM+ 分区时

　　IIsWebVirtualDirSettingObj.ASPPartitionID = "{00000000-0000-0000-0000-000000000000}"

　　' 将值保存到 IIS 配置数据库中

　　IIsWebVirtualDirSettingObj.Put_()

　　' 再次获得引用以刷新 ASPAppServiceFlags 属性。

　　set IIsWebVirtualDirSettingObj = Nothing

　　set IIsWebVirtualDirSettingObj = providerObj.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'")

　　WScript.Echo "After: ASPUsePartition = " & IIsWebVirtualDirSettingObj.ASPUsePartition

　　WScript.Echo " ASPPartitionID = " & IIsWebVirtualDirSettingObj.ASPPartitionID

　　WScript.Echo " ASPAppServiceFlags = " & IIsWebVirtualDirSettingObj.ASPAppServiceFlags

　　跟踪程序：

　　COM+ 跟踪程序允许管理员或开发人员调试 ASP 应用程序。例如，如果 Web 应用程序在服务器上产生问题，则可以启用 COM+ 跟踪程序，以便确定 ASP 页在何时加载、COM 组件在何时加载以及线程何时离开网页。在调试应用程序之后，可禁用 COM+ 跟踪程序，使应用程序返回到正常的执行速度。

　　要在 IIS 端上启用 COM+ 跟踪程序，请在应用程序级别中设置 ASPAppServiceFlags 配置数据库属性的 ASPEnableTracker 标志。