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 标志。