Bagaimana cara mengimplementasikan 3 kolom dan 5 baris tabel? Saya percaya masalah ini telah membuat banyak teman, jadi sekarang saya akan menjelaskan kepada Anda metode menerapkan 3 kolom dan 5 baris tabel ASP berdasarkan masalah ini.
Rencana 1
Salin kode kode sebagai berikut: <!-#Sertakan file = "conn.asp"-><%
owen1 = request ("owen1")
owen2 = request ("owen2")
%>
<width tabel = "95%" border = "0" cellpadding = "0" cellpacing = "0">
<%
halaman = clng (permintaan ("halaman"))
Set RS = Server.CreateObject ("ADODB.Recordset")
Jika owen1 <> "" dan owen2 <> "" lalu
sql = "pilih * dari berita di mana bigclassname = '" & owen1 & "' dan smallclassname = '" & owen2 & "' '' '' ord by Id desc"
Rs.open SQL, Conn, 1,1
elseif owen1 <> "" Lalu
sql = "pilih * dari berita di mana bigclassname = '" & owen1 & "' '' '' ord by Id desc"
Rs.open SQL, Conn, 1,1
akhiri jika
Jika rs.eof dan rs.bof maka
response.write ("belum direkam")
kalau tidak
%>
<%
rs.pagesize = 15
Jika halaman = 0 maka halaman = 1
halaman = rs.pagecount
Jika halaman> halaman maka halaman = halaman
rs.Absolutepage = halaman
untuk j = 1 hingga rs.pagesize
if (j-1) mod 3 = 0 lalu response.write ("<tr>")
%>
<td tinggi = "24" align = "center">
<Div align = "center"> <img src = "Uppic /< %= rs (" firstImagename ") %>" width = "130" height = "100" border = "0" /> <a href = "onews.asp? id = < %= rs (" id ") %>" target = "_ _ <br>
< %= Rs ("judul") %> </a> </div> </td>
<%
Jika j mod 3 = 0 maka response.write ("</tr>")
rs.movenext
Jika rs.eof maka keluar untuk
Berikutnya
%>
<%
akhiri jika
rs.close
Setel RS = tidak ada
%>
</boable>
Rencana II.
Salinan kode adalah sebagai berikut: <!-#Sertakan file = "conn.asp"-><%
owen1 = request ("owen1")
owen2 = request ("owen2")
%>
<width tabel = "95%" border = "0" cellpadding = "0" cellpacing = "0">
<%
halaman = clng (permintaan ("halaman"))
Set RS = Server.CreateObject ("ADODB.Recordset")
Jika owen1 <> "" dan owen2 <> "" lalu
sql = "pilih * dari berita di mana bigclassname = '" & owen1 & "' dan smallclassname = '" & owen2 & "' '' '' ord by Id desc"
Rs.open SQL, Conn, 1,1
elseif owen1 <> "" Lalu
sql = "pilih * dari berita di mana bigclassname = '" & owen1 & "' '' '' ord by Id desc"
Rs.open SQL, Conn, 1,1
akhiri jika
Jika rs.eof dan rs.bof maka
response.write ("belum direkam")
kalau tidak
%>
<%
rs.pagesize = 15
Jika halaman = 0 maka halaman = 1
halaman = rs.pagecount
Jika halaman> halaman maka halaman = halaman
rs.Absolutepage = halaman
untuk j = 1 hingga (rs.pageSize/3)
Response.write ("<tr>")
untuk i = 1 hingga 3
%>
<td tinggi = "24" align = "center">
<Div align = "center"> <img src = "Uppic /< %= rs (" firstImagename ") %>" width = "130" height = "100" border = "0" /> <a href = "onews.asp? id = < %= rs (" id ") %>" target = "_ _ <br>
< %= Rs ("judul") %> </a> </div> </td>
<%
rs.movenext
Jika rs.eof maka keluar untuk
Berikutnya
Response.write ("</tr>")
Berikutnya
%>
<%
akhiri jika
rs.close
Setel RS = tidak ada
%>
</boable>
Kode di atas memiliki kelemahannya. ．
Jika ada 16 item, maka baris terakhir halaman akan kosong dan dua kolom akan kosong. Halaman ini jelek karena jika baris terakhir 16 hanya menunjukkan satu kolom, akan ada dua lebih sedikit <td> </td>
Jumlah total jumlah yang tersisa harus dinilai/3
if (rs.recordcount mod 3 = 2) lalu response.write ("<td> </td>")
if (rs.recordcount mod 3 = 1) lalu response.write ("<td> </td> <td> </td>")
Dengan cara ini halaman selesai
Ini semua bagi Anda untuk memperkenalkan ASP ke cara mengimplementasikan 3 kolom dan 5 baris tabel. Apakah Anda juga sangat tersentuh? Jika Anda ingin belajar di sini, maka ambil tindakan dengan cepat.