asp 过滤数组重复数 据

http://chugaosong.cn/2020-07-31 21:25:41

function array_no(cxstr1,cxstr2,cxstr3)if len(cxstr3) > 0 thenif not IsNumeric(cxstr3) thenarray_no = "对不起,参数3类型必需为数字"Exit Functionend ifelsearray_no = "对不起,参数3类型必需为数字"Exit Functionend ifif isarray(cxstr1) thenarray_no = "对不起,参数1不能为数组"Exit Functionend ifif cxstr1 = "" or isempty(cxstr1) thenarray_no = "没有数据"Exit Functionend ifss = split(cxstr1,cxstr2)

泥巴电影网[www.aikan.tv/special/nibadianyingwang/]cxs=cxstr2&ss(0)&cxstr2sss=cxsfor m = 0 to ubound(ss)cc = cxstr2&ss(m)&cxstr2if instr(sss,cc)=0 thensss = sss&ss(m)&cxstr2end ifnextarray_no = right(sss,len(sss)-len(cxstr2))array_no = left(array_no,len(array_no)-len(cxstr2))if cxstr3 <> 0 thencx_sp = split(array_no,cxstr2)if cxstr3 > ubound(cx_sp) thenarray_no = cx_sp(ubound(cx_sp))elsearray_no = cx_sp(cxstr3)end ifend ifend function%>