データベースレコードを表示するための ASP コード
まず、ASP はデータベースとの接続を確立します。
<%
set dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
上記と同様に、データベースとの接続を確立します。
SQL=select * from customer Order By time DESC
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
customer テーブルのすべてのレコードをクエリする SQL クエリ ステートメントを作成します。 Order By time DESC は、最後に追加された情報が一番上に表示されるように、時間による降順で並べ替えることを意味します。次の文は SQL クエリを実行し、結果を Recordset オブジェクト CustomerList に返します。
<html>
<本文>
<FONT SIZE=5><center>データベース レコード</center></FONT>
<センター>
<テーブルボーダー=1>
<tr>
<td>番号</td>
<td>会社名</td>
<td>連絡先担当者名</td>
<td>都市</td>
<td>電話番号</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
最後のレコードに到達したかどうかを確認します。 EOF はファイルの終わりを意味します。
<TR>
<TD><% =CustomerList(顧客番号) %></TD>
<TD><% =顧客リスト(会社名) %></TD>
<TD><% =CustomerList(連絡先名) %></TD>
<TD><% =CustomerList(city) %></TD>
<TD><% =顧客リスト(電話番号) %></TD>
</TR>
<% =CustomerList(顧客番号) %> は、Response.Write メソッドの略称と言えます。顧客番号フィールドのデータを TD タグスペースに書き込みます。
<%CustomerList.movenext
ループ
%>
最後の項目に到達していない場合、ポインタは次の項目に移動します。すべてのレコードを 1 つずつ取得するには、Do While... ループを使用します。
</テーブル>
</センター>
<中央>
<input type=button onclick=javascript:location.href='add.htm' value=データを追加>
</center>
</BODY>
</HTML>