Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Управление баннерами
Проект Отправка файлов
Проект Доска сообщений
и объект почтового вложения. Обратите внимание, что для сообщения нужно задать имя вложенного файла. Для получения полного имени файла применяется метод MapPath. Если вы хотите указать полный путь к базе данных, вам следует воспользоваться свойством Value:
-
Dim TheAttachment as New MailAttachment _
(Server.MapPath("/InetBook/C7/EinailFile/SQL/" _
& ddlFiles.Selectedltern.Value))
-
TheMessage = "Спасибо за посещение нашего узла. Выбранный вами файл " _
& ": " & ddlFiles.Selectedltem.Text _
& " вложен в это письмо."
-
TheMailMessage.From = "webmaster@a.com"
-
TheMailMessage.То = txtEmailAddress.text
-
TheMailMessage.Subject = "Файл"
-
TheMailMessage.. Body = TheMessage
-
TheMailMessage.Attachments.Add (TheAttachment)
-
SmtpMail.Send(TheMailMessage)
-
IblMessage.Text = "Выбранный файл отправлен по указанному адресу"
-
pnlForm.Visible = False
Изменение кода для Access
Если вам понадобится использовать описанный проект с Access, а не с SQL Server, замените связующую строку с указанием базы данных SQL Server
-
DBConn = New 01eDbConnection("Provider=sqloledb;" _
& "server-localhost;" _
& "Initial Catalog=INETC7;" _
& "User Id-sa;" _
& "Password-yourpassword;")
-
DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE="
& Server.MapPath("/InetBook/C7/EmailFile/"
& "Access/C7EmailFile.mdb;"))
 |
 |
