Hari ini kita akan menulis program papan pesan dengan fungsi manajemen. Yang disebut fungsi manajemen sebenarnya berarti terdapat kotak pilihan di depan setiap pesan. Klik pada pesan yang akan dihapus, atau klik "Hapus semua pesan" untuk menyelesaikan penghapusan batch. Melalui contoh ini, kita dapat memiliki pemahaman awal tentang operasi dasar database di ASP.
1. Buat database (ACCESS2000 versi Cina)
tipe teks myid 20 byte Ini adalah satu-satunya tanda ucapan
namaku ketik teks 10 byte Ini adalah nama orang yang meninggalkan pesan
nowtime date/time type Waktu pesan dicatat di sini
tipe teks mytitle 30 byte Ini adalah judul pesan
mybody mengomentari isi pesan
Bidang myid adalah kuncinya, itu adalah satu-satunya tanda penghapusan.
2. Program manajemen
kode Manage.asp
'Tentukan variabel terlebih dahulu
daftar redup, samb., cmd
'Jumlah siklus i dapat diubah sesuai dengan jumlah pesan sebenarnya
untuk i=1 sampai 100
jika permintaan("delit"&i)<>kosongkan maka
'Pernyataan di atas adalah bagian kuncinya. Periksa apakah pesan ke-i dipilih. Jika dipilih, lakukan operasi penghapusan berikut.
Setel samb = Server.CreateObject("ADODB.Connection")
sConnection = "Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data="&Server.MapPath("buku tamu.mdb")&";"
'Fungsi mappath menggunakan parameter guestbook.mdb, yang menunjukkan database yang akan dihubungkan.
samb.Buka sConnection
'Hubungkan kembali tabel data
set cmd=Server.Buatobjek("ADODB.Perintah")
atur cmd.activeconnection=sambungan
cmd.commandtext="hapus dari tamu di mana myid='"&request("delit"&i)&"'"
'Tamu di atas adalah nama tabel dari tabel data, dan myid adalah nama field
cmd.eksekusi
setel samb=Tidak ada
atur cmd=Tidak ada
'Jalankan instruksi SQL dan lepaskan objek
berakhir jika
Berikutnya
'Keluarkan formulir, perhatikan bahwa atribut tindakan menunjuk ke kelola.asp
respon.tulis ""
'Hubungkan ke basis data
setel samb=Server.CreateObject("ADODB.Connection")
set listrs=server.createobject("ADODB.Recordset")
sConnection = "Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data="&Server.MapPath("buku tamu.mdb")&";"
samb.Buka sConnection
listrs.open "pilih * dari tamu", samb.,2,2
'Tabel tamu database dibuka di atas
saya=1
'Variabel saya mulai menghitung
sementara bukan listrs.eof
respon.tulis "Dari:"&listrs("nama saya")&"----"&listrs("judul saya")&"Waktu:"&listrs("sekarang")&"
"&listrs("tubuh saya")&"
"
saya=saya+1
'Dua langkah di atas adalah poin-poin penting. Saat mengeluarkan setiap pesan, keluarkan kotak centang. Fungsi kotak ini adalah untuk mengembalikan nilai yang berbeda ketika dicentang atau tidak.
listrs.movenext
pergi ke
setel listrs=Tidak ada
'Tombol kirim keluaran dan bendera akhir formulir
respon.tulis
3. Analisis kode
Kode ini tidak mudah dimengerti, jadi izinkan saya menjelaskannya:
1. Saat program dijalankan untuk pertama kalinya, jika request("delit"&i)<>empty maka selalu mengembalikan nilai salah karena kotak centang tidak dipilih, dan kemudian semua pesan dikeluarkan.
2. Setelah memilih pesan yang akan dihapus, tekan "tombol Hapus" dan jalankan kembali.
3. Setelah menghapus semua pesan yang dipilih, tampilkan papan pesan.