asp使用数组时我们经常会碰到数组中出现重复的值,为了去掉这些重复的值可以用如下函数:
<%
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
str1 = "a,b,c,d,e,c,d,a,f,g,g,h,e"
response.write MoveR(str1)
%>
来源:https://www.cnblogs.com/yeye518/archive/2009/10/25/2231673.html