说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

网站如何实现给新注册的用户里的邮箱里自动发邮件

编辑:说三道四文库 发布时间:2018-04-26 02:18
HTML文档下载 WORD文档下载 PDF文档下载
网站如何实现给新注册的用户里的邮箱里自动发邮件,就是给注册的用户填写的邮箱地址里发送确认信件,一注册后网站自动发送的,需要怎么样来实现有人知道具体步骤么
一般服务器有发邮件组件,比如jmail组件,如果有这个,可以用如下代码发送,这个代码添加到新注册的页面提交的代码后面。就是注册成功后,这个代码执行。
if user_mail<>"" then
       SendFrom="im@dreamsun.cn"
       SendTO=user_mail
       smtpserver=""
       sendusername=""
       sendpassword=""
       subject=username&"您好,您在追梦阳光帖吧的注册信息!"
       SendName="追梦阳光"
       message="<html>"
       message=message & "<title>您的注册信息</title>"
       message=message & "<body>"
       message=message & "<TABLE border=0 width='80%' align=center><TR>"
       message=message & "<TD valign=middle align=left>"
       message=message &  username& " 您好:<br>"
       message=message & " &nbsp;&nbsp;&nbsp;感谢您光临<a href=http://www.dreamsun.cn target=_blank>追梦阳光帖吧</a>并注册为会员,我们将为您提供一流的服务。<br> &nbsp;&nbsp;&nbsp;以下是您的的注册信息,请妥善保管:<br>"
       message=message & " &nbsp;&nbsp;&nbsp;<b>用户名:"&username&"</b><br>"
       for i=1 to len(pwd)-4
              xxinghao=xxinghao&"*"
       next
       message=message & " &nbsp;&nbsp;&nbsp;<b>密 码:"&left(pwd,4)&xxinghao&"(只显示前四位)</b><br>"
       message=message & "<center><font color=red>祝您天天愉快,我们将竭诚为您服务!</font>"
       message=message & "</TD></TR><TR><TD valign=middle align=right>"
       message=message & "<a href=http://www.dreamsun.cn target=_blank>追梦阳光dreamsun.cn</a><br>"&now()
       message=message & "</TD></TR></TABLE>"
       message=message & "注意:该信息为系统自动信息,请勿回复.如有疑问,请联系www.dreamsun.cn"
       message=message & "</body>"
       message=message & "</html>"
       call SendJmail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,message,SendName)
end if 


'*************************************
'SendJmail
'Atrribute Add For V1.6 2008-3-5 dreamsun
'*************************************
Sub SendJmail(sendFrom,sendTO,smtpserver,sendusername,sendpassword,subject,message,SendName)
On Error Resume Next
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = SendFrom
jmail.silent = true
jmail.Logging = true
jmail.FromName = SendName
jmail.mailserverusername = sendusername
jmail.mailserverpassword = sendpassword
jmail.AddRecipient sendTO
jmail.body=message
JMail.Subject=subject
if not jmail.Send ( smtpserver ) then
SendMail="<center>由于系统错误,给您发送的操作记录未成功!</center>"
end if
response.Write SendMail
End Sub



转至 沙丁网 www.57et.com
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