带有继承的经典 ASP 类属性

Question

我真的很想知道为什么这对我不起作用。我有两个类

class Order

    private Test_1
    private oCustomer

    public property get Test() Test= Test_1 end property
    public property let Test( value ) Test_1 = value end property


  public property get Customer()

    if ( NOT isObject( oCustomer ) ) then

        set oCustomer = new OrderCustomer

    end if

    set Customer = oCustomer

  end property

end class


class OrderCustomer

    private FirstName_1

    public property get FirstName() FirstName = FirstName_1 end property
    public property let FirstName( value ) FirstName_1 = value end property

end class

当我调用以下代码时，我在注释中得到结果

set oOrder = new Order

    oOrder.Test = "Hi"
    response.write oOrder.Test()    'writes out "HI"

    oOrder.Customer.FirstName = "Fred"    'does actually set it to this value, I am able to response.write out FirstName_1 after it is set in let
    response.write oOrder.Customer.FirstName() 'writes out nothing

set oOrder = nothing

我在这里缺少什么？我很确定我在之前的项目中做到了这一点。

Answer 1

问题是，每次访问 Customer 属性时，它都会创建一个新的

建议解决方案（未测试）：

  private _Customer
  public property get Customer()
    if _Customer is nothing then
       set _Customer = new OrderCustomer
    end if
    set Customer = _Customer
  end property

Answer 2

酒店总是会接待新顾客。您应该将订单更改为类似的内容，

class Order

    private m_Customer

    private sub Class_Initialize()
        set m_Customer = new Customer
    end sub

    public property get Customer()

        set Customer = m_Customer

    end property

end class

这将在创建订单时创建一个新的客户对象。

此外，这里发生的事情实际上并不是继承。客户只是订单的财产。