Web Creation - еженедельный сетевой журнал для вебмастеров

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

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

В данной статье хочу описать процесс создания листа рассылке на корпоративном 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 организовать достаточно просто.

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

 

© журнал принадлежит Web Creation
по всем вопросам обращаться А. Кузьмин