Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Уральский социально-экономический институт

Академии труда и социальных отношений

Кафедра прикладной информатики

Пояснительная записка к курсовой работе

По курсу: "Мировые информационные ресурсы"

На тему: "Рассылка"

Выполнил:

Дружков Павел Анатольевич

Специальность:

Прикладная информатика (в экономике)

Группа: ИД-301

Проверил:

Мадудин Владимир Николаевич

Челябинск 2006

Аннотация

В данном документе представлен отчет по курсовой работе по курсу: "Мировые информационные ресурсы" на тему: "Рассылка". Отчет содержит в себе описание поставленной задачи, этапы выполнения курсовой работы, код на языках программирования: ASP (VBScript, FSO, ADO), JScript, PWS/IIS, а также иллюстрации.

Описание возможности приложения

Подписка на рассылку.

Для подписки на рассылку необходимо обязательно ввести Ваш E-mail. Для регистрации, необходимо нажать на кнопку ‘OK’. Кнопка ‘Сброс’ очищает все поля. После нажатия вы перейдете на следующую страницу, которая имеет вид:

На форме отображаются Ваш E-mail и темы, на которые вы подписались.

Ввод рассылки.

Пользователю предоставляется возможность выбора темы и ввода сообщения.

Сама же страница выглядит так:

после нажатия кнопки “OK" Вы увидите следующую страничку:

Хранение данных.

Все данные хранятся в базе данных: ”Рассылка" и имеют вид:

Таблица Подписчики:

Таблица Рассылка:

Тестирование программы

Код приложения

Файл ras. asp

Курсовая работа

function checkValid () {

var p = document. form;

if (p. Usermail. value == "") {

alert ("Поле [E-mail] - обязательно, заполните его");

p. Usermail. focus ();

return (false);

}

return (true);

}

Рассылка

Подпишитесь на интересующие Вас рассылки:

---

Введите Ваш E-mail:

Автомобили

Компьютеры

Спорт

Музыка

Файл ras_A. asp

Курсовая работа

подтверждение подписки

<% Dim Tema1,Tema2,Tema3,Tema4

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. Write Tema1 & "
" & vbCrLf

end if

if Tema2 <> "" Then

Response. Write Tema2 & "
" & vbCrLf

end if

if Tema3 <> "" Then

Response. Write Tema3 & "
" & vbCrLf

end if

if Tema4 <> "" Then

Response. Write Tema4 & "
" & vbCrLf

end if

%>

<% Dim Result

Response. Write "На почтовый ящик: " & vbCrLf

Response. Write ""

Result = Request. Form ("Usermail")

Response. Write Result & "
" & vbCrLf

Dim DBConn,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. Open ConnStr

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

Курсовая работа

function checkValid () {

var p = document. form;

if (p. Message. value == "") {

alert ("Введите пожайлуста [Новость] ");

p. Message. focus ();

return (false);

}

return (true);

}

Рассылка

ввод новостей:

---

выберите тему:

Автомобили

Компьютер

Спорт

Музыка

новость:

Файл ras_C

Курсовая работа

подтверждение

<%

Dim DBConn,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. Open ConnStr

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, который позволяет обрабатывать данные на стороне сервера.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов курсовой работы