ASP环境下邮件列表功能的实现 （四）（推荐）

最后要实现的功能是邮件的编辑和发送。这部分功能由email_list.asp文件提供，其界面如图6所示。接下来我们就来分析这个文件。

　　 【图6 aspmailinglist_6.gif】

　　 email_list.asp的内部工作过程和edit_record.asp很类似。管理员在表单中写作邮件并提交它，系统将选择所有mail_list字段值为“是”的记录，然后将新邮件的拷贝发送给这些记录中的guest_mail地址。

　　 每一次发送邮件我们都重新创建mailer对象，发送完成后关闭它。这一点非常重要，这是由于我们需要修改邮件的正文，加入取消订阅邮件列表的url和id号。

　if request.servervariables("request_method") = "post" then
　    strsubject = request.form("txtsubject")
　    strbody = request.form("txtbody")
　    strfrom = request.form("txtfrom")
　     从数据库选取收件人记录
　    strsql_selectemail = "select guests.guest_id, guests.guest_email " & _
　                        " from guests where ((guests.mail_list)=-1);"
　    set oconn = server.createobject("adodb.connection")
　    oconn.open strdsnpath
　    set rsmail = oconn.execute(strsql_selectemail)
　    if rsmail.bof = true and rsmail.eof = true then
　       …数据库为空提示,略…
　       else
　       rsmail.movefirst
　       do while not rsmail.eof
　            创建对象
　           set mailer = server.createobject("smtpsvg.mailer")
　            填写其它邮件标题信息
　           mailer.fromname = strfrom
　           mailer.fromaddress = stremailfrom
　           mailer.remotehost = strhost
　           mailer.subject = strsubject
　           mailer.bodytext = …设置邮件内容,略…
　           strto = rsmail.fields("guest_email").value
　           if strto < > "" then
　               mailer.recipient = strto
　               if mailer.sendmail then
　                 …发送成功提示,略…
　                 else
　                 …发送失败提示,略…
　               end if mailer.sendmail
　           end if strto < > ""
　           rsmail.movenext
　           set mailer = nothing
　       loop
　    end if rsmail.bof = true and rsmail.eof = true
　    rsmail.close
　    set rsmail = nothing
　    oconn.close
　    set oconn = nothing
　end if request_method = "post"

　　 这里需要注意的是，我们将变量strhost的值赋给aspmail的实例对象的remotehost属性。因此，必须保证strhost的值是一个合适的邮件服务器名字（如mail.mydomain.com）。