asp下去除数组中重复的项的方法

文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-asp下去除数组中重复的项的方法的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

<%
''******************************
''函数：MoveR(Rstr)
''参数：Rstr,以逗号做分隔的数组
''作者：阿里西西
''日期：2007/7/13
''描述：去除数组中重复的项
''示例：<%MoveR("abc,abc,dge,gcg,dge,dgi,die,dir,fgk,dir,gis,sgier,ssir")%>
''******************************
Function MoveR(Rstr)
Dim i,SpStr
SpStr = Split(Rstr,",")
For i = 0 To Ubound(Spstr)
If I = 0 then
MoveR = MoveR & SpStr(i) & ","
Else
If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then
MoveR = MoveR & SpStr(i)
Elseif instr(MoveR,SpStr(i))=0 Then
MoveR = MoveR & SpStr(i) & ","
End If
End If
Next
End Function
%>