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 客戶Order By 時間DESC
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
建立SQL查詢語句，表示從客戶表中查詢所有記錄，Order By 時間DESC表示以時間降序排序，這樣最後新增的資訊再最上面顯示。下面一句執行SQL查詢並將結果傳回給Recordset物件CustomerList。
<html>
<body>
<FONT SIZE=5><center>資料庫記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>編號</td>
<td>公司名稱</td>
<td>聯絡人姓名</td>
<td>所在城市</td>
<td>電話號碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
偵測記錄是否到了最後一筆。 EOF表示End of File。
<TR>
<TD><% =CustomerList(客戶編號) %></TD>
<TD><% =CustomerList(公司名稱) %></TD>
<TD><% =CustomerList(聯絡人姓名) %></TD>
<TD><% =CustomerList(所在城市) %></TD>
<TD><% =CustomerList(電話) %></TD>
</TR>
<% =CustomerList(客戶編號) %>可以說是Response.Write方法的簡寫。將客戶編號欄位內的資料寫入TD標籤間。
<% CustomerList.movenext
loop
%>
如果還沒到最後一條則指針會移到下一條。用Do While ... Loop循環逐一取得所有的記錄。
</TABLE>
</CENTER>
<center>
<input type=button onclick=javascript:location.href='add.htm' value=新增資料>
</center>
</BODY>
</HTML>