Asp数组类封装

前一段时间，帮朋友做个东西，因为Asp缺少相关的数组类，操作起来不方便，自己写了一个，现在贴出来分享。

<%'===================' File: c.arr.asp' Author: Stephen Liang(Winter)' Desc: Asp array(object array) class' Time: 2010-01-01'===================const C_INC_STEP = 10' 数组自动分配步长'====== 动态数组类 ======class CArr'------ public ------public function GetLength()GetLength = iLenend functionpublic sub SetIncStep(iInc)iIncStep = iIncend subpublic sub Insert(iIndex, obj)AutoMalloc()arrObj(iLen) = objarrIndex(iLen) = iIndexiLen = iLen + 1end subpublic sub Add(obj)Insert iLen, objend subpublic function GetItem(iPos)GetItem = arrObj(iPos)end functionpublic function GetIndex(iPos)GetIndex = arrIndex(iPos)end functionpublic function GetByIndex(iIndex)dim iPosGetByIndex = NULLiPos = FindByIndex(iIndex)if iPos > -1 thenGetByIndex = GetItem(iPos)end ifend functionpublic function FindByIndex(iIndex)dim iFindByIndex = -1for i=0 to iLen-1if arrIndex(i)=iIndex thenFindByIndex = iend ifnextend functionpublic sub Sort(bAsc)dim i, jdim objTmpfor i=0 to iLen-2for j=i+1 to iLen-1if (arrIndex(i)>arrIndex(j)) = bAsc thenobjTmp = arrObj(i)arrObj(i) = arrObj(j)arrObj(j) = objTmpend ifnextnextend subpublic sub Clear()Class_Initialize()end subpublic sub show()printf("a=" & ubound(arrObj))end sub'------ private ------private arrObj()private arrIndex()private arrLenprivate iIncStepprivate iLenprivate sub Class_Initialize()iIncStep = C_INC_STEParrLen = iIncStepredim preserve arrObj(arrLen-1)redim preserve arrIndex(arrLen-1)iLen = 0end subprivate sub Class_Terminate()iLen = 0end sub private sub AutoMalloc()if arrLen > iLen then exit subend ifarrLen = arrLen + iIncStepredim preserve arrObj(arrLen-1)redim preserve arrIndex(arrLen-1)end subend class'====== 对象动态数组类 ======class CObjArr'------ public ------public function GetLength()GetLength = iLenend functionpublic sub SetIncStep(iInc)iIncStep = iIncend subpublic sub Insert(iIndex, obj)AutoMalloc()set arrObj(iLen) = objarrIndex(iLen) = iIndexiLen = iLen + 1end subpublic sub Add(obj)Insert iLen, objend subpublic function GetItem(iPos)set GetItem = arrObj(iPos)end functionpublic function GetIndex(iPos)GetIndex = arrIndex(iPos)end functionpublic function GetByIndex(iIndex)dim iPosset GetByIndex = NothingiPos = FindByIndex(iIndex)if iPos > -1 thenset GetByIndex = GetItem(iPos)end ifend functionpublic function FindByIndex(iIndex)dim iFindByIndex = -1for i=0 to iLen-1if arrIndex(i)=iIndex thenFindByIndex = iend ifnextend functionpublic sub Sort(bAsc)dim i, jdim objTmpfor i=0 to iLen-2for j=i+1 to iLen-1if (arrIndex(i)>arrIndex(j)) = bAsc thenset objTmp = arrObj(i)set arrObj(i) = arrObj(j)set arrObj(j) = objTmpend ifnextnextend subpublic sub Clear()Class_Initialize()end subpublic sub show()printf("a=" & ubound(arrObj))end sub'------ private ------private arrObj()private arrIndex()private arrLenprivate iIncStepprivate iLenprivate sub Class_Initialize()iIncStep = C_INC_STEParrLen = iIncStepredim preserve arrObj(arrLen-1)redim preserve arrIndex(arrLen-1)iLen = 0End Subprivate sub Class_Terminate()iLen = 0end sub private sub AutoMalloc()if arrLen > iLen then exit subend ifarrLen = arrLen + iIncStepredim preserve arrObj(arrLen-1)redim preserve arrIndex(arrLen-1)end subend class%>