ASP如何去除数组中重复的值呢
代码如下:
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
str1 = "顶部图片展示,热点图片展示,首页广告图片管理,热点推荐,辅导简章,活动资讯,近期考试,考试安排,最新资讯,备考试题,试题下载,领导师资,学员互动,最新兼职资讯,兼职求职资讯,兼职重要通知,事业单位招聘,事业单位招聘,企业全职招聘,企业全职招聘,家教/教师招聘资讯,家教/教师招聘资讯,国家公务员考试,国家公务员考试,国家公务员考试,河北公务员考试,河北公务员考试,河北公务员考试,政法干警考试,政法干警考试,政法干警考试,大学生村官考试,大学生村官考试,大学生村官考试,选调生考试,选调生考试,选调生考试,银行农信社考试,银行农信社考试,银行农信社考试,教师资格证考试,教师资格证考试,会计资格证考试,会计资格证考试,计算机考试,计算机考试,河北专接本考试,河北专接本考试,河北成人考试,河北成人考试,国家公务员面试,国家公务员面试,河北省公务员面试,河北省公务员面试,河北政法干警面试,河北政法干警面试,大学生村官/选调生面试,大学生村官/选调生面试,事业单位面试,事业单位面试,企业面试,企业面试,精彩课堂,合作单位"
response.write MoveR(str1)