La façon la plus commune pour afficher les données d'un jeu d'enregistrements, est d'afficher les données dans un tableau HTML.
Afficher les valeurs et les noms des champs sur le terrain
Nous avons une base de données nommée "Northwind" et nous voulons afficher les données de la "Customers" tableau (souvenez - vous d'enregistrer le fichier avec une extension .asp):
Exemple
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Customers", conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br>")
next
Response.Write("<br>")
rs.MoveNext
loop
rs.close
conn.close
%>
</body>
</html>Afficher les noms des champs et des valeurs de champ dans un tableau HTML
Nous pouvons également afficher les données de la "Customers" table à l' intérieur d' une table HTML avec les lignes suivantes (souvenez - vous d'enregistrer le fichier avec une extension .asp):
Exemple
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
%>
<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>Ajouter à la table en-têtes HTML
Nous voulons ajouter des en-têtes à la table HTML pour le rendre plus lisible (rappelez-vous d'enregistrer le fichier avec une extension .asp):
Exemple
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
autres exemples
Ajouter des couleurs à la table HTML
Comment ajouter des couleurs à la table HTML pour le faire paraître agréable.