В данной статье хочу описать процесс создания листа рассылке на корпоративном Internet-сайте.
При разработке данной задачи возникает необходимость в решении нескольких проблем:
- хранение адресов подписчиков в базе данных
- необходимо обеспечить рассылку сообщений большому количеству пользователей
- необходимо предоставить возможность пользователю получить забытый пароль на его почтовый адрес
- необходимо обеспечить администрирование листа подписки через 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 организовать достаточно просто.
Автор: Вадим Веденин |
