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

<%
dim str,d,s,i

str="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 if

next

response.write (d)
%>