请教一个截取字串的问题

s = "中国-北京,美国-纽约,芬兰-赫尔辛基"

s = Replace(s, "-", ",")

a = Split(s, ",")

t = ""

For i=1 To UBound(a) Step 2

    t = t & a(i) & ","

Next

If t <> "" Then t = Left(t, Len(t)-1)

Response.Write t