ASP menampilkan data dalam bentuk tabel, yang memfasilitasi keluaran konten multi-baris dan multi-kolom. 'Tentukan variabel
Redupkan cn,rs,Sql
Sql = pilih ID Pelanggan dari Pesanan
'Jumlah total catatan
Redupkan Jumlah Total
Setel cn = Server.CreateObject(ADODB.Connection)
cn.Open Provider=SQLOLEDB.1;ID Pengguna=sa;Katalog Awal=NorthWind;Sumber Data=.;Kata Sandi=;
Setel rs = Server.CreateObject(ADODB.Recordset)
rs.Buka SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Jika Jumlah Total = 0 Maka
Response.Write tidak memiliki keluaran yang dicatat.
Kalau tidak
Redupkan jj,nKiri,cKol
jj = 0
nKol = 415
nKiri = nKol- (TotalNomor Mod nKol)
Jika nKiri = nKol Maka nKiri = 0
Respon.Tulis <batas tabel><tr> & vbCrLf
Meskipun bukan rs.EOF
Respons.Tulis <td> & rs(ID Pelanggan) & </td> & vbCrLf
'Jika (jj Mod nCol) = (nCol - 1) Dan jj <> TotalNumber - 1 Lalu Respon.Tulis </tr><tr> & vbCrLf
'Jika (jj Mod nCol) = (nCol - 1) Dan jj = TotalNumber-1 Lalu Respon.Tulis </tr> & vbCrLf
Jika (jj Mod nCol) = (nCol - 1) Maka
Jika jj <> TotalNumber - 1 Lalu
Respon.Tulis </tr><tr> & vbCrLf
Kalau tidak
Respon.Tulis </tr> & vbCrLf
Akhiri Jika
Akhiri Jika
jj = jj + 1
rs.MoveNext
Pergi ke
Jika nKiri <> 0 Dan nKiri <> nKol Lalu
Jika nCol < TotalNumber Maka
Untuk i = 1 sampai nKiri
Respon.Tulis <td> </td> & vbCrLf
Berikutnya
Akhiri Jika
Respon.Tulis </tr> & vbCrLf
Akhiri Jika
Respon.Tulis </tabel>
Akhiri Jika
rs.Tutup
Setr=Tidak ada
cn.Tutup
Setel cn = Tidak ada
Respon.Akhir