有关邮件自动恢复的问题,那位大哥办办忙!
下面是一个邮件自动发送ASP文件,我已经安装了JMAIL组件,但我想我的写法有问题
用IE看时老是出错!那位大哥帮忙改改!
<%
'发送注册邮件
topic="您在11的注册资料"
getpass="eb5408eb"
webname="jadsfkafkk"
mailname="动感5566商城"
mailsend="smtp.163.com"
mailusername="baoxiaohua"
mailuserpass="bao123"
email="wwwhangeb2004@yahoo.com.cn"
mailbody="<html>"
mailbody=mailbody & "<title>注册信息</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & "欢迎您注册-网上商城会员,我们将提供给您最好的服务!<br>"
mailbody=mailbody & "下面是您在-网上商城的注册信息:<br><br>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient email
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
if SendMail="OK" then
sendmsg="<p>· 您的注册信息已经发往您的邮箱,请注意查收!</p>"
else
sendmsg="<p>· 系统出错,注册信息资料未能发送到您的邮箱!</p>"
end if
'response.write mailbody
'end if
response.Write "<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center> "
response.Write "<table width=450 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=260>"
response.Write "<p>· <font color=red>用户注册成功!</font></p><p>· 恭喜您注册成为 的正式用户,您的注册资料已经发往您注册时填写的邮箱,请牢记您的用户名和密码!</p>"
response.Write "<p>· <a href=index.asp>返回首页</a></p></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.write "<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center>"
response.write "<table width=450 border=0 align=center cellpadding=2 cellspacing=0><tr><td height=260>"
response.write "<p>· <font color=red>用户注册失败!</font></p> </td></tr></table></td></tr></table>"
end sub
%>