Учебное пособие по ASP: некоторые необходимые знания для каждого программиста ASP

Учебное пособие по ASP: некоторые необходимые знания для каждого программиста ASP

Подключение к базе данных:

Ниже приводится цитируемое содержание:

<%

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

%>

Откройте базу данных:

Ниже приводится цитируемое содержание:

exec=выбрать * из таблицы базы данных

установить rs=server.createobject(adodb.recordset)

rs.open exec,conn,1,1

Параметр 1, 1 считывается

Чтение формата содержимого: <%=rs(field)%>

Добавляем обработчик записи:

Ниже приводится цитируемое содержание:

<%

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

name=request.form(field) name, tel, message — значения полей, заданные для отправки формы

тел=request.form(поле)

сообщение = request.form (поле)

exec=вставить в таблицу значения имени (поля) ('+field+'), кратные через запятую

conn.execute exec использует выполнение для отправки

конн.закрыть

установить соединение = ничего

%>

Обработчик поиска:

Ниже приводится цитируемое содержание:

<%

name=request.form(field) name,tel — значения полей, заданные для отправки формы

тел=request.form(поле)

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

exec=select * из таблицы, где name='+field+' и tel=+field

установить rs=server.createobject(adodb.recordset)

rs.open exec,conn,1,1

%>

'Экспортируем содержимое, найденное на странице

<%

делай, пока не rs.eof

%><tr>

<td><%=rs(name)%></td>

<td><%=rs(tel)%></td>

<td><%=rs(time)%></td>

</tr>

<%

rs.movenext

петля

%>

Удалить обработчик записи:

Ниже приводится цитируемое содержание:

<%

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

exec=delete * из имени таблицы, где номер=&request.form(id)

conn.execute exec

%>

Измените обработчик записи:

Ниже приводится цитируемое содержание:

<%

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

exec=select * из имени таблицы, где номер=&request.form(id)

установите rs=server.createobject(adodb.recordset)

rs.open exec,conn,1,3 '1,3 — изменить значение

rs(name)=request.form(field) 'name,tel,message — это значения полей, заданные для отправки формы

rs(тел)=request.form(поле)

rs(сообщение)=request.form(поле)

RS.обновление

RS.закрыть

установить rs=ничего

конн.закрыть

установить соединение = ничего

%>

Программа выполнения модификации записи: Страница ввода идентификационного номера>>>>Экспорт соответствующих идентификационных данных>>>>>>Процессор для прямой модификации

Пример фонового обработчика входа в систему:

Ниже приводится цитируемое содержание:

<%

туманное имя, пароль

имя = запрос.форма (имя)

пароль = request.form (пароль)

dim exec, conn, rs

exec=select *from имя таблицы где(name='&field&' и пароль='&field&')

set conn=server.createobject(adodb.connection)

conn.open driver={драйвер доступа Microsoft (*.mdb)};dbq=&server.mappath(имя базы данных)

установить rs=server.createobject(adodb.recordset)

RS.open исполнительный, конн

если не rs.eof, то

rs.Close

конн.Закрыть

сеанс (проверено) = да

сеанс (проверка) = правильно

ответ.Перенаправление index.asp

еще

сеанс (проверено) = нет

сеанс (проверка) = неправильно

ответ.Перенаправление login.asp

конец, если

%>

Добавьте на каждую серверную страницу:

<%if not session(checked)=yes then 'определить проверенную строковую переменную в сеансе

ответ.Перенаправление login.asp

еще

%>