A classificação ASP não oferece suporte direto às funções do sistema, e a classificação numérica, a classificação de caracteres e a classificação pinyin que frequentemente precisamos usar são inseparáveis da classificação. Copie o código do código da seguinte forma:
'Organizar
Função Sort1(ário)
Dim KeepChecking,I,PrimeiroValor,SegundoValor
KeepChecking = VERDADEIRO
Faça até KeepChecking = FALSE
KeepChecking = FALSO
Para I = 0 para UBound(ary)
Se I = UBound (ary) então saia para
Se ary(I) > ary(I+1) Então
PrimeiroValor = ary(I)
SegundoValor = ary(I+1)
ary(I) = SegundoValor
ary(I+1) = PrimeiroValor
KeepChecking = VERDADEIRO
Terminar se
Próximo
Laço
Sort1=ário
Função final
Dim arr
arr = Matriz(a,c,b)
arr = Sort1(arr)
Para i=0 para ubound(arr)
Resposta.Write(arr(i)&<br />)
Próximo