<!--#include file="WeakList.Class.asp"--> <% Class Queue '********* MEMBER VARIABLES ********** Private wlList '************************************* '********* EVENT HANDLERS ************ Private Sub Class_Initialize() 'Allocate the weak list instance Set wlList = New WeakList End Sub Private Sub Class_Terminate() Set wlList = Nothing 'Clean up! End Sub '************************************* '************ PROPERTIES ************* Public Property Get Count() Count = wlList.Count End Property '************************************* '************* METHODS *************** Public Function Enqueue(varItem) wlList.AddHead(varItem) End Function Public Function Dequeue() Dequeue = wlList.RemoveTail() End Function Public Function Peek() Peek = wlList.PeekTail() End Function '************************************* End Class %>