Asp过滤数组中的重复数据

'过滤数组中的重复数据
 Function FilterRepeatDataFromArray(cxstr1,cxstr2)
  IF isarray(cxstr1) Then
   cxarraynull = "对不起,参数1不能为数组。"
   Exit Function
  End IF
  IF cxstr1 = "" or isempty(cxstr1) Then
   cxarraynull = "nodate"
   Exit Function
  End IF
  ss = split(cxstr1,cxstr2)
  cxs=cxstr2&ss(0)&cxstr2
  sss=cxs
  For m = 0 To ubound(ss)
   cc = cxstr2&ss(m)&cxstr2
   IF instr(sss,cc)=0 Then
    sss = sss&ss(m)&cxstr2
   End IF
  Next
  FilterRepeatDataFromArray = right(sss,len(sss)-len(cxstr2))
  FilterRepeatDataFromArray = left(FilterRepeatDataFromArray,len(FilterRepeatDataFromArray)-len(cxstr2))
 End Function

上一篇: asp获取GMT时间
下一篇: Asp动态定义变量之将变量的值作为变量名
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志: