" + "欢迎您订阅万里信息网邮件列表" +""[br]strbody = strbody + "

" + "为了防止出现订阅错误，请您点击以下链接进行确认。谢谢！" + ""[br]strbody = strbody + "

" + "" + "请点击这里，进行订阅确认" + ""[br]strbody = strbody + "

" + vbcrlf[br]strbody = strbody + "
"[br]strbody = strbody + "

" + "欢迎再次光临万里信息网！" + ""[br]strbody = strbody + ""

'发送email[br]on error resume next[br]set objemail = server.createobject("persits.mailsender") [br]objemail.host = c_strmailserver[br]objemail.from = "[url=mailto:jiabaoxu@163.net]jiabaoxu@163.net[/url]" [br]objemail.fromname = "china-168.net"[br]objemail.addaddress a_stremail[br]objemail.subject = "订阅确认" [br]objemail.ishtml = true [br]objemail.charset = "gb2312"[br]objemail.body = strbody[br]objemail.send

'检察错误[br]if err.number = 0 then '如果成功[br]response.write ("

为确保用户不被骚扰，我们将发出确认信,请访问信中的url以确认登记")[br]else '如果失败则显示出错原因[br]response.write ("

邮件发送出错，错误原因：
")[br]response.write (""&err.description&"") [br]end if

'清场[br]set objemail = nothing[br]end sub

使用该过程：[br]<%[br].....

rtsemail guestmailid,""&email&""[br].....

%>

aspemail组件的应用 当前位置：点晴教程→知识管理交流 →『 技术文档交流 』 admin 2010年7月7日 23:29 本文热度 6245 sub sendmail(a_intid , a_stremail)[br]const c_strmailserver = "smtp.163.net"[br]dim objconn,objrs,strsql[br]dim strcontent,strbody,strsubject,objemail strbody = "" [br]strbody = strbody + "" [br]strbody = strbody + ""[br]strbody = strbody + "" + "请您确认" + "" + vbcrlf[br]strbody = strbody + " " + "您好"&a_stremail&"" + "

关键字查询 组件 应用 mail email 相关文章 asp使用Jmail组件发送信息到指定邮箱