Файловый архив студентов. Файловый архив студентов.
1323 вуза, 5394 предмета.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Черкасский государственный технологический университет
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:
Курсовий_Борткуса_АСП_здавать.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
336.38 Кб
Скачать
☆
►Содержание►

Висновок

В ході виконання курсової роботи було реалізовано WEB – додаток, який надає можливість користувачам відправляти адресатам певні повідомленя із певною тематикою, що дає собою зручність не використовувати реальні матеріали та витрачати час на реальну пошту.

Основних функція проекту являється відправлення повідомлень з певного електроного адресу певному користувачу, якого можна вибирати із випадаючого списку завантажуємого із бази даних, де вже встановлена його електронна адреса.

Реалізується це все за допомогою WEB – додатку (сторінки), що розміщений на сервері(локальний сервер).

Головна сторінка WEB – проекту надає користувачеві відправити електронний лист певному адресату, що є в базі даних з певної електронної пошти.

Даний WEB – додаток значно спрощує життя людям(користувачам) замінюючи реальну(фізичну) пошту на електронну, що надає собою більш швидку оперативність при своєму використанні.

Література

  1. Разработка Web- приложений на Microsoft Visual Basic .NET.

  2. Microsoft Visual C# .NET. Учебный курс MCAD MCSD.

  3. Бучек Г. ASP.NET. Учебный курс — СП6.: Питер. 2002. — 512 с.: ил.

  4. Троелсен Э. «C# и платформа .NET. Библиотека программиста» - СПб.: Питер 2007 796л.

  5. Шилдт Г. — Самоучитель C++, видавництво — «БХВ-Петербург, 3-е издание, 2003», 318с. ISBX 944-53S-328-2.

  6. Т. А. Павловська, Програмування високого рівня, Києво-Могилян. акад. 285с. 2005. ISBX 911-11S-418-4.

  7. Н. Вірт - Алгоритми і структура даних, Києво-Могилян. акад., 366с. ISBX 962-75S-358-0.

  8. Charls Petsold (Ч. Петзольд) - Код – таємна мова програмування. Washing. P., 2004. 206c. ISBX 162-53S-238-4.

  9. http://www.ebooks.streltsov.spb.su/microsoft.htm.

  10. http://www.aabooks.ru/books/180.html.

  11. http://msdn.microsoft.com/ru-ru/asp.net/gg404476.

  12. http://msdn.microsoft.com/ruru/library/yedba920.aspx.

Додаток 1 – Лістинг програми

Лістинг файлу «index.aspx»

<%@ Page Language=VB Debug=true %>

<%@ Import Namespace="System.Web.Mail" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat=server>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

If Not IsPostBack Then

Dim DBConn as OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C4/EmailBlast/" _

& "Access/C4EmailBlast.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select Distinct GroupName from Customers " _

& "Order By GroupName", DBConn)

DBCommand.Fill(DSPageData, _

"Groups")

ddlGroupName.DataSource = _

DSPageData.Tables("Groups").DefaultView

ddlGroupName.DataBind()

End If

End Sub

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)

Dim DBConn as OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

Dim TheMailMessage as New MailMessage

Dim I as Integer

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C4/EmailBlast/" _

& "Access/C4EmailBlast.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select Distinct CustomerEmail from Customers " _

& "Where GroupName = '" _

& ddlGroupName.SelectedItem.Text & "'", DBConn)

DBCommand.Fill(DSPageData, _

"Emails")

TheMailMessage.From = txtFrom.Text

TheMailMessage.Subject = txtSubject.Text

TheMailMessage.Body = txtMessage.Text

For I = 0 to DSPageData.Tables("Emails"). _

Rows.Count - 1

TheMailMessage.To = DSPageData.Tables("Emails"). _

Rows(0).Item("CustomerEmail")

' SmtpMail.Send(TheMailMessage)

Next

if DSPageData.Tables("Emails").Rows.Count = 1 then

lblMessage.Text = "Ваше сообщение отправлено 1" _

& " адресату. Можете осуществить новую рассылку."

Else

lblMessage.Text = "Ваше сообщение отправлено " _

& DSPageData.Tables("Emails").Rows.Count _

& " адресатам. Можете осуществить новую рассылку."

End If

End Sub

Protected Sub ddlGroupName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub

</SCRIPT>

<HTML>

<HEAD>

<TITLE>Розсилка повідомлень</TITLE>

</HEAD>

<BODY BACKGROUND="./lp.gif" TEXT="darkslateblue" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="140">

<form runat="server">

<asp:Label

id="lblTitle"

Font-Size="25pt"

Font-Name="Tahoma"

Text="Розсилка повідомлень"

runat="server"

/>

<BR>

<IMG SRC="./line.gif">

<Font Face="Tahoma">

<BR><BR>

<asp:Label

id="lblMessage"

Font-Size="12pt"

Font-Name="Tahoma"

Font-Bold="True"

runat="server"

Text="Виберіть адресата."

/>

<BR><BR>

<asp:dropdownlist

id="ddlGroupName"

runat=server

DataTextField="GroupName" onselectedindexchanged="ddlGroupName_SelectedIndexChanged"

>

</asp:dropdownlist>

<BR>

<IMG SRC="./line.gif">

<Font Face="Tahoma">

<BR>

<Table>

<TR>

<TD>

<B>Адреса відправника:</B>

</TD>

<TD>

<asp:TextBox

id="txtFrom"

Columns="40"

MaxLength="100"

runat=server

/>

<asp:RequiredFieldValidator

id="rfvFrom"

ControlToValidate="txtFrom"

Display="Dynamic"

Font-Name="Verdana"

Font-Size="10pt"

runat=server>

<BR>Необхідно вказати адерсу відправника!

</asp:RequiredFieldValidator>

</TD>

</TR>

<TR>

<TD>

<B>Тема повідомлення:</B>

</TD>

<TD>

<asp:TextBox

id="txtSubject"

Columns="40"

MaxLength="100"

runat=server

/>

<asp:RequiredFieldValidator

id="rfvSubject"

ControlToValidate="txtSubject"

Display="Dynamic"

Font-Name="Verdana"

Font-Size="10pt"

runat=server>

<BR>Необхідно вказати тему повідомлення!

</asp:RequiredFieldValidator>

</TD>

</TR>

<TR>

<TD VAlign="Top">

<B>Повідомлення:</B>

</TD>

<TD>

<asp:TextBox

id="txtMessage"

Columns="40"

Rows="5"

runat=server

TextMode="MultiLine"

/>

<asp:RequiredFieldValidator

id="rfvMessage"

ControlToValidate="txtMessage"

Display="Dynamic"

Font-Name="Verdana"

Font-Size="10pt"

runat=server>

<BR>Необхідно ввести повідомлення!

</asp:RequiredFieldValidator>

</TD>

</TR>

</Table>

<BR>

<asp:button

id="butOK"

text=" OK "

Type="Submit"

OnClick="SubmitBtn_Click"

runat="server"

/>

</Font>

</Form>

</BODY>

</HTML>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности