<%
'*********************************
'Function: Neworder (arrstr)
«Аргументы: RSTR, разделенная запятая массив чисел
Автор: Аликси
Дата: 2007/7/13
'Описание: переупорядочение массива чисел
Пример: <%= neworder ("34,53,13,22,38,86,1111,23,65")%>
'*********************************
Functionneworder (arrstr)
Fori = 0toubound (split (arrstr, ","))
Ifn> 0then
Arrstr = заменить (arrstr, n, 0)
Эндиф
sp = split (arrstr, ",")
n = 0
Forj = 0toubound (sp)
Ifint (sp (j))> int (n) then
n = sp (j)
Эндиф
Следующий
Neworder = neworder & reply (n, 0, "") & "" "
Следующий
Neworder = Neworder
Конечная функция
%>
Переупорядочить массив
Кода -копия выглядит следующим образом:
<%
'*********************************
'Функция: новый заказ (SZ)
«Аргументы: RSTR, разделенная запятая массив чисел
Автор: Аликси
Дата: 2007/7/13
'Описание: переупорядочить массив
Пример: <%= neworder ("34,53,13,22,38,86,1111,23,65")%>
'*********************************
FunctionNeworder (SZ)
DiMali, Icount, I, II, J, Itemp
ali = split (sz, ",")
icon = ubound (ali)
Fori = 0toicode
Forj = iquant-1toistep-1
Ifj+1 <= ubound (ali) тогда
Ifint (ali (j)) <int (ali (j+1)), затем
Itemp = ali (j)
Али (j) = Али (J+1)
Али (j+1) = iTemp
Эндиф
Эндиф
Следующий
Следующий
Forii = 0toubound (ali)
Ifi = ubound (ali) тогда
Neworder = neworder & ali (ii)
Еще
Neworder = neworder & ali (ii) и ","
Эндиф
Следующий
Конечная функция
%>