请问一个简童的过滤字串的有关问题,多谢,

请教一个简童的过滤字串的问题,谢谢,.
a=split( "1,2,2,333,4,6 ")

结果为     1,2,33,4

谢谢

------解决方案--------------------
<%
a=split( "1,2,2,333,4,6 ", ", ")
str = " "
for i = 0 to Ubound(a)
flag = true
for j = i+1 to Ubound(a)
If a(i)=a(j) Then
flag = false
exit for
End If
next
if flag then
str = str & a(i) & ", "
end if
next
str = Left(str,Len(str)-1)
Response.Write str
%>