asp 過濾數組重復數據

　　function array_no(cxstrcxstrcxstr)
if len(cxstr) > then
if not IsNumeric(cxstr) then
array_no = "對不起參數類型必需為數字"
Exit Function
end if
else
array_no = "對不起參數類型必需為數字"
Exit Function
end if
if isarray(cxstr) then
array_no = "對不起參數不能為數組"
Exit Function
end if
if cxstr = "" or isempty(cxstr) then
array_no = "沒有數據"
Exit Function
end if
ss = split(cxstrcxstr)
cxs=cxstr&ss()&cxstr
sss=cxs
for m = to ubound(ss)
cc = cxstr&ss(m)&cxstr
if instr(ssscc)= then
sss = sss&ss(m)&cxstr
end if
next
array_no = right(ssslen(sss)len(cxstr))
array_no = left(array_nolen(array_no)len(cxstr))
if cxstr <> then
cx_sp = split(array_nocxstr)
if cxstr > ubound(cx_sp) then
array_no = cx_sp(ubound(cx_sp))
else
array_no = cx_sp(cxstr)
end if
end if
end function%>

From:http://tw.wingwit.com/Article/program/net/201311/14460.html