Журнал WEB Star #7 - Коврик TrigGer'a - отличный способ узнать о web-дизайне все!!! Реклама
Коврик TrigGer'a - отличный способ узнать о web-дизайне все!!!
Реклама
       
Главная страница WEB-design WEB-фокусы Programming ФотоSHOPия B.O.N.U.S. Ю м о р Отправить почту
       ***WEB Star # 7*** [журнал для web-мастеров] - Programming Programming
 

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

Автор: Вадим Веденин

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

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

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

Для хранения адресов подписчиков я применяю MS SQL сервер. Работу с базами данных я не рассматриваю, так как по этой теме написано достаточно много материала.
Для создания рассылки я применил Mailer-компонету с Dundas.com.

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

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

<form method="post">
<table bgcolor=Wheat align=center border="1"
cellspacing="0" cellpadding="0" bordercolor=DodgerBlue>
<tr>
<td>
заголовок сообщения
<INPUT type="text" size=30
name=subject></td>
</tr>
<tr>
<td>
тело сообщения<br>
<textarea rows=15 cols=40
name=body></textarea></td>
</tr>
<tr>
<td><INPUT type="submit" value="отправить"></td>
</tr>
</table>
</form>

При нажатии на кнопку 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 "<a href='admin.asp?curpage=" _
& i &"'>" & i & "</a> "
next

%>
<table border=1 border="1" cellspacing="1"
cellpadding="3" bordercolor="DodgerBlue" >
<tr bgcolor="DodgerBlue">
<td></td>
<td>email</td>
<td>пароль</td>
<td>ФИО</td>
<td>город</td>
<td>место работы</td>
<td>должность</td>
<td>проверить</td>

<%
for i=1 to rs.PageSize

if rs.EOF=true then exit for
%>
<tr>
<td><input type="checkbox" name=checkDel
value="<%=rs.Fields("id").value%>"></td>
<td><%=rs.Fields("e_address").value%></td>
<td><%=rs.Fields("pass").value%></td>
<td><%=rs.Fields("fio").value%></td>
<td><%=rs.Fields("town").value%></td>
<td><%=rs.Fields("place_work").value%></td>
<td><%=rs.Fields("dolg").value%></td>
<td><a href="javascript:openW('check.asp?e_add=
<%=rs.Fields("e_address").value%>','_blank',450,310)">>></a>

</td>
</tr>
<%
rs.MoveNext
next
%>
</table>
<input type="submit" value="удалить" name="delBut">
</form>
<%
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 %>

<!-- #include file="include/general.asp"-->
<%

Dim objEmail
dim res

%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/tags.css">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1251">
</head>
<body>

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

<%
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

%>

</body>
</html>

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

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

 
Обсуждаем модуль CGI для Perl
Лист рассылки на сайте
Функция date() - вывод даты и времени на PHP.
PHP. Первые шаги. Действительно легкая смена дизайна.
Главная страница WEB-design WEB-фокусы Programming ФотоSHOPия B.O.N.U.S. Ю м о р Отправить почту
 
Копирайты !!! Предупреждение !!! NOTES
© Coperight Алекс aka TrigGer & x-graphic studio
© Дизайн разработан x-graphic studio
© Идея и верстка - Алекс aka TrigGer
© Все права защищены
      Перепечатка материалов разрешается, только после письменного разрешения автора (e-mail). При перепечатке любого материала с журнала видимая ссылка на источник www.kovrik.hut.ru и все имена, ссылки авторов обязательны. Для просмотра журнала рекомендуеться:
Разрешение: 1024*768 точек
Браузер: Internet E[plorer 5.5 или выше
Для более эффективного просмотра нажмите F11.