ss = "张三||李四||王五||张三||张三||王五"
s = Split(ss, "||")
For i = 0 To UBound(s)
    If s(i) <> "" Then
        Response.Write s(i) & "("
        k = 1
        For j = i + 1 To UBound(s)
            If s(j) = s(i) Then
                k = k + 1
                s(j) = ""
            End If
        Next
        Response.Write k & ") "
    End If
Next