Definisi array
Dimmyarray
MyArray = array (1,5,123,12,98)
Array yang diperpanjang
Dimmyarray ()
fori = 0to10
RedimpreservemYarray (I)
Myarray (i) = i
Berikutnya
Pisahkan string dan kembalikan array hasil split
Dimmyarray
MyArray = split (tempcnt, chr (13) & chr (10))
Fori = lbound (myarray) Toubound (myarray)
Response.writemyarray (i) & "<br>"
Berikutnya
Fungsi penyortiran array
fungsi..sort (ary)
KeepChecking = true
DountilkeepChecking = false
KeepChecking = false
Fori = 0toubound (ary)
Ifi = ubound (ary) kemudian exitfor
Ifary (i)> ary (i+1) lalu
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = firstValue
KeepChecking = true
Endif
Berikutnya
Lingkaran
Sortir = ary
Fungsi endfungsi ..
Contoh aplikasi fungsi penyortiran array
Dimmyarray
MyArray = array (1,5,123,12,98)
Myarray = sort (myarray)
Fori = lbound (myarray) Toubound (myarray)
Response.writemyarray (i) & "<br>"
Berikutnya
Menggunakan array dalam aplikasi dan sesi
Application.lock
Aplikasi ("StoredArray") = MyArray
Application.unlock
LocalArray = Aplikasi ("StoredArray")
Menimpa array dalam aplikasi
Application.lock
Aplikasi ("StoredArray") = LocalArray
Application.unlock
Sesi ini digunakan sama dengan aplikasi
Impor data dari database ke dalam array
Dimmyarray
Mengambil semua catatan
MyArray = rs.getrows
Keluarkan 10 catatan pertama
MyArray = rs.getrows (10)
Forrow = 0toubound (myarray, 2)
Forcol = 0toubound (myarray, 1)
Response.write (col, row) & "<br>"
Berikutnya
Berikutnya