Подключение к базе данных:
Ниже приведено эталонное содержание:
<%
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
%>
Откройте базу данных:
Ниже приведено эталонное содержание:
exec = select * из таблицы базы данных
Установить rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
Параметр 1, 1 для чтения
Прочитайте формат контента: <%= rs (поле)%>
Добавить программу обработки записей:
Ниже приведено эталонное содержание:
<%
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
name = request.form (field) Имя, Тел, сообщение, чтобы отправить значение поля
tel = request.form (field)
Сообщение = request.form (Field)
exec = вставьте в таблицу имя (поле) значения ('+field+') разделено запятой с запятой
conn.execute exec использует представление execute
Conn.close
установить conn = ничего
%>
Программа обработки поиска:
Ниже приведено эталонное содержание:
<%
name = request.form (field) name, tel - значение поля, установленное настройкой формы формы
tel = request.form (field)
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
exec = select * из таблицы, где name = '+field+' и tel =+field
Установить rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
%>
'Содержание страниц прошел поиск
<%
делать, пока не rs.eof
%> <TR>
<td> <%= rs (имя)%> </td>
<td> <%= rs (тел)%> </td>
<td> <%= rs (время)%> </td>
</tr>
<%
Rs.movenext
петля
%>
Удалить программу обработки записей:
Ниже приведено эталонное содержание:
<%
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
exec = delete * из имени таблицы, где number = & request.form (id)
conn.execute exec
%>
Изменить программу обработки записей:
Ниже приведено эталонное содержание:
<%
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
exec = select * из имени таблицы, где число = & request.form (id)
Установить rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,3 '1,3 изменен
Rs (name) = request.form (field) 'name, tel, сообщение - это значение поля, установленное подчинением формы
rs (tel) = request.form (field)
Rs (сообщение) = request.form (field)
Rs.Update
Rs.close
Установить RS = ничего
Conn.close
установить conn = ничего
%>
Изменить программу выполнения записи: введите страницу идентификационного номера >>> Экспорт соответствующих данных идентификатора >>>>>> Правообразованной программы обработки
Пример процедур обработки входа в систему:
Ниже приведено эталонное содержание:
<%
Dim ame, пароль
name = request.form (имя)
пароль = request.form (пароль)
Dim Exec, Conn, Rs
exec = select *из имени таблицы, где (name = '& field &' и password = '& field &')
Установить conn = server.createObject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)};
Установить rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn
Если не rs.eof, то
Rs.close
Conn.close
сеанс (проверен) = да
сеанс (проверка) = справа
response.redirect index.asp
еще
сеанс (проверен) = нет
сеанс (чек) = w
response.redirect login.asp
конец, если
%>
Каждая фоновая страница плюс:
<%, если не сеанс (проверен) = Да, тогда сеанс определяет проверенную строковую переменную
response.redirect login.asp
еще
%>