Корпоративные базы данных - статьи



         

Rates_edit.htx - часть 3


компоненты ввода/вывода в файл (чего, как мы помним, не было в
VBScript) и многие другие. Но нас в первую очередь будут интересовать
компоненты, позволяющие организовать доступ к базам данных, или
Active Data Objects (ADO).



Рис.10

В отличие от хорошо известных Data Access Objects
(DAO) или Remote Data Objects (RDO) ADO имеют менее иерархически
строгую структуру (см.рис.10) и потому более удобны при работе
с базами данных.

Например, публикация нашей таблицы с курсами валют
при помощи ASP и ADO может быть выполнена следующим образом.

Ratesado.asp

<% if IsObject(Session("conn"))
then

set c=Session("conn")

else

set c=Server.CreateObject("ADODB.Connection")

c.Open "rates","sa",""

set Session("conn")=c

end if

set RS=c.Execute("select
* from rates")%>

<!DOCTYPE HTML PUBLIC
"-//IETF//DTD HTML//EN">

<html>

<head>

<meta http-equiv="Content-Type"

content="text/html;
charset=windows-1251">

<meta name="GENERATOR"
content="Microsoft FrontPage 2.0">

<title>Курсы валют</title>

</head>

<body>

<p><font size="5"
face="Times New Roman CYR"><strong>Курсы

валют</strong></font></p>

<table border="1">

<tr>

<th align="left"><font
face="Times New Roman CYR">Код</font></th>

<th align="left"><font
face="Times New Roman CYR">Курс</font></th>

</tr>

<% do while not RS.EOF
%> <tr>

<td><%
id1=RS("id") %> <a

href="http://ntalexejs/aaa/ratesado_edit.asp?id1=<%=id1%>"><%=RS("kod")%></a></td>

<td><%=RS("kurs")%>
</td>

</tr>

<% RS.MoveNext

loop %></table>



Содержание  Назад  Вперед