asp 删除重复字符串，多留一

<%dim str,d,s,istr="100,123,100,200,300,100" s=split(str,",")  for i =0 to ubound(s)     if instr(d,s(i)) then        d=d     elseif len(d)=0 then       d=s(i)   else      d=d&","&s(i)   end ifnextresponse.write (d)%>