Работа с базами данных
Для работы с базой обычно используется компонент ADO. Для иcпользования именованных констант компонента ADO следует подключить файл ADOVBS.INCс описанием этих констант командой:
<!-- #INCLUDE FILE=“ADOVBS.INC“-->
Пример ASP‑страницы вывода в алфавитном порядке фамилий сотрудников с адресами в табличной форме из таблицы Sotrudniki базы Kadri (СУБД Access), выполняемой на сервере.
<!-- #include file=“adovbs.inc“-->
<HTML><HEAD><TITLE> Таблица сотрудников </TITLE></HEAD> <BODY>
<TABLE BORDER> <!-- заголовок таблицы-->
<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>
<INPUT TYPE=“submit“ NAME=“Save“ Value=“Сохранить“ </P>
</FORM>
</BODY>
</HTML>
Создадим ASP‑страницу (файл AddSotrudniki.asp), которая будет переносить данные из формы в базу.
<!-- #include file=“adovbs.inc“-->
<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
Дата добавления: 2015-04-15; просмотров: 679;