Статьи о почте

Новости

Все новости

Разное в мире IT

Все заметки

mailinfo.ru - Статьи о почте

Лист рассылки на сайте

Прислал(а) Вадим Веденин [11 января 2002]

раздел: [Исходники]

В данной статье хочу описать процесс создания листа рассылке на корпоративном Internet-сайте.

При разработке данной задачи возникает необходимость в решении нескольких проблем:

  1. хранение адресов подписчиков в базе данных
  2. необходимо обеспечить рассылку сообщений большому количеству пользователей
  3. необходимо предоставить возможность пользователю получить забытый пароль на его почтовый адрес
  4. необходимо обеспечить администрирование листа подписки через web
Для хранения адресов подписчиков я применяю MS SQL сервер. Работу с базами данных я не рассматриваю, так как по этой теме написано достаточно много материала.

Для создания рассылки я применил Mailer-компонету с Dundas.com.

Для отправки сообщений участникам рассылки я создал вот такую форму для ввода:

Форма ввода сообщений

Вот html код формы:




           


           


           


            заголовок сообщения
           
тело сообщения

           

При нажатии на кнопку submit текст сообщения отправляется этой же странице и обрабатывается следующим скриптом

<%
if inStr(Request.ServerVariables("Request_Method"),"POST")<>0 then

Set objMailer = Server.CreateObject("Dundas.Mailer")
objMailer.SMTPRelayServers.Add (smtp_server) \' адрес SMTP сервера
\'objMailer.TOs.Add "vedenin@bashkirenergo.ru" \' адрес получателя
objMailer.TOs.Add "postmaster@your_server"

