|
|
aspemail组件的应用
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
广告招租，e-mail:yesize@hotmail.com sub sendMail(a_intID , a_strEmail) const c_strMailServer = smtp.163.net dim objConn,objRs,strSql dim strContent,strBody,strSubject,objEmail</P><P>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></P><P>发送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</P><P>检察错误 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 </P><P>清场 set objEmail = nothing end sub </P><P>使用该过程： <% .....</P><P>RTSEmail GuestMailID,&email& .....</P><P>%>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
加入最爱
热门小游戏分类 
