我用 com+ event object 写了个asp组件,完成后发现当我用asp创建这个对象并设置它的一个属性值后,关闭它,再创建对象,这时我不设置任何值,直接读这个属性,结果这个属性值却仍是第一次创建时的值。请问,这是怎么回事? 我并不希望每个客户共享相同的属性值,这样会乱套的。。
ASP代码:
<%'---------------------------------------------
//第一次创建
Set X = Server.CreateObject("TT.Zip")
X.Timeout = 2
response.write X.Timeout  // 输出结果: 2
Set X = nothing
//第二次创建,不设置属性值,直接读
Set Y = Server.CreateObject("TT.Zip")
response.write Y.Timeout  // 输出结果: 2    (仍是2 !!!)
Set Y = nothing'----------------------------------------------%>
Delphi Com+ 代码:
------------------------------------------------
var
  Timeout: LongWord = 1000;    //全局变量function TZip.Get_Timeout: LongWord;
begin
  Result := Timeout;
end;procedure TZip.Set_Timeout(Value: LongWord);
begin
  Timeout := Value;
end;
------------------------------------------------