有一个数据里面的很多重复的数据，现要去掉重复的，写入一个新的数组 ，怎么写？
如：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
我找了一个伪静态代码，如下：
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
