ASP comment implémenter 3 colonnes et 5 rangées de table

Comment implémenter 3 colonnes et 5 rangées de tables? Je crois que ce problème a perplexe de nombreux amis, alors maintenant je vais vous expliquer la méthode d'implémentation de 3 colonnes et 5 lignes de table ASP en fonction de ce problème.

Plan 1

<%

Owen1 = request ("owen1")

Owen2 = demande ("OWEN2")

%>

<table width = "95%" border = "0" cellpadding = "0" cellpacing = "0">

<%

page = clng (demande ("page"))

Set rs = server.createObject ("adodb.recordSet")

Si owen1 <> "" et owen2 <> "" alors

SQL = "SELECT * From News Where bigClassName = '" & owen1 & "' et smallclassname = '" & owen2 & "' Order by Id Desc"

Rs.Open SQL, Conn, 1,1

elseif owen1 <> "" alors

SQL = "SELECT * From News Where bigClassName = '" & owen1 & "' Order by Id Desc"

Rs.Open SQL, Conn, 1,1

terminer si

Si Rs.Eof et Rs.Bof alors

Response.Write ("Pas encore d'enregistrement")

autre

%>

<%

Rs.PageSize = 15

Si page = 0 alors page = 1

pages = Rs.PageCount

Si page> pages alors page = pages

Rs.Absolutepage = Page

pour j = 1 à Rs.Pagesize

if (j-1) mod 3 = 0 alors réponse.write ("<tr>")

%>

<td height = "24" align = "Center">

<div align = "Center"> <img src = "uppic / <% = rs (" premierImageName ")%>" width = "130" height = "100" border = "0" /> <a href = "onews.asp? id = <% = rs (" id ")%>" cible = "_ blank"> <br>

<% = RS ("Title")%> </a> </div> </td>

<%

Si j mod 3 = 0 alors réponse.write ("</tr>")

Rs.MovEnext

Si Rs.Eof, sortez pour

suivant

%>

<%

terminer si

Rs.Close

Définir RS = rien

%>

</ table>

Plan II.

<%

Owen1 = request ("owen1")

Owen2 = demande ("OWEN2")

%>

<table width = "95%" border = "0" cellpadding = "0" cellpacing = "0">

<%

page = clng (demande ("page"))

Set rs = server.createObject ("adodb.recordSet")

Si owen1 <> "" et owen2 <> "" alors

SQL = "SELECT * From News Where bigClassName = '" & owen1 & "' et smallclassname = '" & owen2 & "' Order by Id Desc"

Rs.Open SQL, Conn, 1,1

elseif owen1 <> "" alors

SQL = "SELECT * From News Where bigClassName = '" & owen1 & "' Order by Id Desc"

Rs.Open SQL, Conn, 1,1

terminer si

Si Rs.Eof et Rs.Bof alors

Response.Write ("Pas encore d'enregistrement")

autre

%>

<%

Rs.PageSize = 15

Si page = 0 alors page = 1

pages = Rs.PageCount

Si page> pages alors page = pages

Rs.Absolutepage = Page

pour j = 1 à (Rs.PageSize / 3)

Réponse.write ("<tr>")

pour i = 1 à 3

%>

<td height = "24" align = "Center">

<div align = "Center"> <img src = "uppic / <% = rs (" premierImageName ")%>" width = "130" height = "100" border = "0" /> <a href = "onews.asp? id = <% = rs (" id ")%>" cible = "_ blank"> <br>

<% = RS ("Title")%> </a> </div> </td>

<%

Rs.MovEnext

Si Rs.Eof, sortez pour

suivant

Réponse.write ("</tr>")

suivant

%>

<%

terminer si

Rs.Close

Définir RS = rien

%>

</ table>

Le code ci-dessus présente ses inconvénients. ．

S'il y a 16 éléments, la dernière ligne de la page sera vide et deux colonnes seront vides. La page est moche car si la dernière ligne de 16 ne montre qu'une seule colonne, il y en aura deux <td> </td>

Le nombre total de chiffres restants doit être jugé / 3

if (Rs.RecordCount Mod 3 = 2) alors réponse.write ("<td> </td>")

if (Rs.RecordCount Mod 3 = 1) alors réponse.write ("<td> </td> <td> </td>")

De cette façon, la page est complète

C'est tout pour vous de présenter ASP à la façon d'implémenter les 3 colonnes et 5 lignes de la table. Êtes-vous également très ému? Si vous aspirez à apprendre ici, alors agissez rapidement.