Информатика программирование : Курсовая работа: Рассылка
Курсовая работа: Рассылка
Уральский социально-экономический институт
Академии труда и социальных отношений
Кафедра прикладной информатики
Пояснительная записка к курсовой работе
По курсу: "Мировые
информационные ресурсы"
На тему: "Рассылка"
Выполнил:
Дружков Павел Анатольевич
Специальность:
Прикладная информатика (в
экономике)
Группа: ИД-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, который позволяет обрабатывать данные на стороне сервера.
|
