Общая модификация ASP и добавление функционального кода

Автор：Eve Cole Время обновления：2025-03-17 19:48:02

Вообще говоря, основные проблемы, которые необходимо решить при написании программ баз данных, — это не что иное, как добавление, удаление, изменение и запрос. Этот тип программирования очень прост. Далее я потрачу немного свободного времени на создание функции, содержащей функции добавления и удаления. Экспериментальная архитектура может использовать базу данных 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 символов!');