找出字符串中相同数字，并进行累加，怎么做啊？

[shenxian5]

一个字符串得到的值为：1,1,2,2,2

请问如何将这个字符串中相同的字符进行累加呢？
比如前面两个1+1=2
后面是2+2+2=6或者2*3=6这样？

[hookee]

<%
s = "1,1,2,2,2"
a = Split(s,",")
Set d = CreateObject("Scripting.Dictionary")
For i=0 To UBound(a)
    If d.Exists("_" & a(i)) Then
        d.Item("_" & a(i)) =  CDbl(a(i)) + d.Item("_" & a(i))
    Else
        d.Add "_" & a(i), CDbl(a(i))
    End If
Next

k = d.Keys()
For i=0 To UBound(k)
    n = Right(k(i), Len(k(i))-1) 
    Response.Write n & "=" & d(k(i)) & "<br>"
Next
%>

[shenxian5]

非常完美，呵呵！谢谢！！！