Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Рассылка
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 04:45:04 18 октября 2008 Похожие работы
Просмотров: 16 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

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

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

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

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

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

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

Выполнил:

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

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

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

Группа: ИД-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">

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

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

<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">

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

<% 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">

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

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

<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">

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

<%

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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:40:17 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:47:53 28 ноября 2015

Работы, похожие на Курсовая работа: Рассылка

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151321)
Комментарии (1844)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru