ASP编程：ASP情况下邮件列表功效的完成 （四）

SQL Server是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。   最初要完成的功效是邮件的编纂和发送。这局部功效由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）。 asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)