ASP-Code zum Anzeigen von Datenbankeinträgen
Zunächst stellt ASP eine Verbindung mit der Datenbank her.
<%
set dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open drivers={Microsoft Access Driver (*.mdb)};dbq= & DBPath
Stellen Sie wie oben beschrieben eine Verbindung mit der Datenbank her.
SQL=select * from customer Order By time DESC
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
Erstellen Sie eine SQL-Abfrageanweisung, um alle Datensätze aus der Kundentabelle abzufragen. Reihenfolge nach Zeit. DESC bedeutet, dass in absteigender Reihenfolge nach Zeit sortiert wird, sodass die zuletzt hinzugefügten Informationen oben angezeigt werden. Der folgende Satz führt die SQL-Abfrage aus und gibt die Ergebnisse an das Recordset-Objekt CustomerList zurück.
<html>
<Körper>
<FONT SIZE=5><center>Datenbankeinträge</center></FONT>
<MITTE>
<TABLE BORDER=1>
<tr>
<td>Nummer</td>
<td>Firmenname</td>
<td>Name der Kontaktperson</td>
<td>Stadt</td>
<td>Telefonnummer</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
Prüfen Sie, ob der letzte Datensatz erreicht wurde. EOF bedeutet Dateiende.
<TR>
<TD><% =CustomerList(Kundennummer) %></TD>
<TD><% =CustomerList(Firmenname) %></TD>
<TD><% =CustomerList(Kontaktname) %></TD>
<TD><% =CustomerList(city) %></TD>
<TD><% =CustomerList(phone number) %></TD>
</TR>
<% =CustomerList(customer number) %> kann als Abkürzung für die Response.Write-Methode bezeichnet werden. Schreiben Sie die Daten im Kundennummernfeld in den TD-Tag-Bereich.
<%CustomerList.movenext
Schleife
%>
Wenn das letzte Element nicht erreicht wurde, bewegt sich der Zeiger zum nächsten Element. Verwenden Sie die Do While...-Schleife, um alle Datensätze einzeln abzurufen.
</TABLE>
</CENTER>
<Mitte>
<input type=button onclick=javascript:location.href='add.htm' value=Daten hinzufügen>
</center>
</BODY>
</HTML>