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

代碼如下：

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