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

下列示例在默认网站应用程序 (W3SVC/1/ROOT) 上启用分区。请注意，只要设置了 AspEnableTracker 属性，AspAppServiceFlags 属性就发生改变。　　
5 i. h  s4 y; l) J, c5 o
/ O8 k3 O6 l9 L% u! p' {4 p　　On Error Resume Next $ H% P: r: ]* K

9 p% ^+ f6 K1 b　　set providerObj = GetObject("winmgmts://MyMachine/root/MicrosoftIISv2")
1 S- j7 z  u8 N$ ~
4 }# x: f; @0 `1 S! i　　' 获得对名为“默认网站”的 ASP 应用程序的引用
! R& M2 ?4 S7 x, @/ A  E0 r
% f! g4 ~! v4 F# h1 m0 Q& e0 E　　set IIsWebVirtualDirSettingObj = providerObj.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'")
. b* Z- q. Y& h+ U1 V% O- g* ]2 j( R8 y% r) u; J- j
　　WScript.Echo "Before: AspUsePartition = "  IIsWebVirtualDirSettingObj.AspUsePartition ( a" {% W5 c$ v
8 Q! W' a+ I5 f) J
　　WScript.Echo " AspPartitionID = "  IIsWebVirtualDirSettingObj.AspPartitionID 3 C: t9 s' q( [

: L" s% [. y4 z7 D　　WScript.Echo " AspAppServiceFlags = "  IIsWebVirtualDirSettingObj.AspAppServiceFlags # V$ p! M( p8 a+ R6 m/ ?

6 T4 v. X/ Q$ ^: T　　' 设置 ASP 应用程序以启用 COM  分区
5 Y/ @. B4 N( ~# i( G8 U! Z5 L$ B, Y8 e* \
　　IIsWebVirtualDirSettingObj.AspUsePartition = 1 8 B( M; z% E9 X9 k! U) ^

% L" {& r- Y2 U4 n& U　　' 将 AspPartitionID 属性设置为在组件服务管理器中配置的 GUID
* I0 n0 Y3 `3 q1 L' R6 d, M- l, P" ^7 _: @) t' \7 }  {2 O
　　' 当您创建 COM  分区时 6 z% x; Y8 Y; A3 G" n# k. ]( ~

+ ~% ~6 c# E4 E. t　　IIsWebVirtualDirSettingObj.AspPartitionID = "{00000000-0000-0000-0000-000000000000}"
. _8 N: j9 U1 n4 f; A: {7 S0 v, s/ e/ ]7 u7 l3 c
　　' 将值保存到 IIS 配置数据库中
6 }# n. v9 A  ], S  D' [7 I, f* d( L9 K9 |4 ^
　　IIsWebVirtualDirSettingObj.Put_() 4 N9 [+ n4 G8 F7 V

2 |  U" w( i0 B; B3 d5 q0 h　　' 再次获得引用以刷新 AspAppServiceFlags 属性。 # J) t% \4 h0 }, O. f7 I2 [# z+ B
" g. c3 o1 R5 t) M8 n
　　set IIsWebVirtualDirSettingObj = Nothing * a! ?( ?, J3 G+ R+ H. [6 D& s
4 }% R  y" ^; K' k! @  V" ]: \
　　set IIsWebVirtualDirSettingObj = providerObj.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'")
3 o- n7 _, a2 e
" r, t* H: [0 ?$ f  F8 h　　WScript.Echo "After: AspUsePartition = "  IIsWebVirtualDirSettingObj.AspUsePartition
7 [- }6 @% e4 ~% @" ?  p4 y3 |
; @) [5 H$ n( `2 u; }　　WScript.Echo " AspPartitionID = "  IIsWebVirtualDirSettingObj.AspPartitionID - Z) J% v. w3 W: ^4 _
  d9 H6 N8 h: @+ |2 n( t+ Y
　　WScript.Echo " AspAppServiceFlags = "  IIsWebVirtualDirSettingObj.AspAppServiceFlags 4 e$ G, D2 ~7 V- W

5 |6 F! o$ ]5 }5 d* R　　跟踪程序：
; H4 F, q% O) y4 j5 h6 R1 o4 \( z# c! l
　　COM  跟踪程序允许管理员或开发人员调试 ASP 应用程序。例如，如果 Web 应用程序在服务器上产生问题，则可以启用 COM  跟踪程序，以便确定 ASP 页在何时加载、COM 组件在何时加载以及线程何时离开网页。在调试应用程序之后，可禁用 COM  跟踪程序，使应用程序返回到正常的执行速度。
8 q0 `+ I3 M) S0 j/ l; L9 E. N1 \. G* O3 [8 U1 Q. [
　　要在 IIS 端上启用 COM  跟踪程序，请在应用程序级别中设置 AspAppServiceFlags 配置数据库属性的 AspEnableTracker 标志。