[classic asp] 클래스에서 object 배열에 담기

'------------------------------------------------------------------
'가족 속성
Class Family

    Private m_FamilyName
	Private m_FamilyAge

    Public Property Get FamilyName()
        FamilyName = m_FamilyName
    End Property

    Public Property Let FamilyName(value)
        m_FamilyName = value
    End Property

	Public Property Get FamilyAge()
        FamilyAge = m_FamilyAge
    End Property

    Public Property Let FamilyAge(value)
        m_FamilyAge = value
    End Property

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

Private m_MemberName
Private m_Family

Public Property Get MemberName()
	MemberName = m_MemberName
End Property

Private Sub Class_Terminate()
	Set arFamilyList = Nothing
End Sub

Public Sub MemberInfo(MemberNum)
	If MemberNum = "1" Then
		m_MemberName = "KIM"
	Else
		m_MemberName = "Lee"
	End If
End Sub

'회원가족
Public Function FamilyList()
	Dim i
	Dim arFamilyList()
	Dim arFamilyName, arFamilyAge
	arFamilyName = Array("Park","Choi")
	arFamilyAge = Array(20, 30)
	For i = 0 To Ubound(arFamilyName)
		ReDim Preserve arFamilyList(i)
		Dim clsFamily
		Set clsFamily = New Family
		clsFamily.FamilyName = arFamilyName(i)
		clsFamily.FamilyAge = arFamilyAge(i)
		Set arFamilyList(i) = clsFamily
		Set clsFamily = Nothing
	Next
	FamilyList = arFamilyList
End Function

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

Dim clsMember
Set clsMember = New Member
clsMember.MemberInfo "1"
Response.Write clsMember.MemberName & "<p>"

Dim arFamilyList
arFamilyList = clsMember.FamilyList()
For i = 0 To Ubound(arFamilyList)
	Response.Write arFamilyList(i).FamilyName & "<br>"
	Response.Write arFamilyList(i).FamilyAge & "<p>"
Next