Рассылка
Уральский социально-экономический институт
Академии труда и социальных отношений
Кафедра прикладной информатики
Пояснительная записка к курсовой работе
По курсу: "Мировые информационные ресурсы"
Выполнил:
Дружков Павел Анатольевич
Специальность:
Прикладная информатика (в экономике)
Группа: ИД-301
Проверил:
Мадудин Владимир Николаевич
Челябинск 2006
Аннотация
В данном документе представлен отчет по курсовой работе по курсу: "Мировые информационные ресурсы" на тему: "Рассылка". Отчет содержит в себе описание поставленной задачи, этапы выполнения курсовой работы, код на языках программирования: ASP (VBScript, FSO, ADO), JScript, PWS/IIS, а также иллюстрации.
Описание возможности приложения
Подписка на рассылку.
Для подписки на рассылку необходимо обязательно ввести Ваш E-mail. Для регистрации, необходимо нажать на кнопку ‘OK’. Кнопка ‘Сброс’ очищает все поля. После нажатия вы перейдете на следующую страницу, которая имеет вид:
На форме отображаются Ваш E-mail и темы, на которые вы подписались.
Ввод рассылки.
Пользователю предоставляется возможность выбора темы и ввода сообщения.
Сама же страница выглядит так:
после нажатия кнопки “OK" Вы увидите следующую страничку:
Хранение данных.
Все данные хранятся в базе данных: ”Рассылка" и имеют вид:
Таблица Подписчики:
Таблица Рассылка:
Тестирование программы
Код приложения
function checkValid () {
var p = document. form;
if (p. Usermail. value == "") {
alert ("Поле [E-mail] - обязательно, заполните его");
p. Usermail. focus ();
return (false);
}
return (true);
}
Рассылка
Подпишитесь на интересующие Вас рассылки:
Введите Ваш E-mail:
Автомобили Компьютеры
Спорт Музыка
<% 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
%>
Спасибо за регистрацию.
Ваши данные успешно внесены в список пользователей
function checkValid () {
var p = document. form;
if (p. Message. value == "") {
alert ("Введите пожайлуста [Новость] ");
p. Message. focus ();
return (false);
}
return (true);
}
Рассылка
ввод новостей:
<% 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, который позволяет обрабатывать данные на стороне сервера. Чтобы скачать документ, порекомендуйте, пожалуйста, его своим друзьям в любой соц. сети. После чего кнопка «СКАЧАТЬ» станет доступной! Кнопочки находятся чуть ниже. Спасибо! Кнопки: выберите тему: новость: Заключение
Нравится материал? Поддержи автора!
Ещё документы из категории информатика: