Учебное пособие по 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
еще
%>