ASP如何去除數(shù)組中重復的值呢

代碼如下：

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 = "頂部圖片展示,熱點圖片展示,首頁廣告圖片管理,熱點推薦,輔導簡章,活動資訊,近期考試,考試安排,最新資訊,備考試題,試題下載,領導師資,學員互動,最新兼職資訊,兼職求職資訊,兼職重要通知,事業(yè)單位招聘,事業(yè)單位招聘,企業(yè)全職招聘,企業(yè)全職招聘,家教/教師招聘資訊,家教/教師招聘資訊,國家公務員考試,國家公務員考試,國家公務員考試,河北公務員考試,河北公務員考試,河北公務員考試,政法干警考試,政法干警考試,政法干警考試,大學生村官考試,大學生村官考試,大學生村官考試,選調(diào)生考試,選調(diào)生考試,選調(diào)生考試,銀行農(nóng)信社考試,銀行農(nóng)信社考試,銀行農(nóng)信社考試,教師資格證考試,教師資格證考試,會計資格證考試,會計資格證考試,計算機考試,計算機考試,河北專接本考試,河北專接本考試,河北成人考試,河北成人考試,國家公務員面試,國家公務員面試,河北省公務員面試,河北省公務員面試,河北政法干警面試,河北政法干警面試,大學生村官/選調(diào)生面試,大學生村官/選調(diào)生面試,事業(yè)單位面試,事業(yè)單位面試,企業(yè)面試,企業(yè)面試,精彩課堂,合作單位"
response.write MoveR(str1)