繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下去除数组中重复的项的方法
- ASP
- 用ASP和WML来实现数据库查询
- ASP判断文件地址是否有效!
- 一个比较实用的asp函数集合类(1)
- 一个比较实用的asp函数集合类(2)
- ASP检索网站指定目录文件的算法与应用方向
- 用VB将ASP代码封装成DLL
- Asp:Cookies应用指南,详细代码及教程
- 如何在IIS上搭建WAP网站
- 最新的JMail（4.3版本）发送代码
- 在客户端执行数据库记录的分页显示
- 用ASP构建音乐服务器
- 短信发送程序
- 用ASP实现电子贺卡
- 用ASP实现聊天室中的在线答题游戏
- 利用ASP远程注册DLL的方法
- ASP编程技巧大全
- 验证码的程序及原理
- Asp深度揭密（上）
- Asp深度揭密（下）
- VBS、ASP代码语法加亮显示的类(1)
ASP 中的 asp下去除数组中重复的项的方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 221 ::
收藏到网摘: n/a
<%
'******************************
'函数：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
%>
评论 (0) All
