ClassArrayList
Privateitems()
Privatesize

PrivateSubClass_Initialize
size=0
ReDimitems(1)
EndSub

PrivateSubClass_Terminate
items=null
EndSub

PublicFunctionAdd(ByValvalue)
If(size=Ubound(items))ThenEnsureCapacity((size+1))

items(size)=value
size=size+1
Add=size
EndFunction

PublicPropertyGetItem(index)
Item=items(index)
EndProperty

PublicPropertyLetItem(index,vObject)
items(index)=vObject
EndProperty

PropertyGetCount
Count=size
EndProperty


PublicPropertyGetCapacity()
Capacity=Ubound(items)
EndProperty

PublicPropertyLetCapacity(value)
If(value<>Ubound(items))Then
If(value<size)ThenErr.Rise6

If(value>0)Then
ReDimPreserveitems(value)
Else
ReDimPreserveitems(3)
EndIf
EndIf
EndProperty

PrivateSubEnsureCapacity(ByValmin)
If(Ubound(items)<min)Then
Dimnum1:num1=IIf((Ubound(items)=0),4,(Ubound(items)*2))
If(num1<min)Thennum1=min
Capacity=num1
EndIf
EndSub


PrivateFunctionIIf(j,r1,r2)
IF(j)Then
IIf=r1
Else
IIf=r2
EndIF
EndFunction

EndClass


示例:

Dimal:Setal=newArrayList
al.Add(1)
al.Add(2)
al.Add(3)
al.Add(4)
al.Add(5)
al.Add(6)
al.Add(7)
al.Add(8)
al.Add(9)
al.Add(10)

Fori=0Toal.Count-1
w("Index"&i&":"&al.Item(i))
Next

w("Count:"&al.Count)
w("Capacity:"&al.Capacity)

Subw(o)
Response.Write(o&"<br/>")
EndSub