set conn=Server.CreateObject("ADODB.command")
            conn.ActiveConnection="строка подкюичения"
            conn.CommandText="select e_address from list_user"

            conn.CommandType=1 <[>            set rs=conn.Execute(null,null,1)

if not(rs.EOF=true and rs.BOF=true) then
            rs.MoveFirst

            while not rs.EOF

            objMailer.BCCs.Add rs.Fields("e_address").value
            rs.MoveNext

            wend
else
            Err.Raise
end if

set rs=nothing
set conn=nothing

objMailer.CustomHeaders.Add "Content-Type:",
            "text/plain;charset=windows-1251" \' формат и кодировка сообщения
objMailer.CustomHeaders.Add "Content-Transfer-Encoding:",
            "8bit" \' битовая кодировка сообщения
objMailer.Organization = " органицация "
objMailer.FromAddress = "postmaster@your_server" \' адрес отправителя

objMailer.Subject = Request.Form("subject")
objMailer.Body = Request.Form("body")
objMailer.SendMail
save=true
end if
%>

Этим скрипом адреса подписчиков записываются в коллекцию BCCs, которая содержит адреса получателей скрытой копии сообщений. В коллецию Tos лучше записать какой-нибудь адрес, чтобы у подписчика при получении письма раздел "Кому" не был пустым.

Для отправки пользователю забытого пароля на его почтовый адрес я в специально написанной для этого форме запрашиваю адрес, и затем, если он верен, высылаю пароль на полученный адрес. Отсылку осуществляю следующим скриптом -

if inStr(Request.ServerVariables("Request_Method"),"POST")<>0 then

           
            set conn=Server.CreateObject("ADODB.command")
            conn.ActiveConnection="строка подключения "
            conn.CommandText="select e_address, pass " _
                  & "from list_user where e_address=\'" _
                  & Request.Form("email") & "\'"
            conn.CommandType=1
            set rs=conn.Execute(null,null,1)

            if rs.EOF=true and rs.BOF=true then error=true

            if error=false then

            Set objEmail = Server.CreateObject("Dundas.Mailer")
            objEmail.QuickSend "postmaster@your_address ", _
                  rs.Fields("e_address").value,"ваш пароль", _
                  " пароль пользователя листа рассылки " _
                  & chr(13) & chr(10) &_
                  " email :" & rs.Fields("e_address").value _
                  & chr(13) & chr(10) & _
                  " пароль:" & rs.Fields("pass").value
            set objEmail=nothing
            set rs=nothing

            end if
end if

Для администрирования учетными записями подписчиков необходимо иметь возможность просмотреть все записи базы данных, содержащих записи о подписчиках, удалить подписчика в случае необходимости, проверить достоверность почтового адреса подписчика.

Просмотр записей базы данных осложняется тем, что необходимо просматривать записи из базой страницами, содержащими определенное количество записей из базы данных (например, по 10). Причем необходимо осуществлять выборку между этими страницами. Для указания текущей страницы в выборке из базы данных я использую параметр curpage. Инициализирую я его следующим образом:

if len(Request.QueryString("curpage"))=0 then
    curpage = 1
else
    curpage= CInt (Request.QueryString("curpage"))
end if

где параметр curpage я передаю в url странице при выборе текущей страницы объекта RecordSet.

Возможность выборки между страницами я обеспечиваю следующим способом:

<%
set conn= Server.CreateObject("ADODB.connection")

conn.Provider="sqloledb"
conn.Open "строка подключения"

set rs= Server.CreateObject("ADODB.Recordset")
rs.CursorType=1
rs.CursorLocation=3
rs.Open "select * from list_user",conn,3,3,1

if not(rs.EOF=true and rs.BOF=true) then
            rs.MoveFirst
            rs.AbsolutePage=curpage

            for i=1 to rs.PageCount
                  Response.Write "                  & i &"\'>" & i & " "
            next

%>
           


           

                 

                 

                 

                 

                 

                 


                 

                 

<%
            for i=1 to rs.PageSize

            if rs.EOF=true then exit for
%>
           


           

           

           

           

           

           

           

           

           

            <%
            rs.MoveNext
            next
            %>
           
email пароль ФИО город место работы должность проверить
            value="<%=rs.Fields("id").value%>"> <%=rs.Fields("e_address").value%> <%=rs.Fields("pass").value%> <%=rs.Fields("fio").value%> <%=rs.Fields("town").value%> <%=rs.Fields("place_work").value%> <%=rs.Fields("dolg").value%> \',\'_blank\',450,310)">>>

           


           
           
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
end if
%>

Для удаления подписчиков я использую тэг input в котором передаю идентификатор записи пользователя, выбранного для удаления. Удаление выполняю в следующем скрипте:

del_str=""

if Request.Form("checkDel").Count<>0 then
for i=1 to Request.Form("checkDel").Count
            if i=1 then
            del_str=del_str & " id="& int(Request.Form("checkDel")(i))
            else
            del_str=del_str & " or id="& int(Request.Form("checkDel")(i))
            end if
next

set conn=Server.CreateObject("ADODB.command")
            conn.ActiveConnection="строка подключения "
            conn.CommandText="delete from list_user where " & del_str

            conn.CommandType=1
            set rs=conn.Execute(null,null,1)

set rs=nothing
set conn=nothing
            curpage = 1
end if

Для проверки корректности адреса пользователя я использую метод ValidateAddress Mailer-компонеты Dundas.com.

<%@ Language=VBScript %>


<%

Dim objEmail
dim res

%>





проверка адреса <%=Request.QueryString("e_add")%>

<%
Set objEmail = Server.CreateObject("Dundas.Mailer")
res=objEmail.ValidateAddress (Request.QueryString("e_add"))

select case res
            case 0: Response.Write "адрес существует"
            case 1: Response.Write "адрес пуст"
            case 2: Response.Write "адрес существует"
            case 3: Response.Write "проверка SMTP сервера закончилась неудачей"
            case 4: Response.Write "указанный пользователь не найден"
            case 5: Response.Write "MX запись не найдена"
            case 6: Response.Write "операция проверки адреса закончилась неудачей"
end select

%>


После проверки адреса можно решить, удалять пользователя или нет. Экран работы страницы:

Экран работы страницы

Таким образом, рассылку на ASP организовать достаточно просто.

P.S. Здесь вы можете посмотреть лист рассылки в работе.