Уральський соціально-економічний інститут
Академії праці і соціальних відносин
Кафедра прикладної інформатики
Пояснювальна записка до курсової роботи
По курсу: "Світові інформаційні ресурси"
На тему: "Розсилка"
В
Виконав:
Дружков Павло Анатолійович
Спеціальність:
Прикладна інформатика
В
(в економіці)
Група:
ІД-301
Перевірив:
Мадудін Володимир Миколайович
Челябінськ 2006
Анотація
У даному документі представлений звіт по курсової роботи з курсу: В«Світові інформаційні ресурси В»на тему:В« Розсилка В». Звіт містить у собі опис поставленого завдання, етапи виконання курсової роботи, код на мовах програмування: ASP (VBScript, FSO, ADO), JScript, PWS/IIS, а також ілюстрації.
Зміст
В
Опис можливості додатки. 4
Підписка на розсилку. 4
Зберігання даних. 6
Файл ras.asp. 8
Файл ras_A.asp. 8
Файл ras_B. 10
Файл ras_C .. 10
Опис можливості програми
Підписка на розсилку
В В
Для підписки на розсилку необхідно обов'язково ввести Ваш E-mail. Для реєстрації, необхідно натиснути на кнопку 'OK'. Кнопка 'Скидання' очищає всі поля. Після натискання ви перейдете на наступну сторінку, яка має вигляд:
В
На формі відображаються Ваш E-mail і теми, на які ви підписалися. p> Введення розсилки
Користувачеві надається можливість вибору теми і введення повідомлення
В
Сама ж сторінка виглядає так:
В В
після натискання кнопки "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
