Definisi susunan
DimMyArray
Array Saya = Array(1,5,123,12,98)
Array yang dapat diperluas
RedupkanArraySaya()
untuk i = 0 sampai 10
ReDim Pertahankan MyArray(i)
Array Saya(i)=i
Berikutnya
Memisahkan string dan mengembalikan array hasil pemisahan
DimMyArray
MyArray = Pisahkan(tempcnt,chr(13)&chr(10))
Untuk I = Lbound(MyArray) hingga Ubound(MyArray)
Respon.Tulis MyArray(I) & <br>
Berikutnya
Fungsi pengurutan array
fungsi Sortir(ary)
KeepChecking = BENAR
Lakukan Hingga KeepChecking = SALAH
KeepChecking = SALAH
Untuk I = 0 sampai UBound(ary)
Jika I = UBound(ary) Lalu Keluar Untuk
Jika ary(I) > ary(I+1) Maka
Nilai Pertama = ary(I)
Nilai Kedua = ary(I+1)
ary(I) = Nilai Kedua
ary(I+1) = Nilai Pertama
KeepChecking = BENAR
Akhiri Jika
Berikutnya
Lingkaran
Urutkan = ary
Fungsi akhir
Contoh aplikasi fungsi pengurutan array
DimMyArray
Array Saya = Array(1,5,123,12,98)
MyArray = Urutkan(MyArray)
Untuk I = Lbound(MyArray) hingga Ubound(MyArray)
Respon.Tulis MyArray(I) & <br>
Berikutnya
Menggunakan array dalam Aplikasi dan Sesi
Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Saya
Aplikasi. Buka kunci
LocalArray = Aplikasi(StoredArray)
Timpa array di Aplikasi
Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Lokal
Aplikasi. Buka kunci
Penggunaan sesi sama dengan Aplikasi
Impor data dari database ke dalam array
DimMyArray
Dapatkan semua catatan
MyArray = RS.GetRows
Dapatkan 10 catatan pertama
MyArray = RS.GetRows(10)
Untuk baris = 0 Ke UBound(MyArray, 2)
Untuk col = 0 Ke UBound(MyArray, 1)
Response.Write (kolom, baris) & <br>
Berikutnya
Berikutnya
'************************************
'Untuk algoritma penggelembungan asp
'************************************
Pengurutan Fungsi(ary)
Redupkan KeepChecking,I,Nilai Pertama,Nilai Kedua
KeepChecking = BENAR
Lakukan Hingga KeepChecking = SALAH
KeepChecking = SALAH
Untuk I = 0 sampai UBound(ary)
Jika I = UBound(ary) Lalu Keluar Untuk
Jika ary(I) > ary(I+1) Maka
Nilai Pertama = ary(I)
Nilai Kedua = ary(I+1)
ary(I) = Nilai Kedua
ary(I+1) = Nilai Pertama
KeepChecking = BENAR
Akhiri Jika
Berikutnya
Lingkaran
Urutkan = ary
Fungsi Akhir
redupkan ID,ArrayID,Myarray,M
ID=55,48,78,10,90
ArrayID=pecah(ID,,)
Myarray=Urutkan(ArrayID)
'Uji sortir
Untuk M=0 Ke Ubound(Myarray)
Respon.Tulis Myarray(M) & <br> & vbCRLF
Berikutnya
'Tentu saja Anda juga dapat menggunakan yang berikut ini,
Redupkan Myarray
Myarray=Array(12,10,25,78,45)
Myarray=Urutkan(ArrayID)
'Uji sortir
Untuk M=0 Ke Ubound(Myarray)
Respon.Tulis Myarray(M) & <br> & vbCRLF
Berikutnya
'Uji sortir