Название: Рассылка
Вид работы: курсовая работа
Рубрика: Информатика и программирование
Размер файла: 344.49 Kb
Скачать файл: referat.me-136160.docx
Краткое описание работы: Описание возможности приложения. Подписка на рассылку, хранение данных. Файл ras.asp, файл ras_A.asp, файл ras_B, файл ras_C. Возможности программирования на языке ASP, который позволяет обрабатывать данные на стороне сервера. Регистрация рассылки.
Рассылка
Уральский социально-экономический институт
Академии труда и социальных отношений
Кафедра прикладной информатики
Пояснительная записка к курсовой работе
По курсу: "Мировые информационные ресурсы"
На тему: "Рассылка"
Выполнил:
Дружков Павел Анатольевич
Специальность:
Прикладная информатика (в экономике)
Группа: ИД-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="picturecar. gif"></td><td><input type="checkbox" name="chk1" value="Автомобили">Автомобили</td>
<td><img src="picturepc. jpg"></td><td><input type="checkbox" name="chk2" value="Компьтеры">Компьютеры</td>
</tr>
<tr>
<td><img src="picturesport. gif"></td><td><input type="checkbox" name="chk3" value="Спорт">Спорт</td>
<td><img src="picturemusik. 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, который позволяет обрабатывать данные на стороне сервера.
Похожие работы
-
Безопасность информационных систем
Безопасность информационной системы как ее способность противостоять различным воздействиям. Виды компьютерных угроз, понятие несанкционированного доступа. Вирусы и вредоносное программное обеспечение. Методы и средства защиты информационных систем.
-
Как написать AJAX-приложение
Это два года назад AJAX был в диковинку (да и самого слова AJAX тогда ещё не выдумали). Теперь веб-приложения, страницы которых обновлялись на лету, в порядке вещей. Даже наоборот: без AJAX трудно представить себе некоторые сервисы.
-
Компьютерные системы и коммуникации
Система World Wide Web: структура, принципы, технологии, история разработки и перспективы развития. Способы активного отображения информации во Всемирной паутине. Электронная реклама с использованием E-mail. Поисковая оптимизация, доска объявлений.
-
Автоматизация делопроизводства
Принципы автоматизации делопроизводства. Системы управления электронными архивами. Функции систем автоматизации делопроизводства.
-
Антиспам. Два метода защиты от спама
В последние месяцы во всем мире наблюдается резкая активизация борьбы со спамом. Достаточно упомянуть таких гигантов интернет-индустрии, как Microsoft, Yahoo, Hotmail, объявившие беспощадную борьбу спаму на техническом и законодательном уровне.
-
Интеграция удаленных приложений "1С:Предприятие" и MS Access
Сложности передачи информации между различными базами данных. Описание правил использования программного средства, разработанного в среде Delphi со стороны клиента. Инструкция для программиста по работе с приложениями "1С:Предприятие" и MS Access.
-
Разработка многопользовательской информационной системы по ведению учёта подписной деятельности почтовым отделением
Определение доменов для схем отношений. Уточнение типов данных для атрибутов. Реализация ссылочной целостности. Описание разработанного программного обеспечения. Исследование операционных характеристик ИСС. Описание базы данных контрольного примера.
-
Основы технологии программирования
Общие положения о курсовой работе. Цели и задачи курсового проекта, его содержание. Рекомендации к созданию программы, некоторые требования к ее работе. Пример программы "Меню". Образцы оформления титульного листа к курсовой работе и к заданию для нее.
-
Разработка интернет-приложения для организации электронной доски объявлений
Назначение и структура таблиц, используемых в проекте. Задачи и требования приложения на уровне организации WEB-интерфейса. Функциональная структура программы. Алгоритм отображения разделов и подразделов. Процесс регистрации нового пользователя.
-
Персональный заслон для спама
Несовершенство протоколов, осуществляющих возможность общения пользователей посредством e-mail, позволяет использовать электронную почту как средство несанкционированной рассылки незапрошенных пользователем сообщений.