¿Cómo implementar 3 columnas y 5 filas de tablas? Creo que este problema ha perturbado a muchos amigos, por lo que ahora les explicaré el método de implementar 3 columnas y 5 filas de tabla ASP en función de este problema.
Plan 1
Copie el código del código de la siguiente manera: <!-#include file = "conn.asp"-><%
owen1 = request ("owen1")
owen2 = request ("owen2")
%>
<table width = "95%" border = "0" cellPadding = "0" CellPacing = "0">
<%
página = CLNG (request ("Página"))
Establecer rs = server.createObject ("ADODB.Recordset")
Si Owen1 <> "" y Owen2 <> "" entonces
sql = "Seleccionar * de News Where BigClassName = '" & Owen1 & "' y SmallClassName = '" & Owen2 & "' Orden por ID DESC"
Rs.open SQL, Conn, 1,1
elseif owen1 <> "" entonces
sql = "Seleccionar * de News Where BigClassName = '" & Owen1 & "' Orden por ID DESC"
Rs.open SQL, Conn, 1,1
final si
Si Rs.Eof y Rs.Bof entonces
Response.write ("No hay registro todavía")
demás
%>
<%
rs.pagesize = 15
si página = 0 entonces página = 1
páginas = Rs.PageCount
if página> páginas entonces página = páginas
Rs.AbsolutePage = Página
para j = 1 a rs.pagesize
if (j-1) mod 3 = 0 entonces respuesta.write ("<tr>")
%>
<td Height = "24" align = "Center">
<div align = "Center"> <img src = "uppic /< %= rs (" firstImageName ") %>" width = "130" altura = "100" border = "0" /> <a href = "onews.asp? Id = < %= rs (" id ") %>" objetivo = "_ en blanco"> <BR>
< %= Rs ("título") %> </a> </div> </td>
<%
Si J mod 3 = 0 entonces respuesta.write ("</tr>")
Rs.Movenext
Si rs.Eof entonces salga por
próximo
%>
<%
final si
rs.
establecer RS = nada
%>
</table>
Plan II.
La copia del código es la siguiente: <!-#include file = "conn.asp"-><%
owen1 = request ("owen1")
owen2 = request ("owen2")
%>
<table width = "95%" border = "0" cellPadding = "0" CellPacing = "0">
<%
página = CLNG (request ("Página"))
Establecer rs = server.createObject ("ADODB.Recordset")
Si Owen1 <> "" y Owen2 <> "" entonces
sql = "Seleccionar * de News Where BigClassName = '" & Owen1 & "' y SmallClassName = '" & Owen2 & "' Orden por ID DESC"
Rs.open SQL, Conn, 1,1
elseif owen1 <> "" entonces
sql = "Seleccionar * de News Where BigClassName = '" & Owen1 & "' Orden por ID DESC"
Rs.open SQL, Conn, 1,1
final si
Si Rs.Eof y Rs.Bof entonces
Response.write ("No hay registro todavía")
demás
%>
<%
rs.pagesize = 15
si página = 0 entonces página = 1
páginas = Rs.PageCount
if página> páginas entonces página = páginas
Rs.AbsolutePage = Página
para j = 1 a (rs.pagesize/3)
Response.write ("<tr>")
para i = 1 a 3
%>
<td Height = "24" align = "Center">
<div align = "Center"> <img src = "uppic /< %= rs (" firstImageName ") %>" width = "130" altura = "100" border = "0" /> <a href = "onews.asp? Id = < %= rs (" id ") %>" objetivo = "_ en blanco"> <BR>
< %= Rs ("título") %> </a> </div> </td>
<%
Rs.Movenext
Si rs.Eof entonces salga por
próximo
Response.write ("</tr>")
próximo
%>
<%
final si
rs.
establecer RS = nada
%>
</table>
El código anterior tiene sus inconvenientes. ．
Si hay 16 elementos, la última fila de la página estará vacía y dos columnas estarán vacías. La página es fea porque si la última fila de 16 solo muestra una columna, habrá dos menos <td> </td>
Se debe juzgar el número total del número restante/3
if (rs.RecordCount Mod 3 = 2) entonces Response.write ("<TD> </td>")
if (rs.RecordCount Mod 3 = 1) Entonces Response.Write ("<TD> </td> <td> </td>")
De esta manera la página está completa
Todo esto es para que usted introduzca ASP sobre cómo implementar las 3 columnas y 5 filas de la tabla. ¿Estás muy conmovido? Si anhela aprender aquí, tome medidas rápidamente.