Posted on 2006-09-18 15:46
小傻 阅读(279)
评论(1) 编辑 收藏
<!--#include file="md5.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>J-mail</title>
</head>
<body>
<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
username="litianyi"
session("rid")=md5(username)
smtpserver = "smtp.163.com" '邮局服务器地址
smtpuser = "***" 'smtp服务器验证登陆名
smtppwd = "***" 'smtp信箱密码
Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3
jMail.ContentType = "text/html"
JMail.From = litianyi520@163.com ' 你的邮箱地址
JMail.FromName = "李"
Jmail.ReplyTo ="litianyi520@163.com" ' 你的邮箱地址
JMail.AddRecipient(gaoxuelei1983@126.com) '邮件收件人的地址
JMail.Subject = "Test for JMail" '邮件标题
JMail.Body = JMail.Body &"亲爱的客户:<font color=red>"&name&"</font><br><b><font color=green>欢迎加入www.100buy.com.cn,您的密码是:"&password&"请在此登录激活帐号</b><br><a href='http://www.100buy.com.cn'>www.100buy.com.cn</a>"
Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd
Jmail.Send(smtpserver)
isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！谢谢你的支持。")
RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
end if
JMail.Close()
Set JMail = Nothing
%>
</body>
</html>