aspemail组件的应用

sub sendMail(a_intID , a_strEmail)
const c_strMailServer = "smtp.163.net"
dim objConn,objRs,strSql
dim strContent,strBody,strSubject,objEmail

strBody = "

 1<html><head>"   
 2strBody = strBody + "<meta charset="utf-8" content="text/html;" http-equiv="Content-Type"/>"   
 3strBody = strBody + "</head><body bgcolor="#d2b48c">"   
 4strBody = strBody + "<a 15px'="" font-size:="" href='http://www.china-168.net/center/default.asp&gt;" + "&lt;img src=http://www.china-168.net/center/images/banner.gif border=0&gt;" + "&lt;/a&gt;"   
 5strBody = strBody + "&lt;h3 style='>" + "请您确认" + "" + vbcrlf   
 6strBody = strBody + "<p style="FONT-SIZE: 13px">" + "您好<a href='mailto:"&amp;a_strEmail&amp;"'>"&amp;a_strEmail&amp;"</a>" + "" + vbcrlf   
 7strBody = strBody + "<p style="FONT-SIZE: 13px">" + "欢迎您订阅万里信息网邮件列表" +""   
 8strBody = strBody + "<p style="FONT-SIZE: 13px">" + "为了防止出现订阅错误，请您点击以下链接进行确认。谢谢！" + ""   
 9strBody = strBody + "<p style="FONT-SIZE: 13px">" + "<a affirm.asp?mode='MailList&amp;content="&amp;a_strEmail&amp;"""' emaillist="" href="" http:="" www.china-168.net="">" + "请点击这里，进行订阅确认" + "</a>"   
10strBody = strBody + "<p style="FONT-SIZE: 13px"><a href="http://www.china-168.net" target="_blank">" + vbcrlf   
11strBody = strBody + "<img "="" +="" alt="更多信息尽在万里信息网" src='http://www.china-168.net/images/logo.gif"' strbody="strBody"/></a><br/>"   
12strBody = strBody + "<p style="FONT-SIZE: 13px">" + "欢迎再次光临万里信息网！" + ""   
13strBody = strBody + "</p></p></p></p></p></p></a></body></html>

'发送email
on error resume next
set objEmail = server.CreateObject("Persits.MailSender")
objEmail.Host = c_strMailServer
objEmail.From = "[email protected]"
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 ("

 1<p align="center" class="cn">为确保用户不被骚扰，我们将发出确认信,请访问信中的URL以确认登记")   
 2else '如果失败则显示出错原因   
 3Response.Write ("<p align="center" class="cn">邮件发送出错，错误原因：<br/>")   
 4Response.Write ("<font color="red">"&amp;Err.Description&amp;"</font>")   
 5end if   
 6  
 7'清场   
 8set objEmail = nothing   
 9end sub   
10  
11使用该过程：

.....

RTSEmail GuestMailID,""&email&""
.....