Die häufigste Art und Weise Daten aus einer Datensatz angezeigt werden, werden die Daten in einer HTML-Tabelle angezeigt werden soll.
Zeigen Sie die Feldnamen und Feldwerte
Wir haben eine Datenbank mit dem Namen "Northwind" und wir wollen die Daten aus der anzuzeigen "Customers" Tabelle (erinnern Sie die Datei mit einer Erweiterung ASP zu sparen):
Beispiel
<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>Zeigen Sie die Feldnamen und Feldwerte in einer HTML-Tabelle
Wir können auch die Daten aus der Anzeige "Customers" Tabelle mit den folgenden Zeilen innerhalb einer HTML - Tabelle ( nicht vergessen , die Datei mit einer Erweiterung ASP zu sparen):
Beispiel
<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>In Header der HTML-Tabelle
Wir wollen Header der HTML-Tabelle hinzufügen, um sie besser lesbar (nicht vergessen, die Datei mit einer Erweiterung ASP zu sparen):
Beispiel
<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>
Mehr Beispiele
Bringen Sie Farbe in der HTML - Tabelle
Wie Farben auf die HTML-Tabelle hinzufügen, um es schön aussehen zu lassen.