split转换问题_急!有赏

dim arrayOne(2),temp
arrayOne(0) = 1
arrayOne(1) = 2
arrayOne(2) = 3
temp = ""
for i =0 to ubound(arrayOne)
temp = temp + "'" + cstr(arrayOne(i)) + "'" + ","
next
temp = left(temp,len(temp)-1)
response.write temp

方法比较笨，希望高手指点

用字符串转化函数Cstr
Cstr(a[0])
Cstr(a[1])
Cstr(a[2])