asp下tag的实现,简单介绍与部分代码(5)


    If (Not objRS.bof) And (Not objRS.eof) Then

        aryAllData=objRS.GetRows(objRS.RecordCount)
        objRS.Close
        Set objRS=Nothing

        k=UBound(aryAllData,1)
        l=UBound(aryAllData,2)
        For i=0 To l
            Set Tags(aryAllData(0,i))=New TTag
            Tags(aryAllData(0,i)).LoadInfoByArray(Array(aryAllData(0,i),aryAllData(1,i),aryAllData(2,i),aryAllData(3,i),aryAllData(4,i)))
        Next

    End If

    GetTags=True

End Function