Вообще говоря, основные проблемы, которые необходимо решить при написании программ баз данных, — это не что иное, как добавление, удаление, изменение и запрос. Этот тип программирования очень прост. Далее я потрачу немного свободного времени на создание функции, содержащей функции добавления и удаления. Экспериментальная архитектура может использовать базу данных ACCESS сервера IIS.5WEB. На самом деле мне не нужно вдаваться в подробности, потому что это должен знать каждый. Я просто опубликую функцию напрямую. Каждый может использовать его с небольшими изменениями.
Скопируйте код кода следующим образом:
<%
субадминредактирование()
dim Action,rsCheckAdd,rs,sql
Действие = запрос.QueryString (Действие)
если Action=SaveEdit, то 'Сохранить отредактированную информацию администратора
установите rs = server.createobject(adodb.recordset)
если Result=Add, то 'Создать администратора сайта
set rsCheckAdd = conn.execute(выберите AdminName из Ameav_Admin, где AdminName=' & Trim(Request.Form(AdminName)) & ')
если нет (rsCheckAdd.bof и rsCheckAdd.eof), то «Определите, существует ли это имя администратора».
response.write <script Language=JavaScript><!--
alert(' & Trim(Request.Form(AdminName)) & Администратор уже существует, попробуйте еще раз с другим именем для входа!');history.back(-1);
// --></скрипт>
ответ.конец
конец, если
sql=выбрать * из Ameav_Admin
rs.open sql,conn,1,3
rs.addnew
если len(trim(Request.Form(AdminName)))<3 или len(trim(Request.Form(Пароль)))>10, то
response.write <script Language=javascript><!--
alert('Требуется имя администратора, количество символов должно быть от 3 до 10 символов!');history.back(-1);
// --></скрипт>
ответ.конец
конец, если
если len(trim(Request.Form(Пароль)))<6 или len(trim(Request.Form(Пароль)))>16, то
response.write <script Language=javascript><!--
alert('Требуется пароль администратора, количество символов должно быть от 6 до 16 символов!');history.back(-1);
// --></скрипт>
ответ.конец
конец, если
если Запрос.Форма(Пароль)<>Запрос.Форма(vПароль) то
response.write <script Language=javascript><!--
alert('Пароли, введенные дважды, разные!');history.back(-1);
// --></скрипт>
ответ.конец
конец, если
rs(AdminName)=trim(Request.Form(AdminName))
если Request.Form(Working)=1, то
rs(Работает)=Запрос.Форма(Работает)
еще
rs(Рабочий)=0
конец, если
rs(Пароль)=Md5(Запрос.Форма(Пароль))
rs(ИмяПользователя)=trim(Request.Form(ИмяПользователя))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Запрос.Форма(Purview114) & Запрос.Форма(Purview115) & Запрос.Форма(Purview116) &_
Запрос.Форма(Purview117) & Запрос.Форма(Purview118) & Запрос.Форма(Purview119) &_
Запрос.Форма(Purview120) & Запрос.Форма(Purview121) & Запрос.Форма(Purview122) &_
Запрос.Форма(Purview123) & Запрос.Форма(Purview124) & Запрос.Форма(Purview125) &_
Запрос.Форма(Purview126) & Запрос.Форма(Purview127) & Запрос.Форма(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Запрос.Форма(Purview132) & Запрос.Форма(Purview133) & Запрос.Форма(Purview134) &_
Запрос.Форма(Purview135) & Запрос.Форма(Purview136) & Запрос.Форма(Purview137) &_
Запрос.Форма(Purview138) & Запрос.Форма(Purview139) & Запрос.Форма(Purview140) &_
Запрос.Форма(Purview141) & Запрос.Форма(Purview142) & Запрос.Форма(Purview143) &_
Запрос.Форма(Purview144) & Запрос.Форма(Purview145) & Запрос.Форма(Purview146) &_
Запрос.Форма(Purview147) & Запрос.Форма(Purview148) & Запрос.Форма(Purview149) &_
Запрос.Форма(Purview150) & Запрос.Форма(Purview151) & Запрос.Форма(Purview152) &_
Request.Form(Purview153)
rs(Объяснение)=обрезка(Запрос.Форма(Объяснение))
rs(AddTime)=сейчас()
конец, если
если Результат = Изменить, то «Изменить администратора веб-сайта».
sql=select * из Ameav_Admin, где ID=&ID
rs.open sql,conn,1,3
rs(AdminName)=trim(Request.Form(AdminName))
если Request.Form(Working)=1, то
rs(Работает)=Запрос.Форма(Работает)
еще
rs(Рабочий)=0
конец, если
если обрезка(Запрос.Форма(Пароль))<> тогда
если len(trim(Request.Form(Password)))<6 или len(trim(Request.Form(Password)))>20, то
response.write <script Language=javascript><!--
alert('Требуется пароль администратора, он должен состоять из 6-20 символов!');
// --></скрипт>
ответ.конец
конец, если
если Запрос.Форма(Пароль)<>Запрос.Форма(vПароль) то
response.write <script Language=javascript><!--
alert('Пароли, введенные дважды, разные!');history.back(-1);
// --></скрипт>
ответ.конец
конец, если
rs(Пароль)=Md5(Запрос.Форма(Пароль))
конец, если
rs(ИмяПользователя)=trim(Request.Form(ИмяПользователя))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Запрос.Форма(Purview114) & Запрос.Форма(Purview115) & Запрос.Форма(Purview116) &_
Запрос.Форма(Purview117) & Запрос.Форма(Purview118) & Запрос.Форма(Purview119) &_
Запрос.Форма(Purview120) & Запрос.Форма(Purview121) & Запрос.Форма(Purview122) &_
Запрос.Форма(Purview123) & Запрос.Форма(Purview124) & Запрос.Форма(Purview125) &_
Запрос.Форма(Purview126) & Запрос.Форма(Purview127) & Запрос.Форма(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Запрос.Форма(Purview132) & Запрос.Форма(Purview133) & Запрос.Форма(Purview134) &_
Запрос.Форма(Purview135) & Запрос.Форма(Purview136) & Запрос.Форма(Purview137) &_
Запрос.Форма(Purview138) & Запрос.Форма(Purview139) & Запрос.Форма(Purview140) &_
Запрос.Форма(Purview141) & Запрос.Форма(Purview142) & Запрос.Форма(Purview143) &_
Запрос.Форма(Purview144) & Запрос.Форма(Purview145) & Запрос.Форма(Purview146) &_
Запрос.Форма(Purview147) & Запрос.Форма(Purview148) & Запрос.Форма(Purview149) &_
Запрос.Форма(Purview150) & Запрос.Форма(Purview151) & Запрос.Форма(Purview152) &_
Request.Form(Purview153)
rs(Объяснение)=обрезка(Запрос.Форма(Объяснение))
конец, если
RS.обновление
RS.закрыть
установить rs=ничего
response.write <script Language=javascript><!--
alert('Администратор веб-сайта успешно изменен!'); ChangeAdminFlag('Администратор веб-сайта'); location.replace('AdminList.asp');
// --></скрипт>
else 'Извлечь информацию об администраторе
если Результат=Изменить, то
установите rs = server.createobject(adodb.recordset)
sql=select * из Ameav_Admin, где ID=& ID
rs.open sql,conn,1,1
AdminName=rs(ИмяАдминистратора)
Рабочий=rs(Работающий)
Имя пользователя=rs(Имя пользователя)
Purview=rs(AdminPurview)
Объясните=rs(Объясните)
RS.закрыть
установить rs=ничего
конец, если
конец, если
конец субтитра
%>