 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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&"" ..... %> 返回类别: 教程 上一教程: 常用数据库操作的自定义函数 下一教程: ASP建立MYSQL数据库的连接 您可以阅读与"ASPEMAIL组件的应用"相关的教程: · CHART组件在ASP中的应用 · 浅谈TEECHART组件在ASP中的应用 · 组件对象开发WEB应用的实例分析 · 构建稳定的服务器端组件的七个步骤 · 全文本检索的应用(1) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
