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

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

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








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

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

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




Выполнил:

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

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

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

Группа: ИД-301

Проверил:

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





Челябинск 2006


Аннотация


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


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


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



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



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

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

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



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



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



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

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



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



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



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




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

Файл ras. asp

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

Рассылка

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


Введите Ваш 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

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

Рассылка

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


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

новость:

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


Случайные файлы

Файл
!.doc
92192.rtf
32807.rtf
57510.rtf
71527.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.