ASP数组中去掉重复的，写入一个新的数组中

有一个数据里面的很多重复的数据，现要去掉重复的，写入一个新的数组 ，怎么写？
如：aa = Array("11","22","33","11","112233","33","22","44","44","11","ff","22","22","去")

---

VBScript code:

<%
aa = Array("11","22","33","11","112233","33","22","44","44","11","ff","22","22","去")
Set dic = CreateObject("Scripting.Dictionary")
For i=0 To UBound(aa)
If Not dic.Exists("_" & aa(i)) Then
dic.Add "_" & aa(i), aa(i)
End If
Next
bb = dic.Items()
Set dic = Nothing

Response.Write Join(bb,",")

%>

---

VBScript code:
aa = Array("11","22","33","11","112233","33","22","44","44","11","ff","22","22","È¥")

k = -1
For i = 0 To UBound(aa)
b = True
For j = 0 To k
If aa(i) = r(j) Then
b = False
Exit For