 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
最后要实现的功能是邮件的编辑和发送。这部分功能由Email_List.asp文件提供，其界面如图6所示。接下来我们就来分析这个文件。 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）。 返回类别: 教程 上一教程: Microsoft 脚本编码器Script Encoder介绍（4）全中文 下一教程: 怎样写你自己的EMAIL组件（原理） 您可以阅读与"ASP环境下邮件列表功能的实现 （四）"相关的教程: · ASP环境下邮件列表功能的实现 (一) · ASP环境下邮件列表功能的实现 (三) · ASP环境下邮件列表功能的实现 （二） · ASP环境下邮件列表功能的实现 （四）（推荐） · ASP环境下邮件列表功能的实现 (二) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
