Автор: Qing Apple Computer Studio
Первая остановка в этом примере - страница ASP. Эта страница ASP связана с базой данных ADO и Northwind. Чтобы поддерживать хорошую привычку кодирования, я
Опция была использована и четко объявлена всеми переменными. Первый черновик этой страницы ASP использует внутренний код.
< % @ Language = vbscript %>
< %
Пример встроенного кода
опция явная
'Объявите переменные
Dim oconn
Dim ors
Dim ConnectionString
Dim x
ConnectionString = dsn = северная сторона;
Установить oconn = server.createObject (adodb.connection)
oconn.open ConnectionString
setrs = server.createObject (adodb.oldset)
'Установить переменные
OndeConnection = oconn
C C C C
OND.Open
%>
<html>
<голова>
<meta http-equiv = content-type content = text/html;
<TILE> Новая страница 1 < /title>
< /head>
<тело>
<h1> Продукты < /h1>
<Таблица Cell -Spacing = 2 cellPadding = 5>
<trbgcolor =#ff6666>
<Th> Название продукта < /th>
<Th> Количество на Unitr < /th>
<Th> цена < /th>
< /tr>
< %
Сделать Unil om.eof
Если x = 1, тогда
x = 0
%>
<trbgcolor =#ffcccc>
< % Else %>
<tr>
< %
x = 1
конец, если
%>
<td> < % = ors (productName) %> < /td>
<td> < % = ors (uclietyperunit) %> < /td>
<td> < % = ors (Unitprice) %> < /td>
< /tr>
< %
Ondenext
петля
%>
< /table>
< /body>
< /html>
< %
'Уничтожить объекты
setrs = ничего
установить oconn = ничего
%>