ordinamento array

[maxcondor]

Salve ragazzi ho esigenza di ordinare un'array in maniera decrescente
ho utilizzato con successo il seguente script che però esegue l'ordine in maniera crescente.
esiste un sistema veloce per invertire l'ordine?

<%@ LANGUAGE = VBscript %>
<%

sub heapfy(byref V,j,byval n)
  k=j
  if ((2*j+1)<=n) then
    if (V(2*j+1)>V(k)) then
      k=2*j+1
    end if
  end if
  if ((2*j)<=n) then
    if (V(2*j)>V(k)) then
      k=2*j
    end if
  end if
  if (k<>j) then
    t=V(j)
    V(j)=V(k)
    V(k)=t
    call heapfy(V,k,n)
  end if
end sub

sub ordina(byref V)
  n=ubound(V)
  i=n\2
  while (i>=0)
    call heapfy(V,i,n)
    i=i-1
  wend
  i=n
  while (i>=1)
    t=V(i)
    V(i)=V(0)
    V(0)=t
    call heapfy(V,0,(i-1))
    i=i-1
  wend
end sub

a=array(2,3,5,1,9,4,7,6,8,11)
Response.Write("Array iniziale:
")
for i=0 to ubound(a)
  Response.Write(a(i)&" ")
next

call ordina(a)

Response.Write("
Array ordinato:
")
for i=0 to ubound(a)
  Response.Write(a(i)&" ")
next
%>

[Grambo]

usare un secondo array e scorrere al contrario il primo

[cavicchiandrea]

http://www.asptutorial.info/sscript/sortarray.html

[maxcondor]

Originariamente inviato da cavicchiandrea
http://www.asptutorial.info/sscript/sortarray.html

Grazie è proprio quello che cercavo, mi necessitava però conoscere anche l'ordine dell'indice dell'Array.
Mi spiego meglio

Array (1,3,7,9)

quindi
array (0) = 1
array (1) =3
array (3) = 7
array (4) = 9
lo script mi ordina l'array in maniera decrescente
9 7 3 1
è possibile ricavare anche l'indice orginario dell'array?
array (4) = 9

[optime]

se vuoi conoscere l'originale devi conservarlo! quindi due array: l'originale e quello ordinato. oppure l'array di destinazione deve avere due dimensioni