Разработка INTRANET приложений

       

Организация работы с БД с помощью ASP


Для демонстрации вышеизложенного приведем пример ASP-страницы, которая устанавливает соединение с БД через ODBC, производит выборку и пересылает данные клиентскому броузеру.

<HTML> <BODY> <FONTFACE="MSSANSSERIF" SIZE=2> <FORMACTION="/advworks/ ........ " METHOD=POST> <!-- Установление соединения --> <% Setdb=Server.CreateObject("ADODB.Connection") db.Open "AWTutorial" ' имя БД в ODBC SQLQuery="SELECT * FROMCustomers" SetRScustomerList=db.Execute(SQLQuery) %> <!-- Формирование шапки выходной таблицы --> <TABLEWIDTH=600 BORDER=0> <TR> <TDALIGN=CENTERBGCOLOR="#800000">Название фирмы</TD> <TDALIGN=CENTERBGCOLOR="#800000">Фамилия, Имя</TD> <TDALIGN=CENTERWIDTH=150 BGCOLOR="#800000">Адрес E-mail</TD> <TDALIGN=CENTERBGCOLOR="#800000">Город</TD> <TDALIGN=CENTERBGCOLOR="#800000">Штат/Провинция</TD> </TR> <!-- Формирование строк выходной таблицы--> <% DoWhileNotRScustomerList.EOF %> <TR> <TDBGCOLOR="f7efde" ALIGN=CENTER> <%= RScustomerList("CompanyName")%> </TD> <TDBGCOLOR="f7efde" ALIGN=CENTER> <%= RScustomerList("ContactLastName") & ", " %> <%= RScustomerList("ContactFirstName") %> </TD> <TDBGCOLOR="f7efde" ALIGN=CENTER> <AHREF="mailto:"> <%= RScustomerList("ContactLastName")%> </A>< /TD> <TDBGCOLOR="f7efde" ALIGN=CENTER> <%= RScustomerList("City")%> </TD> <TDBGCOLOR="f7efde" ALIGN=CENTER> <%= RScustomerList("StateOrProvince")%> </TD> </TR> <% RScustomerList.MoveNext Loop %> </TABLE> </BODY> </HTML>



Содержание раздела