Definisikan array sederhana
Ada dua cara untuk mendefinisikan dan menginisialisasi array di asp, mari kita lihat contohnya masing-masing:
Metode satu:
MyArray = Array("Jan", "Februari", "Mar", "Apr", "Mei", "Jun", "Jul", "Agustus", "Sep", "Oktober", "Nov", "Des ")
Ukuran array ditentukan oleh jumlah elemen yang diinisialisasi.
Metode dua:
Copy kode kodenya sebagai berikut:
Redupkan myArray(2) 'Tentukan ukuran array
arrayku(0)="Jan"
myArray(1)="Februari"
Ekspansi dinamis array
Copy kode kodenya sebagai berikut:
DIM array saya()
REDIM myArray(20) 'Definisikan ulang ukuran array menjadi 20
ReDim Preserve MyArray(i) 'Preserve menyimpan data asli dalam array
array dua dimensi
Contoh:
dim MyArray(5,10) 'mendefinisikan array dua dimensi
Contoh penugasan dua dimensi:
Array SAYA(3,3)=100
Ada juga metode implementasi terselubung untuk array dua dimensi:
redupkanArraySaya(5)
MyArray(0)=Array(...) 'Array satu dimensi
MyArray(1)=Array(...)'Array satu dimensi
...
Saat mengakses, gunakan format MyArray(x)(y)
indeks susunan
Gunakan metode di atas untuk mendefinisikan sebuah array. Subskrip elemen pertama setiap array dimensi adalah 0, dan subskrip elemen terakhir adalah jumlah elemen -1.
Namun Anda juga dapat menentukan subskrip array, seperti:
dim MyArray1(3 hingga 10) 'Subskripnya dari 3 hingga 10, MyArray(3) mendapatkan nilai elemen pertama
Fungsi array yang berguna
Fungsi Ubound(nama array)--mengembalikan subskrip elemen terakhir array.
Fungsi Lbound (nama array)--mengembalikan subskrip elemen pertama array, defaultnya adalah 0.
Lebih banyak aplikasi:
Fungsi pengurutan array
[kode]
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
Copy kode kodenya sebagai berikut:
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
Pisahkan string dan kembalikan array
Copy kode kodenya sebagai berikut:
DimMyArray
MyArray = Split(string, pemisah)
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("Array Tersimpan")
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
Lewati array ke halaman lain
Ada banyak cara untuk meneruskan array ke halaman lain. Saat ini ada tiga metode:
Tentukan string yang dipisahkan koma, lalu gunakan fungsi Split untuk membuat ulang array di halaman berikutnya.
Simpan array dalam variabel Sesi dan panggil di halaman berikutnya.
Array dilewatkan melalui area tersembunyi formulir, secara otomatis dipisahkan dengan koma, dan kemudian fungsi Split digunakan untuk membuat ulang array.
Dua metode pertama bagus, tetapi keduanya lebih rumit daripada metode ketiga. Di sini kami hanya akan memperkenalkan yang ketiga karena paling sederhana dan efektif.
1.asp:
<%
redupkan aku
redupkan MyArray(20)
untuk I=0 hingga 20
myArray(I)="Barang " & Saya
Berikutnya
%>
<html>
<tubuh>
<formulir metode="posting" action="2.asp">
<%
untuk I=0 hingga ubound(myArray)
respon.tulis "<tipe masukan=nama tersembunyi=nilaiArraysaya='" & Arraysaya(I) & "'>"
Berikutnya
%>
<p>
<input type="kirim">
</bentuk>
</tubuh>
</html>
Apa yang kita lakukan di atas adalah menggunakan bidang implisit terpisah untuk menyimpan setiap elemen dalam array dalam sebuah formulir.
2.asp
<html>
<tubuh>
<%
redupkan arrString
redupkan array saya
redupkan aku
arrString=permintaan("Array saya")
myArray = terbagi(arrString,",")
untuk I=0 hingga ubound(myArray)
respon.tulis "Item "&I&" = " & myArray(I) & "<br>" & vbCrLf
Berikutnya
%>
</tubuh>
</html>
Artikel yang mungkin menarik bagi Anda: