Kode ASP untuk melihat catatan database
Pertama, ASP membuat koneksi dengan database.
<%
setel dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(pelanggan.mdb)
dbconnection.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
Buat koneksi dengan database, sama seperti di atas.
SQL=pilih * dari pesanan pelanggan Berdasarkan waktu DESC
SET Daftar Pelanggan=dbconnection.EXECUTE(SQL)
%>
Buat pernyataan kueri SQL untuk menanyakan semua catatan dari tabel pelanggan. Pesan Berdasarkan waktu DESC berarti mengurutkan dalam urutan waktu, sehingga informasi yang terakhir ditambahkan ditampilkan di bagian atas. Kalimat berikut mengeksekusi query SQL dan mengembalikan hasilnya ke objek Recordset CustomerList.
<html>
<tubuh>
<FONT SIZE=5><center>Catatan basis data</center></FONT>
<PUSAT>
<BATAS TABEL=1>
<tr>
<td>Nomor</td>
<td>Nama perusahaan</td>
<td>Nama orang yang dapat dihubungi</td>
<td>Kota</td>
<td>Nomor telepon</td>
</tr>
<% LAKUKAN SAAT BUKAN CustomerList.EOF %>
Periksa apakah rekor terakhir telah tercapai. EOF berarti Akhir File.
<TR>
<TD><% =Daftar Pelanggan(nomor pelanggan) %></TD>
<TD><% =Daftar Pelanggan(nama perusahaan) %></TD>
<TD><% =Daftar Pelanggan(Nama kontak) %></TD>
<TD><% =Daftar Pelanggan(kota) %></TD>
<TD><% =Daftar Pelanggan(nomor telepon) %></TD>
</TR>
<% =CustomerList(customer number) %> dapat dikatakan sebagai singkatan dari metode Response.Write. Tulis data di kolom nomor pelanggan ke ruang tag TD.
<%Daftar Pelanggan.movenext
lingkaran
%>
Jika item terakhir belum tercapai, penunjuk berpindah ke item berikutnya. Gunakan Do While... Loop untuk mendapatkan semua record satu per satu.
</TABEL>
</PUSAT>
<tengah>
<tipe input=tombol onclick=javascript:location.href='add.htm' value=Tambahkan data>
</pusat>
</BODI>
</HTML>