Artikel ini terutama memperkenalkan penggunaan redim dan melestarikan di ASP untuk membuat instance array dinamis. Artikel ini juga memberikan contoh operasi array lainnya di ASP. Teman yang membutuhkannya dapat merujuknya.
Fungsi REDIM di asp adalah untuk menentukan panjang array secara dinamis
Pernyataan dalam array dinamis hanya dapat muncul dalam suatu prosedur dan dapat digunakan berkali-kali. Anda dapat mengubah ukuran dan dimensi array.
Format:
REDIM [Pertahankan] nama array (subskrip 1 [subskrip 2....])
Preserve mempertahankan isi array dinamis (jika tidak digunakan, semua pernyataan yang disimpan saat ini akan hilang setiap kali pernyataan REDIM dijalankan)
Misalnya:
Copy kode kodenya sebagai berikut:Redupkan DynArray() 'Definisikan array DynArray() sebagai array dinamis
REDIM Pertahankan DynArray(20)'Alokasikan sejumlah elemen ke array
Hal ini sangat penting untuk beberapa perubahan dinamis dalam array dalam pemrograman, dan sering kali dapat digunakan dan diproses. REDIM ini memiliki pemahaman mendalam tentang komputer kedua dan menganggapnya sangat membantu untuk meningkatkan pemrogramannya sendiri.
Berikut beberapa contoh array ASP, tentunya tidak semuanya merupakan array dinamis.
Menggunakan array dalam pemrograman ASP:
Definisi larik:
Copy kode kodenya sebagai berikut:DimMyArray
Array Saya = Array(1‚5‚123‚12‚98)
Array yang dapat diperluas:
Copy kode kodenya sebagai berikut:RedupkanArraySaya()
untuk i = 0 sampai 10
ReDim Pertahankan MyArray(i)
Array Saya(i)=i
Berikutnya
Pisahkan string dan kembalikan array hasil pemisahan:
Copy kode kodenya sebagai berikut:DimMyArray
MyArray = Pisahkan(tempcnt‚chr(13)&chr(10))
Untuk I = Lbound(MyArray) hingga Ubound(MyArray)
Respon.Tulis MyArray(I) & <br>
Berikutnya
Fungsi penyortiran array:
Copy kode kodenya sebagai berikut:fungsi..Urutkan(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 penerapan 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
Menggunakan array dalam Aplikasi dan Sesi:
Copy kode kodenya sebagai berikut:Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Saya
Aplikasi. Buka kunci
LocalArray = Aplikasi(StoredArray)
Timpa array di Aplikasi:
Copy kode kodenya sebagai berikut:Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Lokal
Aplikasi. Buka kunci
Metode penggunaan Sesi sama dengan Aplikasi, mengimpor data dari database ke dalam array:
Copy kode kodenya sebagai berikut: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
Melalui contoh di atas, kita dapat memperdalam pemahaman kita tentang array dan menggunakannya secara fleksibel dalam aplikasi praktis.