<%
'***********************************
'Fungsi: neworder (arrstr)
'Argumen: RSTR, serangkaian angka yang dipisahkan koma
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: Pesan ulang angka angka
'Contoh: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
'***********************************
FunctionNewOrder (arrstr)
Fori = 0toubound (split (arrstr, ",")))
IFN> 0then
Arrstr = ganti (arrstr, n, 0)
Endif
sp = split (arrstr, ",")
n = 0
Forj = 0toubound (sp)
Ifint (sp (j))> int (n) lalu
n = sp (j)
Endif
Berikutnya
Neworder = neworder & ganti (n, 0, "") & ""
Berikutnya
Neworder = neworder
Fungsi endfungsi
%>
Pesan ulang array
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: Neworder (SZ)
'Argumen: RSTR, serangkaian angka yang dipisahkan koma
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: Pesan ulang array
'Contoh: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
'***********************************
FunctionNewOrder (SZ)
Dimali, Icount, I, II, J, Itemp
Ali = split (sz, ",")
ikon = ubound (Ali)
Fori = 0toicode
Forj = iquant-1toistep-1
Ifj+1 <= ubound (Ali) lalu
Ifint (ali (j)) <int (ali (j+1)) lalu
Itemp = ali (j)
Ali (j) = Ali (j+1)
Ali (j+1) = itemp
Endif
Endif
Berikutnya
Berikutnya
Forii = 0toubound (Ali)
Ifi = ubound (Ali) lalu
Neworder = neworder & ali (ii)
Kalau tidak
Neworder = neworder & ali (ii) & ","
Endif
Berikutnya
Fungsi endfungsi
%>