Code ASP pour afficher les enregistrements de la base de données
Tout d'abord, ASP établit une connexion avec la base de données.
<%
définir dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath (client.mdb)
dbconnection.Open driver={Pilote Microsoft Access (*.mdb)};dbq= & DBPath
Établissez une connexion avec la base de données, comme ci-dessus.
SQL=select * du client Ordre par heure DESC
SET CustomerList = dbconnection.EXECUTE (SQL)
%>
Créez une instruction de requête SQL pour interroger tous les enregistrements de la table client. Order By time DESC signifie trier par ordre décroissant par heure, afin que les dernières informations ajoutées soient affichées en haut. La phrase suivante exécute la requête SQL et renvoie les résultats à l'objet Recordset CustomerList.
<html>
<corps>
<FONT SIZE=5><center>Enregistrements de base de données</center></FONT>
<CENTRE>
<BORDURE TABLE=1>
<tr>
<td>Numéro</td>
<td>Nom de l'entreprise</td>
<td>Nom de la personne à contacter</td>
<td>Ville</td>
<td>Numéro de téléphone</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
Vérifiez si le dernier enregistrement a été atteint. EOF signifie Fin du fichier.
<TR>
<TD><% =ListeClient(numéro client) %></TD>
<TD><% =ListeClients(nom de l'entreprise) %></TD>
<TD><% =ListeClients(Nom du contact) %></TD>
<TD><% =ListeClients(ville) %></TD>
<TD><% =ListeClients(numéro de téléphone) %></TD>
</TR>
<% =CustomerList(customer number) %> peut être considéré comme l'abréviation de la méthode Response.Write. Écrivez les données dans le champ du numéro de client dans l'espace d'étiquette TD.
<%CustomerList.movenext
boucle
%>
Si le dernier élément n'a pas été atteint, le pointeur se déplace vers l'élément suivant. Utilisez Do While... Loop pour obtenir tous les enregistrements un par un.
</TABLE>
</CENTRE>
<centre>
<input type=button onclick=javascript:location.href='add.htm' value=Ajouter des données>
</centre>
</CORPS>
</HTML>