| 本月文章推荐 |
aspemail组件的应用发表日期：2001-4-6
|
|
sub sendMail(a_intID , a_strEmail)
const c_strMailServer = "smtp.163.net" dim objConn,objRs,strSql dim strContent,strBody,strSubject,objEmail strBody = "<html><head>" strBody = strBody + "<meta HTTP-EQUIV=Content-Type content=text/html; charset=gb2312>" strBody = strBody + "</head><body bgColor=#d2b48c>" strBody = strBody + "<a href='http://www.china-168.net/center/default.asp>" + "<img src=http://www.china-168.net/center/images/banner.gif border=0>" + "</a>" strBody = strBody + "<h3 style='FONT-SIZE: 15px'>" + "请您确认" + "</h>" + vbcrlf strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "您好<a href=mailto:"&a_strEmail&">"&a_strEmail&"</a>" + "</td>" + vbcrlf strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "欢迎您订阅万里信息网邮件列表" +"</td>" strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "为了防止出现订阅错误，请您点击以下链接进行确认。谢谢！" + "</td>" strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "<a href=""http://www.china-168.net/EmailList/affirm.asp?Mode=MailList&content="&a_strEmail&""">" + "请点击这里，进行订阅确认" + "</a>" strBody = strBody + "<p style='FONT-SIZE: 13px'><a href=http://www.china-168.net target='_blank'>" + vbcrlf strBody = strBody + "<img src=http://www.china-168.net/images/logo.gif" strBody = strBody + " alt='更多信息尽在万里信息网'></a><br>" strBody = strBody + "<p style='FONT-SIZE: 13px'>" + "欢迎再次光临万里信息网！" + "</td>" strBody = strBody + "</body></html>" '发送email on error resume next set objEmail = server.CreateObject("Persits.MailSender") objEmail.Host = c_strMailServer objEmail.From = "jiabaoxu@163.net" objEmail.FromName = "china-168.net" objEmail.AddAddress a_strEmail objEmail.Subject = "订阅确认" objEmail.IsHTML = true objEmail.CharSet = "gb2312" objEmail.Body = strBody objEmail.Send '检察错误 if Err.number = 0 then '如果成功 Response.Write ("<p align=center class=cn>为确保用户不被骚扰，我们将发出确认信,请访问信中的URL以确认登记</td>") else '如果失败则显示出错原因 Response.Write ("<p align=center class=cn>邮件发送出错，错误原因：<br>") Response.Write ("<font color=red>"&Err.Description&"</font></td>") end if '清场 set objEmail = nothing end sub 使用该过程： <% ..... RTSEmail GuestMailID,""&email&"" ..... %> |
| 上一篇：用DataList控件开发一个简单的留言本程序
人气:16291 下一篇：编写数据库脚本 人气:12204 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
