ADO -Display
Die gebräuchlichste Methode zum Anzeigen von Daten aus einem Recordset besteht darin, die Daten in einer HTML-Tabelle anzuzeigen.
Zeigen Sie die Feldnamen und Feldwerte an
Wir haben eine Datenbank namens "Northwind" und möchten die Daten aus der Tabelle "Kunden" anzeigen (denken Sie daran, die Datei mit der Erweiterung .asp zu speichern):
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 an
Wir können die Daten aus der Tabelle „Kunden“ auch in einer HTML-Tabelle mit den folgenden Zeilen anzeigen (denken Sie daran, die Datei mit der Erweiterung .asp zu speichern):
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>
Kopfzeilen zur HTML-Tabelle hinzufügen
Wir möchten der HTML-Tabelle Kopfzeilen hinzufügen, um sie besser lesbar zu machen (denken Sie daran, die Datei mit der Erweiterung .asp zu speichern):
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
hinzufügen So fügen Sie der HTML-Tabelle Farben hinzu, damit sie gut aussieht.