[classic asp] 클래스에서 개체 배열로 만들기

'------------------------------------------------
'회원가족 속성
Class FamilyList

    Private m_FamilyName

    Public Property Get FamilyName()
        FamilyName = m_FamilyName
    End Property

    Public Property Let FamilyName(value)
        m_FamilyName = value
    End Property
End Class
'------------------------------------------------
Class Member

    Private m_MemberID
    Private m_FamilyList 

    Public Property Get MemberID()
        MemberID = m_MemberID
    End Property

    Public Property Let MemberID(value)
        m_MemberID = value
    End Property

    Public Property Get Familys()
         Familys = m_FamilyList
    End Property

    ' must use Set for objects
    Public Property Set Familys(value)
        Set m_FamilyList = value
    End Property

    Private Sub Class_Initialize
        m_FamilyList = Array()
    End Sub

Private Sub Class_Terminate()
Set m_FamilyList = Nothing
End Sub

'가족추가
Public Sub AddFimily(NewValue)
        ReDim Preserve m_FamilyList(UBound(m_FamilyList) + 1)
        set m_FamilyList(UBound(m_FamilyList)) = NewValue
    End Sub

End Class
'------------------------------------------------


Dim clsFamilyList

Set clsFamilyList = New FamilyList
clsFamilyList.FamilyName = "KIM"

Dim clsMember
Set clsMember = New Member
clsMember.AddFimily(clsFamilyList)


Set clsFamilyList = New FamilyList
clsFamilyList.FamilyName = "PARK"

clsMember.AddFimily(clsFamilyList)

clsMember.MemberID = "user1"

Response.Write clsMember.MemberID & "<br />"

For each Familyobj in clsMember.Familys
Response.write Familyobj.FamilyName & "<br>"
Next

Set clsMember = Nothing