Beberapa hari yang lalu, beberapa netizen bertanya: Bagaimana cara menampilkan kumpulan data ASP ke dalam tampilan tabel dengan n 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.Buka "Penyedia=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.Tulis "Tidak ada keluaran yang dicatat."
'www.downcodes.com
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
Respon.Tulis "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) Dan jj <> TotalNumber - 1 Lalu Respon.Tulis "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) Dan jj = TotalNumber-1 Lalu Respon.Tulis "</tr>" & vbCrLf
Jika (jj Mod nKol) = (nKol - 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 "</table>"
Akhiri Jika
rs.Tutup
Setr=Tidak ada
cn.Tutup
Setel cn = Tidak ada
Respon.Akhir