Classes and collections in ASP?

[Noozer]

I've always had problems getting my head around using collections and
classes together. Separately, they seem like fairly simple subjects, but I'm
getting muddled up when trying to use them together.

Even trying to cobble together an example to post here with my question has
me confused.

Can someone toss together a simple example of how I'd create my classes and
collection?

What I was going to use was...

Class "cName" with properties of "First" and "Last"
Class "cMovie" with properties of "Title" and "Year"
Class "cActor" with properties of a "cName" and a collection of "cMovie"'s

So in my code I'd do...

<%

Dim Actor
Set Actor = New cActor

Actor.FirstName = "Pierce"
Actor.LastName = "Brosnan"
Actor.Movies.Add "Tomorrow Never Dies","1997"
Actor.Movies.Add "GoldenEye","1995"
Actor.Movies.Add "The World is Not Enough", "1999"

response.write "Actor: " & Actor.FirstName & " " & Actor.Lastname & "<br>"
response.write "Films: <br>"

Dim Film

for each Film in Actor.Movies
response.write Film.Title & " in " & Film.Year & " <br>"
next

%>

 

[Anthony Jones]

It's not actually possible to build collection classes that support For Each
in VBScript
In fact VBScript doesn't even have a standard Collection object like VB6,
the closest thing is the Scripting.Dictionary but that's an annoying object
to use.

The following is the probably the nearest you can get to it in script:-

<%
Option Explicit

Dim Actor
Dim Film
Dim i

Set Actor = New CActor

Actor.FirstName = "Pierce"
Actor.LastName = "Brosnan"
Actor.Movies.Add "Tomorrow Never Dies","1997"
Actor.Movies.Add "GoldenEye","1995"
Actor.Movies.Add "The World is Not Enough", "1999"

For i = 1 To Actor.Movies.Count
Set Film = Actor.Movies.Item(i)
Response.Write Film.Title & " in " & Film.Year & "<br />"
Next

Class CActor
Public FirstName
Public LastName
Private moMovies

Public Property Get Movies()
Set Movies = moMovies
End Property

Private Sub Class_Initialize()
Set moMovies = New CMovies
End Sub

End Class

Class CMovie
Public Title
Public Year
End Class

Class CMovies

Private maoMovie
Private mlCount

Private Sub Class_Initialize()
ReDim maoMovie(8)
End Sub

Public Function Add(rsTitle, rdatYear)
If UBound(maoMovie) = mlCount Then
ReDim Preserve maoMovie(mlCount * 2)
End If
mlCount = mlCount + 1
Set maoMovie(mlCount) = New CMovie
maoMovie(mlCount).Title = rsTitle
maoMovie(mlCount).Year = rdatYear
Set Add = maoMovie(mlCount)
End Function

Public Property Get Count()
Count = mlCount
End Property

Public Default Property Get Item(Index)
Set Item = maoMovie(Index)
End Property

End Class
%>

 

[Noozer]

Thanks for the excellent example!

Arrays work for me. Had me scratching my head for a minute at the "Set Add =
maoMovie(mlCount)" line in the Add function. Makes perfect sense now.

Thanks again!