<% '****************************** '函数：MoveR(Rstr) '参数：Rstr,以逗号做分隔的数组 '作者：阿里西西 '日期：2007/7/13 '描述：去除数组中重复的项 '示例：<%MoveR("abc,abc,dge,gcg,dge,dgi,die,dir,fgk,dir,gis,sgier,ssir")%> '****************************** 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 %>

　　推荐阅读

　　asp快速开发方法之数据操作实例代码第1/3页

这是我自己的心得，给大家作个参考。 我的目的是让开发变得简单，尽可能少地考虑实现语句，更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。 如果你对ASP不熟悉，可以先看以下教程： 1、http://>>>详细阅读

本文标题：asp下去除数组中重复的项的方法

地址：http://www.17bianji.com/kaifa2/ASP/32522.html

 1/2    1