asp,vbscript二叉树排序源码

参考某人的js二叉树写的asp的二叉树，有问题欢迎提出

Class TreeSortPrivate LeftNodePrivate MiddleNodePrivate RightNodePrivate Sub Class_Initialize()Set LeftNode = NothingSet RightNode = NothingMiddleNode = NullEnd SubPrivate Sub Class_Terminate()Set LeftNode = NothingSet RightNode = NothingMiddleNode = NullEnd SubPublic Sub Add(ByVal Value)If IsNull(Node) ThenNode = ValueExit SubEnd IfDim NewNodeSet NewNode = New TreeSortNewNode.Node = ValueIf Node >= Value ThenIf Left Is Nothing ThenSet Left = NewNodeElseLeft.Add(Value)End IfElseIf Right Is Nothing ThenSet Right = NewNodeElseRight.Add(Value)End IfEnd IfSet NewNode = NothingEnd SubPublic Function Print()If Not(Left Is Nothing) ThenLeft.Print()End IfPrintArray(Node)If Not(Right Is Nothing) ThenRight.Print()End IfEnd FunctionPublic Property Set Left(ByVal Object)Set LeftNode = ObjectEnd PropertyPublic Property Get Left()Set Left = LeftNodeEnd PropertyPublic Property Let Node(ByVal Value)MiddleNode = ValueEnd PropertyPublic Property Get Node()Node = MiddleNodeEnd PropertyPublic Property Set Right(ByVal Object)Set RightNode = ObjectEnd PropertyPublic Property Get Right()Set Right = RightNodeEnd PropertyEnd ClassDim newArrArraynewArrArray=Array()Sub PrintArray(ByVal newValue)Dim arrNewArray(),iReDim arrNewArray(UBound(newArrArray)+1)For i=0 To UBound(newArrArray)arrNewArray(i) = newArrArray(i)NextarrNewArray(i) = newValuenewArrArray = arrNewArrayEnd SubFunction TSort(ByVal arrSortArray)Dim TCLS,iSet TCLS = New TreeSortFor i = 0 To UBound(arrSortArray)TCLS.Add(arrSortArray(i))NextTCLS.Print()TSort = newArrArrayEnd Functionarr=Array(1,2,5,3,2,6,3,2)arr=TSort(arr)Document.Write(Join(arr,","))