Курсовая работа : Рассылка 


Полнотекстовый поиск по базе:

Главная >> Курсовая работа >> Информатика, программирование


Рассылка




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

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

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

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

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

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

Выполнил:

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

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

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

Группа: ИД-301

Проверил:

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

Челябинск 2006

Аннотация

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Файл ras. asp

<html>

<head>

<title>Курсовая работа</title>

</head>

<script LANGUAGE="JavaScript">

function checkValid () {

var p = document. form;

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

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

p. Usermail. focus ();

return (false);

}

return (true);

}

</script>

<body bgcolor="#eeffee">

<H2 align="center">Рассылка</H2>

<H3 align="center"><b>Подпишитесь на интересующие Вас рассылки: </b></H3>

<hr width=60% align=center>

<form action='ras_A. asp' method="post" name="form" onsubmit="return checkValid ()">

<table align=center>

<tr>

<td>Введите Ваш E-mail: </td><td><input type="Text" name="Usermail">

</tr>

</table>

<br>

<table align=center>

<tr>

<td><img src="picture\car. gif"></td><td><input type="checkbox" name="chk1" value="Автомобили">Автомобили</td>

<td><img src="picture\pc. jpg"></td><td><input type="checkbox" name="chk2" value="Компьтеры">Компьютеры</td>

</tr>

<tr>

<td><img src="picture\sport. gif"></td><td><input type="checkbox" name="chk3" value="Спорт">Спорт</td>

<td><img src="picture\musik. gif"></td><td><input type="checkbox" name="chk4" value="Музыка">Музыка</td>

</tr>

<br>

<tr>

<td><input name="Ok" type="Submit" value=" Ok "></td>

<td><input name="Reset" type="Reset" value= "Сброс"></td>

</tr>

</table>

</form>

</body>

</html>

Файл ras_A. asp

<html>

<head>

<title>Курсовая работа</title>

</head>

<body bgcolor="#eeffee">

<H2><center> подтверждение подписки</H2>

<% Dim Tema1,Tema2,Tema3,Tema4

Response. Write "Вы подписались на следующие рассылки: " & "<br>" & vbCrLf

Response. Write"<b>"

Tema1 = Request. Form ("chk1")

Tema2 = Request. Form ("chk2")

Tema3 = Request. Form ("chk3")

Tema4 = Request. Form ("chk4")

if Tema1 <> "" Then

Response. Write Tema1 & "<br>" & vbCrLf

end if

if Tema2 <> "" Then

Response. Write Tema2 & "<br>" & vbCrLf

end if

if Tema3 <> "" Then

Response. Write Tema3 & "<br>" & vbCrLf

end if

if Tema4 <> "" Then

Response. Write Tema4 & "<br>" & vbCrLf

end if

%>

<br>

<% Dim Result

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

Response. Write "<b>"

Result = Request. Form ("Usermail")

Response. Write Result & "<br>" & 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

%>

<p>Спасибо за регистрацию. <br>

Ваши данные успешно внесены в список пользователей</p>

<a href="ras. asp">На первую страницу</a>

</form>

</body>

</html>

Файл ras_B

<html>

<head>

<title>Курсовая работа</title>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

</head>

<script LANGUAGE="JavaScript">

function checkValid () {

var p = document. form;

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

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

p. Message. focus ();

return (false);

}

return (true);

}

</script>

<body bgcolor="#eeffee">

<H2 align="center">Рассылка</H2>

<H3 align="center"><b>ввод новостей: </b></H3>

<hr width=60% align=center>

<form action='ras_C. asp' method="post" name="form" onsubmit="return checkValid ()">

<table align=center>

<tr>

<td align=center>выберите тему:

<select name="Tema" size="1">

<option selected="true">Автомобили

<option>Компьютер

<option>Спорт

<option>Музыка

</select>

</td>

<tr>

<td align=center><b>новость: </b></td><tr>

<td><textarea name="Message" cols="70" rows="12"></textarea>

<tr>

<td align="center"><input name="Ok" type="Submit" value=" Ok ">

<input name="Reset" type="Reset" value="Сброс"></td>

</tr>

</table>

</form>

</body>

</html>

Файл ras_C

<html>

