Question

asp怎样过滤重复的词组？

现有词组 格式如下：
黎明,李明,张三,赵四,李明,黎明,张三,
我想用asp过滤掉重复的名字，过滤后如下：
黎明,李明,张三,赵四,
请问怎样写？

下面是我网上找到的代码，只能过滤掉重复的数字或者英文，不支持汉字。求改写。
<%
Function delarr(str)
nstr = Split(str,",")
For i = 0 To Ubound(nstr)
If i = 0 then
delarr = delarr & nstr(i) & ","
Else
If instr(delarr,nstr(i))=0 and i=Ubound(nstr) Then
delarr = delarr & nstr(i)
Elseif instr(delarr,nstr(i))=0 Then
delarr = delarr & nstr(i) & ","
End If
End If
Next
if right(delarr,1)="," then
delarr=left(delarr,len(delarr)-1)
end if
End Function
'看这里
a= "11,15,11,11,12,12,13,12"
response.write delarr(a)
%>

Answer 1

试试这个函数

<%
Dim s
s = "中国,美国,法国,意大利,美国,澳大利亚,中国,澳大利亚,泰国"
response.write delR(s)

Function delR(ByVal str)
    Dim arr, b(), i, j, k, sf
    arr = Split(str, ",")
    ReDim b(k): b(k) = arr(0)
    For i = 1 To UBound(arr)
        sf = False
        For j = 0 To UBound(b)
            If b(j) = arr(i) Then
                sf = True
                Exit For
            End If
        Next
        If sf = False Then
            k = k + 1
            ReDim Preserve b(k)
            b(k) = arr(i)
        End If
    Next
    delR = Join(b, ",")
End Function
%>

追答

这估计是你网页编码的问题了，

追问

服务器环境问题。谢谢

追答

有乱码是网页 显示编码 网页本身编码，数据库编码，甚至客户端表单 提交的数据编码 不一致导致的，你先把这些弄一致了，看看，
数组去重复 是个简单的函数，你贴的那个代码，虽然冗杂 ，但是也可以实现的，所以是你其他的代码，或者编码的问题！
麻烦下次问问题的时候描述清楚了，标题是要写函数，完了成了给你网站找问题了！