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)