v1. Hapus catatan
opendataconn 'Buka koneksi basis data
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'Dari dalam ke luar, variabel xxlb diterima, dan spasi di kedua ujung variabel dihilangkan. Lapisan terluar adalah fungsi khusus, yaitu mungkin terkait dengan penggantian.
id=changechr(request(id)) 'Terima id dan ubah menjadi string
ids=split(id,,) 'Pisahkan id berdasarkan, dan simpan ke id array
for i=0 to ubound(ids) 'Gunakan perulangan for untuk melintasi array
tt=trim(ids(i)) 'Hapus spasi di kedua ujung elemen array dan tetapkan ke tt
conn.executedelete dari rumah di mana id=&tt& 'Hapus catatan variabel id=tt di tabel data
berikutnya 'akhir loop
respon.redirect house.asp?xxlb=&xxlb& 'Lompat ke halaman beranda dan gunakan metode get untuk meneruskan parameter xxlb, nilainya adalah nilai variabel xxlb.
closedataconn menutup koneksi database
2. Hubungkan ke database
dim samb. 'Tentukan variabel
dim char_str(20) 'Tentukan array
sub OpenDataConn() 'Proses yang disesuaikan, lokasi database tautan pengguna
dim connstr mendefinisikan variabel
connstr = Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data=
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'String driver basis data
'response.write connstr menampilkan nilai variabel connstr
set conn=Server.CreateObject(AdoDb.Connection) 'Buat objek koneksi
samb.Buka constr 'Database tautan
end sub Kalimat ini adalah akhir dari proses, tetapi dilihat dari kode yang Anda posting, tidak ada awal.