28,391
社区成员
发帖
与我相关
我的任务
分享
<%
a = Array(14, 11, 3, 10, 12, 7, 6, 11)
Set d = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(a)
k = CStr(a(i))
If d.Exists(k) Then
d.Remove(k)
Else
d.Add k, (i+1)
End If
Next
Set rs = CreateObject("ADODB.RecordSet")
rs.Fields.Append "idx", 3, 4
rs.Fields.Append "val", 3, 4
rs.CursorLocation = 3
rs.Open
items = d.Items
keys = d.Keys
For i = 0 To d.Count-1
rs.AddNew
rs(0).Value = CInt(items(i))
rs(1).Value = CInt(keys(i))
Next
rs.Sort = "val DESC"
rs.MoveFirst
Dim t(2)
For i = 0 To 2
If rs.EOF And rs.BOF Then Exit For
t(i) = rs(0).Value
rs.MoveNext
Next
rs.Close
Set rs = Nothing
Set rs = CreateObject("ADODB.RecordSet")
rs.Fields.Append "idx", 3, 4
rs.Open
For i = 0 To UBound(t)
rs.AddNew
rs(0).Value = t(i)
Next
rs.Sort = "idx ASC"
s = ""
Do While Not rs.EOF
s = s & rs(0).Value & ","
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Response.Write s
%>