Question

ASP关于显示不重复数据

源码<%ss = Split(Rstr,",")
For i=0 To UBound(ss)%>
<%=ss(i)%><br>
<%Next%>

显示结果为
开心
伤心
悲剧
好玩
快乐
开心
好玩
现在好玩，开心重复显示了多次，请问怎么才能将重复的词语只显示一次？

Answer 1

<%
ss = Split(Rstr,",")
For i=0 To UBound(ss)
ss_text=ss_text
if instr(ss_text,ss(i))=0 then '如果ss_text里面包含ss(i)的个数等于0，则把唯一的关键字赋值给ss_text
ss_text=ss_text&ss(i)&","
response.Write ss(i)&"<br>"
end if
Next
%>