Уральский социально-экономический институт
Академии труда и социальных отношений
/>/>/>Кафедра прикладной информатики
/>/>/>
Пояснительная записка к курсовой работе
/>/>/>По курсу: «Мировыеинформационные ресурсы»
/>/>/>На тему: «Рассылка»
Выполнил:
Дружков Павел Анатольевич
Специальность:
Прикладная информатика (вэкономике)
Группа: ИД-301
Проверил:
Мадудин Владимир Николаевич
Челябинск 2006
Аннотация
В данном документе представленотчет по курсовой работе по курсу: «Мировые информационные ресурсы» натему: «Рассылка». Отчет содержит в себе описание поставленной задачи,этапы выполнения курсовой работы, код на языках программирования: ASP (VBScript,FSO, ADO), JScript, PWS/IIS, а также иллюстрации.
Описание возможности приложения
Подписка на рассылку.
/>
Для подписки на рассылку необходимообязательно ввести Ваш E-mail. Длярегистрации, необходимо нажать на кнопку ‘OK’. Кнопка‘Сброс’ очищает все поля. После нажатия вы перейдете на следующую страницу,которая имеет вид:
/>
На форме отображаются Ваш E-mail и темы, на которые выподписались.
Ввод рассылки.
Пользователю предоставляетсявозможность выбора темы и ввода сообщения.
/>
Сама же страница выглядит так:
/>
после нажатия кнопки “OK" Вы увидите следующую страничку:
/>
Хранение данных.
Все данные хранятся в базеданных: ”Рассылка" и имеют вид:
/>
Таблица Подписчики:
/>
Таблица Рассылка:
/>
Тестирование программы
/>
/>
Код приложения
Файл ras. asp
Курсоваяработа
functioncheckValid () {
var p =document. form;
if (p. Usermail.value == "") {
alert («Поле[E-mail] — обязательно, заполните его»);
p. Usermail. focus();
return (false);
}
return (true);
}
Рассылка
Подпишитесьна интересующие Вас рассылки:
ВведитеВаш E-mail:
Автомобили
Компьютеры
Спорт
Музыка
Файл ras_A. asp
Курсоваяработа
подтверждение подписки
Response. Write«Вы подписались на следующие рассылки: » & ""& vbCrLf
Response. Write""
Tema1 = Request.Form («chk1»)
Tema2 = Request.Form («chk2»)
Tema3 = Request.Form («chk3»)
Tema4 = Request.Form («chk4»)
if Tema1 "" Then
Response. WriteTema1 & "" & vbCrLf
end if
if Tema2 "" Then
Response. WriteTema2 & "" & vbCrLf
end if
if Tema3 "" Then
Response. WriteTema3 & "" & vbCrLf
end if
if Tema4 "" Then
Response. WriteTema4 & "" & vbCrLf
end if
%>
Response. Write"На почтовый ящик: " & vbCrLf
Response. Write""
Result =Request. Form («Usermail»)
Response. WriteResult & "" & vbCrLf
DimDBConn,RS,ConnStr,SQL
Set DBConn =Server. CreateObject («ADODB. Connection»)
Set RS = Server.CreateObject («ADODB. RecordSet»)
ConnStr =«Provider=Microsoft. Jet. OLEDB.4.0; Data Source=» & Server. MapPath(«data/Рассылка. mdb»)
DBConn. OpenConnStr
RS. ActiveConnection= DBConn
Usermail = Trim(Request. Form («Usermail»))
chk = Trim (Request.Form («Tema»))
Usermail =REPLACE (Usermail, "
Usermail =REPLACE (Usermail, "'", "")
Usermail =REPLACE (Usermail, ">", "")
rs. locktype =2
rs. open «select* from подписчики»
rs. addnew
rs («Usermail»)= Usermail
rs («Tema1»)= Tema1
rs («Tema2»)= Tema2
rs («Tema3»)= Tema3
rs («Tema4»)= Tema4
rs. update
rs. close
%>
Спасибоза регистрацию.
Ваши данныеуспешно внесены в список пользователей
На первую страницу
Файл ras_B
Курсоваяработа
functioncheckValid () {
var p =document. form;
if (p. Message.value == "") {
alert («Введитепожайлуста [Новость] „);
p. Message. focus();
return (false);
}
return (true);
}
Рассылка
вводновостей:
выберите тему:
Автомобили
Компьютер
Спорт
Музыка
новость:
Файлras_C
Курсоваяработа
подтверждение
DimDBConn,RS,ConnStr,SQL
Set DBConn =Server. CreateObject («ADODB. Connection»)
Set RS = Server.CreateObject («ADODB. RecordSet»)
ConnStr =«Provider=Microsoft. Jet. OLEDB.4.0; Data Source=» & Server. MapPath(«data/Рассылка. mdb»)
DBConn. OpenConnStr
RS. ActiveConnection= DBConn
Tema = Trim (Request.Form («Tema»))
Message = Trim(Request. Form («Message»))
Message =REPLACE (Message, "
Message =REPLACE (Message, "'", "")
Message =REPLACE (Message, ">", "")
rs. locktype =2
rs. open «select* from Рассылка»
rs. addnew
rs («Tema»)= Tema
rs («Message»)= Message
rs. update
rs. close
%>
Ваша новостьбыла записана в список рассылок
На первую страницу
Заключение
При разработке данногоприложения были использованы возможности программирования на языке ASP, который позволяет обрабатывать данные на стороне сервера.