|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。邮件列表最初要完成的功效是邮件的编纂和发送。这部分功效由Email_List.asp文件供应,其界面如所示。接上去我们就来剖析这个文件。
【ASPMailingList_6.gif】
Email_List.asp的外部事情历程和edit_record.asp很相似。办理员在表单中写作邮件并提交它,体系将选择一切Mail_List字段值为“是”的纪录,然后将新邮件的拷贝发送给这些纪录中的Guest_Mail地点。
每次发送邮件我们都从头创立mailer工具,发送完成后封闭它。这一点十分主要,这是因为我们必要修正邮件的注释,到场作废定阅邮件列表的URL和ID号。
ifRequest.ServerVariables("REQUEST_METHOD")="POST"then
strSubject=Request.Form("txtSubject")
strBody=Request.Form("txtBody")
strFrom=Request.Form("txtFrom")
从数据库拔取收件人纪录
strSQL_SelectEmail="SELECTGuests.Guest_ID,Guests.Guest_Email"&_
"FROMGuestsWHERE((Guests.Mail_List)=-1);"
SetoConn=Server.CreateObject("ADODB.Connection")
oConn.OpenstrDSNPath
SetrsMail=oConn.Execute(strSQL_SelectEmail)
ifrsMail.BOF=TrueandrsMail.EOF=Truethen
...数据库为空提醒,略...
else
rsMail.MoveFirst
DoWhileNotrsMail.EOF
创立工具
SetMailer=Server.CreateObject("SMTPsvg.Mailer")
填写别的邮件题目信息
Mailer.FromName=strFrom
Mailer.FromAddress=strEmailFrom
Mailer.RemoteHost=strHost
Mailer.Subject=strSubject
Mailer.BodyText=...设置邮件内容,略...
strTo=rsMail.Fields("Guest_Email").Value
IfstrTo""then
Mailer.Recipient=strTo
ifMailer.SendMailthen
...发送乐成提醒,略...
else
...发送失利提醒,略...
endifMailer.SendMail
endifstrTo""
rsMail.MoveNext
SetMailer=Nothing
Loop
endifrsMail.BOF=TrueandrsMail.EOF=True
rsMail.Close
SetrsMail=Nothing
oConn.Close
SetoConn=Nothing
endifREQUEST_METHOD="POST"
这里必要注重的是,我们将变量strHost的值赋给ASPMail的实例工具的RemoteHost属性。因而,必需包管strHost的值是一个符合的邮件服务器名字(如mail.mydomain.com)。
</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。 |
|