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