<head>

<title>Курсовая работа</title>

</head>

<body bgcolor="#eeffee">

<H2><center> подтверждение </H2>

<%

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

%>

<p>

Ваша новость была записана в список рассылок</p>

<a href="ras_b. asp">На первую страницу</a>

</form>

</body>

</html>

Заключение

При разработке данного приложения были использованы возможности программирования на языке ASP, который позволяет обрабатывать данные на стороне сервера.

Похожие работы:

  • Почтовая рассылка

    Доклад >> Информатика, программирование
    Расчет эффективности почтовой рассылки 1.Введение Почтовая рассылка проводится с целью увеличения объема продаж, ... коэффициент эффективности почтовой рассылки. 7. Недостаток. На первом этапе рассылки возможно занижение коэффициента ...
  • ... , теле- и радио реклама, прямая почтовая рассылка, наружная реклама, кино- и видео-реклама

    Курсовая работа >> Маркетинг
    ... соответствовать желаемой целевой аудитории; почтовая рассылка позволяет фирме обращаться к аудитории, недоступной ... возможностей, надежности и качества предлагаемого оборудования. Рассылка проспектов, дополнительной информации и рекламных материалов ...
  • Построение маршрута при групповой рассылке сетевых пакетов данных

    Научная работа >> Информатика, программирование
    ... весьма существенными факторами становятся стоимость рассылки, протяженность и сложность маршрута ... быть получена структура (маршрут рассылки), соответствующая конкретному случаю. Т.е. ... но не участвующие в данной рассылке. 4 РЕАЛИЗАЦИЯ АЛГОРИТМА 4.1 Постановка ...
  • Special events и почтовые рассылки

    Статья >> Реклама
    ... events и почтовые рассылки Анатолий Крысов Почтовые рассылки всегда являлись одним ... считает, что в случае с почтовыми рассылками масштаб кампании и вложенные в нее ... сталкивался в своей жизни с почтовыми рассылками, которые начинались с "Уважаемые господа!" ...
  • 9 способов увеличить читаемость вашей рассылки

    Доклад >> Реклама
    ... Поддерживайте возможность выиграть в вашей рассылке. Призы должны представлять для ваших ... новости, связанные с темой вашей рассылки. Люди хотят иметь свежие и ... должен иметь отношение к теме вашей рассылки. Предлагайте бесплатную информацию и ваши ...
  • Журналистика и интернет

    Курсовая работа >> Информатика, программирование
    ... автоматизирования процесса одновременной рассылки электронных сообщений всем ... полуавтоматически, в случае регулируемых списков рассылки, в которых администратор списка просматривает ... в США и СНГ. Список рассылки публикует новости о «больница-больнице» ...
  • Программное обеспечение почтового обмена

    Реферат >> Информатика, программирование
    ... синонимов; списка адресов рассылки пользователя; автоматической рассылки почты через шлюзы ... два типа рассылки: на удаленную машину и местную рассылку. Рассылка на удаленную ... программа местной рассылки, рассылка по UUCP, рассылка по SMTP, рассылка на выполнение ...
  • Разработка мультимедийного сайта

    Курсовая работа >> Информатика, программирование
    ... всеми остальными. Е-mail рассылка. Организация и коммерческое применение e-mail рассылки Рассылка электронной почты – средство ... и регламента, установленных администрацией службы рассылки; в сообщениях рассылки будет размещаться посторонняя реклама; на ...
  • Директ-маркетинг в деятельности предприятия

    Реферат >> Остальные работы
    ... 2.1.1. Телемаркетинг 2.1.2. Персонализированная рассылка (direct mail) 2.1.3. Почтовая рассылка 2.1.4. Рассылка с курьером 2.1.5. SMS- ... сообщения 2.1.6. Электронная рассылка 2.1.7. Интернет- ...
  • Директ-маркетинг как элемент коммуникационной политики

    Курсовая работа >> Маркетинг
    ... клиентов. Безадресная рассылка предполагает рассылку неименных рекламных отправлений ... потребителями является SMS-рассылка. Обычно SMS-рассылки используются для: информирования ... direct-mail, факс-рассылка, e-mail рассылка, курьерская доставка, телемаркетинг ...