烧脑的asp数组提取统计问题

asp数组是这样的:
|中国,陆地,大象,12|美国,陆地,大象,2|美国,陆地,大象,2|中国,海洋,海马,4|中国,陆地,大象,5|中国,陆地,大象,12   等等。。。。。
怎么让这里面的数组像这样分类统计?
中国,陆地,大象,29
美国,陆地,大象,4
中国,海洋,海马,4
下面的代码我可以进行子数组分组，但是不会进行分类统计。


下面代码的结果：
中国,陆地,大象,12
美国,陆地,大象,2
中国,海洋,海马,4
中国,陆地,大象,5

Dim ConstStr

ConstStr = "|中国,陆地,大象,12|美国,陆地,大象,2|美国,陆地,大象,2|中国,海洋,海马,4|中国,陆地,大象,5|中国,陆地,大象,12"

Dim arr,i,y,tempstr

arr = Split(ConstStr,"|")

For i=0 To UBound(arr)

        str = arr(i)

                tempstr = tempstr&str&"|"

                If InStr(tempstr,str&"|")=len(tempstr)-len(str) And InStrRev(tempstr,str&"|")=len(tempstr)-len(str) Then     '此句判断字符的唯一性，关键

                response.write(str&"<br>")

                End If

Next