Код ASP для просмотра записей базы данных
Сначала ASP устанавливает соединение с базой данных.
<%
set dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open driver={Драйвер Microsoft Access (*.mdb)};dbq= & DBPath
Установите соединение с базой данных, как указано выше.
SQL=выбрать * из заказа клиента По времени DESC
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
Создайте оператор SQL-запроса для запроса всех записей из таблицы клиентов. Порядок по времени DESC означает сортировку по убыванию времени, чтобы последняя добавленная информация отображалась вверху. Следующее предложение выполняет запрос SQL и возвращает результаты в объект Recordset CustomerList.
<html>
<тело>
<FONT SIZE=5><center>Записи базы данных</center></FONT>
<ЦЕНТР>
<ГРАНИЦА ТАБЛИЦЫ=1>
<тр>
<td>Число</td>
<td>Название компании</td>
<td>Имя контактного лица</td>
<td>Город</td>
<td>Номер телефона</td>
</tr>
<% ДЕЛАТЬ ПОКА НЕ CustomerList.EOF %>
Проверьте, достигнута ли последняя запись. EOF означает конец файла.
<ТР>
<TD><% =CustomerList(номер клиента) %></TD>
<TD><% =CustomerList(название компании) %></TD>
<TD><% =CustomerList(Имя контакта) %></TD>
<TD><% =CustomerList(город) %></TD>
<TD><% =CustomerList(номер телефона) %></TD>
</TR>
Можно сказать, что <% =CustomerList(номер клиента) %> является аббревиатурой метода Response.Write. Запишите данные из поля номера клиента в пространство тегов TD.
<%CustomerList.movenext
петля
%>
Если последний элемент не был достигнут, указатель перемещается к следующему элементу. Используйте цикл Do While... для получения всех записей одну за другой.
</ТАБЛИЦА>
</ЦЕНТР>
<центр>
<input type=button onclick=javascript:location.href='add.htm' value=Добавить данные>
</центр>
</ТЕЛО>
</HTML>