На самом деле ASP может многое, но люди не знают, как ими пользоваться. Microsoft предоставляет множество готовых и полезных компонентов для ASP, но об этих компонентах никто не знает, например, об использовании CDO.Message для отправки электронных писем.
Что такое CDO.Message? Для отправки писем под WinNT и Win2k вам необходимо использовать CDONTS.NewMail. Компонент CDONTS.NewMail необходимо зарегистрировать. Это очень просто: просто запустите на сервере командную строку regsvr32 Cdonts.dll и подтвердите во всплывающем окне. диалоговое окно «Использовать CDONTS». В службе NewMail также должен быть установлен smtp, входящий в состав iis. С Windows 2003 в системе больше нет файла Cdonts.dll, остался только аналогичный файл cdosys.dll. Конечно, этот файл имеется и в win2k (требуется регистрация компонента), но чем хороша 2003? Этот компонент не нужно регистрировать вручную, система зарегистрировала его автоматически. Теперь посмотрим, как использовать этот компонент.
<%
Размер см
Установить cm=Server.CreateObject("CDO.Message")
'Создать объект
cm.From=" [email protected] "
'Установим адрес электронной почты отправителя
cm.To=" [email protected] "
'Установим адрес электронной почты получателя
cm.Subject="Я нашел веб-сайт, на котором можно подписаться на RSS онлайн. В будущем не потребуется устанавливать какое-либо программное обеспечение."
'Установим тему письма
'cm.TextBody=" http://www.downcodes.com/rss/ "
'Вышеуказанное использует обычный текстовый формат для отправки электронных писем. Он может быть только текстовым и не поддерживает HTML, поэтому здесь не используется
cm.HtmlBody="Online RSS Feeds Reader - это онлайн-система чтения новостей RSS."&_
«Нет необходимости загружать и устанавливать. Пока вы регистрируетесь, вы можете иметь онлайн-подписку RSS и систему агрегирования новостей, которая столь же мощна, как и программное обеспечение».&_
«Где бы вы ни находились, если у вас есть доступ в Интернет, вы можете читать свои любимые подписки».&_
«Поторопитесь и зарегистрируйтесь: <a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>»
'Выше созданный вами HTML-текст, вот так Отправляемые вами электронные письма выглядят намного лучше, чем те, которые содержат только текст. Не говорите, что не знаете html'cm.AddAttachment
Server.MapPath("test.zip")
«Если вам нужно отправить вложение, используйте описанный выше метод, чтобы прикрепить файл.
см.Отправить
'Наконец, конечно, выполните отправку
Установить см=Ничего
'Освободить объект сразу после успешной отправки
Response.Write("Отправить электронное письмо успешно.")
%>