Direkomendasikan: Beberapa kode ASP yang layak dikumpulkan Beberapa kode ASP yang layak dikumpulkan beberapa kode ASP yang layak dikumpulkan 1. OncontextMenu = window.event.returnValue = false akan sepenuhnya memblokir tabel tombol mouse kanan perbatasan onscontextMenu = return (false) tdno/tabel dapat digunakan untuk tabel 2. Body onselectstart = return false cancel false select
Agar dapat menggunakan dengan benar, mereka harus ditempatkan dalam aplikasi virtual di server dan file global.aSa yang disediakan harus ditempatkan di direktori root aplikasi. Cara termudah adalah dengan memasukkan file global.asa ke direktori root situs web default (secara default, c:/inetpub/wwwroot).
Ganti nama file global.asa yang ada adalah cara yang baik untuk mengembalikan file nanti.
1. Tampilkan isi koleksi aplikasi
Objek ASPCOUNTER adalah anggota dari Koleksi StaticObjects (ditentukan oleh elemen <POMPERTIF>), tetapi sisanya (dipasang oleh server.CreateObject) adalah anggota koleksi konten.
Anda dapat melihat nilai -nilai yang ditempatkan dalam koleksi ini menggunakan halaman web Global.aSa, yang telah terlihat sebelumnya:
Berikut ini adalah konten yang dikutip: ＜!- Deklarasikan contoh komponen aspcounter dengan Lingkup Level Aplikasi //-＞ ＜ ID objek = aspcounter runat = server scope = applicoin Progid = mswc.countters ＞ ＜/objek ＞ ... ... ＜ bahasa skrip = vbscript runat = server ＞ Sub application_onstart () 'Buat instance koneksi ADO dengan ruang lingkup tingkat aplikasi Setel Aplikasi (Adoconnection) = Server.CreateObject (AdodB.Connection) Dim Vararray (3) 'Buat array varian dan isi vararray (0) = ini adalah a varaRray (1) = varian array vararray (2) = disimpan di VARRRAY (3) = Objek Aplikasi Aplikasi (varian_array) = VarArray 'Simpan di Aplikasi THD Aplikasi (start_time) = cstr (sekarang) 'simpan tanggal/waktu sebagai string Aplikasi (Visit_Count) = 0 'Setel variabel penghitung ke nol Akhir sub ... ... ＜/skrip ＞ |
(1) Kode untuk melintasi koleksi konten
Untuk melintasi koleksi konten, untuk masing -masing ... struktur berikutnya dapat digunakan. Setiap item dalam set dapat berupa variabel tipe varian sederhana, array varian, atau referensi ke suatu objek. Karena pemrosesan yang berbeda diperlukan untuk setiap jenis nilai, setiap jenis harus diperiksa untuk menentukan jenisnya.
Pekerjaan ini dapat dilakukan dengan menggunakan fungsi vartype dalam VBScript. Di sini Fungsi ISObject dan ISArray digunakan sebagai gantinya:
Berikut ini adalah konten yang dikutip: Untuk setiap objitem dalam aplikasi.contents Jika isObject (application.contents (objitem)) lalu Response.write Referensi Objek: '& Objitem &' Elseif isArray (application.contents (objitem)) kemudian Response.Write Array: '& Objitem &' Isi adalah: Vararray = application.contents (objitem) 'Catatan: Berikut ini hanya berfungsi dengan array satu dimensi Untuk intloop = 0 ke ubound (vararray) Response.write index (& intloop &) = & _ VARARRAY (INTLOOP) & Berikutnya Kalau tidak Response.write variabel: '& objitem &' = _ & Application.contents (objitem) & Akhiri jika Berikutnya |
Perhatikan bagaimana program mengambil array dari objek aplikasi. Tetapkan ke variabel lokal, menggunakan pernyataan berikut:
vararray = application.contents (objitem)
Gunakan fungsi ubound untuk mengetahui ukuran array (jumlah elemen), dan nilai ini dapat digunakan sebagai kondisi penghentian traversal:
Untuk intloop = 0 ubound (vararray)
Contoh ini adalah array satu dimensi dan hanya akan menampilkan isi array tersebut. Kode dapat diedit sesuai kebutuhan untuk menangani array multidimensi, misalnya:
Berikut ini adalah konten yang dikutip: Untuk intloop = 0 ke ubound (vararray) Intnumberofdimensions = ubound (vararray, 1) Untuk intdimension = 0 ke intnumberofdimensions Response.write index (& intloop &) = _ & VARARRAY (Intloop, Intdimension) Berikutnya Respons.write Berikutnya |
(2) Kode untuk melintasi koleksi staticObjects
Koleksi StaticObjects berisi semua referensi objek yang dideklarasikan menggunakan elemen <POMPERS> di global.asa. Karena setiap entri adalah variabel objek, Anda dapat menggunakan kode yang lebih sederhana untuk melintasi array ini. Kami akan mengeluarkan nama objek (definisi asli dalam atribut ID):
Berikut ini adalah konten yang dikutip: Untuk setiap objitem di Application.StaticObjects Jika isObject (application.staticObjects (objitem)) maka Response.write ＜ objek ＞ elemen: id = '& objitem &' Akhiri jika Berikutnya |
Bagikan: Sintaks umum dari 11 database dalam pemrograman ASP Artikel ini terutama memperkenalkan sintaks umum untuk koneksi ASP ke 11 database. Untuk detailnya, silakan merujuk ke yang berikut: 1. DSN-Less Connection Metode Database Access: Berikut ini adalah konten yang direferensikan: set adocon = server.createObject (adodb.connection) adoconn.opendriver = {driver akses microsoft (*. Mdb)}; Dbq = _ server.mappath
2 halaman Total halaman sebelumnya halaman berikutnya