| You are in the Junwell of the registered information | |
"
Content = Content + " "
Fromer = "web@wxweb.cn"
Sender = "junwell.com.hk"
ServerSmtp = "smtp.qq.com:465"
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "utf-8" '邮件字符集，默认为"US-ASCII"
'JMail.ISOEncodeHeaders = False '是否进行ISO编码，默认为True
'发送者信息（可用变量方式赋值）
JMail.From = Fromer '用于发送的邮箱
JMail.FromName = Sender '发送者姓名
JMail.Subject = Subject '邮件主题
'身份验证
JMail.MailServerUserName = Fromer '用于发送的邮箱
JMail.MailServerPassword = "wen2013" '密码
'设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(uname)
'加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
'【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (filename, True)
'邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = Content
'邮件主体（文本部分）
'JMail.Body = "我们的邮件采用了HTML格式，请点击邮件下方""HTML内容""来查看详细内容。"
'发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'JMail.Send([1291901191@qq.com:YYY19841114@]smtp.qq.com[:465])
sendok=JMail.Send("smtp.qq.com") '发送mail服务器
if sendok then
endstr= "Sent successfully!"
else
endstr= "Send failed!"
end if
'关闭并清除对象
JMail.Close()
Set JMail = Nothing
'----------------------------------------使用jmail发送邮件结束-----------------------------
'JMail2 注册信息发给管理员
'On error resume next
dim Subject2,Content2,Email2,Fromer2,MailAddress2,Sender2,jmail2
Subject2 = uname&" 在junwell.com.hk注册会员"
Content2 = "| "&uname&" 在junwell.com.hk注册为会员，请到后台审核。 |
"
Content2 = Content2 + " "
uname2 = "yuyanyin@qq.com"
Set JMail2 = Server.CreateObject("JMail.Message")
JMail2.Charset = "utf-8" '邮件字符集，默认为"US-ASCII"
'JMail.ISOEncodeHeaders = False '是否进行ISO编码，默认为True
'发送者信息（可用变量方式赋值）
JMail2.From = Fromer '用于发送的邮箱
JMail2.FromName = Sender '发送者姓名
JMail2.Subject = Subject2 '邮件主题
'身份验证
JMail2.MailServerUserName = Fromer '用于发送的邮箱
JMail2.MailServerPassword = "wen2013" '密码
'设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail2.Priority = 3
JMail2.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail2.AddRecipient(Fromer)
JMail2.AddRecipient(uname2)
'加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
'【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (filename, True)
'邮件主体（HTML(注意信件内链接附件的方式)）
JMail2.HTMLBody = Content2
'邮件主体（文本部分）
'JMail.Body = "我们的邮件采用了HTML格式，请点击邮件下方""HTML内容""来查看详细内容。"
'发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'JMail.Send([1291901191@qq.com:YYY19841114@]smtp.qq.com[:465])
sendok2=JMail2.Send("smtp.qq.com") '发送mail服务器
if sendok2 then
endstr= "Sent successfully!"
else
endstr= "Send failed!"
end if
'关闭并清除对象
JMail2.Close()
Set JMail2 = Nothing
'----------------------------------------使用jmail发送邮件结束-----------------------------
response.Write("")
else
response.Write("")
end if
rs.close
set rs = nothing
else
response.Write("")
end if
end if
%> |