Работа с базами данных

Для работы с базой обычно используется компонент ADO. Для иcпользования именованных констант компонента ADO следует подключить файл ADOVBS.INCс описанием этих констант командой:

Пример ASP‑страницы вывода в алфавитном порядке фамилий сотрудников с адресами в табличной форме из таблицы Sotrudniki базы Kadri (СУБД Access), выполняемой на сервере.

<HTML><HEAD><TITLE> Таблица сотрудников </TITLE></HEAD> <BODY>

<TR> <TD><B> Фамилия </TD><TD> Адрес</B> </TD> </TR><BR>

<% Set rs = Server.CreateObject(“ADODB.RecordSet“) 'создание объекта RS

rs.Open “Select Fam, Adress From Sotrudniki Order By Fam“,”DSN=Kadri”

Do Until rs.EOF ‘цикл чтения и формирования строк таблицы

Response.write(”<TR><TD>” & rs.Fields(“Fam”) & ”</TD>” & _ ‘колонка 1

“<TD>” & rs.Fields(“Adress”) & ”</TD></TR><BR>” ‘колонка 2

rs.MoveNext ‘переход к следующей записи таблицы

Loop ‘конец цикла чтения строк таблицы

rs.close: set rs = Nothing ‘закрытие набора

</TABLE> </BODY></HTML>

Пример добавления записей с помощью ASP и формы HTML. Вначале создадим форму для ввода данных о новом сотруднике. Атрибут Actionуказывает на файл AddSotrudniki.asp с текстом ASP‑страницы, которая и будет добавлять новую запись о сотруднике в базу.

<HTML><HEAD><TITLE> Добавление записей </TITLE></HEAD>

<BODY>

<FORM METHOD=post ACTION=“/Pleshev/AddSotrudniki.asp“

<P> Фамилия <INPUT TYPE=“text“ NAME=“ZFam“><BR>

Адрес <INPUT TYPE=“text“ NAME=“ZAdress“> <BR>

</FORM>

</BODY>

</HTML>

Создадим ASP‑страницу (файл AddSotrudniki.asp), которая будет переносить данные из формы в базу.

<HTML> <HEAD> <TITLE> Включение записей </TITLE></HEAD>

<BODY>

<% Set rs = Server.CreateObject(“ADODB.RecordSet“) 'создание объекта RS

Set cn = Server.CreateObject(“ADODB.Connection“) 'создание объекта CN

cn.Open ”DSN=Kadri;” : Set rs.ActiveConnection=cn

rs.CursorType=adOpenKeyset: rs.LockType=adLockOptimistic

rs.Source=”Sotrudniki” : rs.Open ‘открытие таблицы Sotrudniki

rs.AddNew ‘добавление пустой записи

rs.Fields(“Fam”)=Request.Form(“ZFam”) ‘ZFAM посылается в поле Fam

rs.Fields(“Adress”)=Request.Form(“ZAdress”) ‘ZAdress посылается в Adress

rs.Update ‘сохранение записи в таблице Sotrudniki

‘генерация страницы с результатами выполнения операции добавления

Response.write(rs.Fields(“Fam”) & “<BR>” & rs.Fields(“Adress”) & “<BR>” & _

”<P>Подтверждение сохранения записи </P>”)

rs.close: cn.close: set cn=Nothing : set rs=Nothing ‘закрытие набора

</BODY>

</HTML>

1.10. Визуальный редактор HTML‑документов Dreamweaver