<% '发送邮件到会员邮箱里
server.ScriptTimeout=999
function sendJmail(strFromEmail,strFromName,strToEmail,strSubject,intBodyType,strBody)
dim msg
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" '邮件文字的代码为简体中文
JMail.Logging = true
'JMail.silent=true
JMail.From = strFromEmail
JMail.FromName = strFromName
JMail.Subject = strSubject
JMail.MailServerUserName = "nycy_fang686" '发送邮箱用户名
JMail.MailServerPassword = "f" '发送邮箱密码
JMail.Priority = 3 ''邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(strToEmail)
if intBodyType=1 then
JMail.ContentType="text/html"
end if
JMail.Body = strBody
msg=JMail.Send("smtp.163.com") '发送邮件服务器
JMail.Close()
Set JMail = Nothing
sendJmail=msg
end function
tomailstr="lilalalali@sina.com" '将要发送到的邮箱
frommailstr="nycy_fang686@163.com"' 发送的邮箱
strfromname="ycy" '发送人名字
strtitle="测试标题" '邮件主题
strcontent="测试内容" '邮件内容
response.write sendJmail(frommailstr,strfromname,tomailstr,strtitle,0,strcontent)
'邮件发送结速%>
<%
server.ScriptTimeout=999
email=Request("email")
Randomize
RNumber = Int(Rnd*49900000) +1
If len(RNumber)<6 then Rnumber="2312"&RNumber
NumT=RNumber
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
'JMail.From = "cllsky@gmail.com" ' 发送者地址
JMail.From="nycy_fang163.com@163.com"
JMail.FromName = "玫瑰情缘邮箱认证提醒" ' 发送者姓名
JMail.Subject = "欢迎你加入玫瑰情缘交友网，请进行邮箱认证！" ' 邮件主题
' 身份验证
'JMail.MailServerUserName = "cllsky" ' 身份验证的用户名
'JMail.MailServerPassword = "cllsnow" ' 身份验证的密码
JMail.MailServerUserName = "nycy_fang163.com" ' 身份验证的用户名
JMail.MailServerPassword = "q" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'email = "21219121@163.com" ''''收信人email
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(email)
'contentId = JMail.AddAttachment (filename, True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""><center>玫瑰情缘温馨提示，请进行邮箱认证！<Br><br><a href='http://www.186099.net/EmailCheck.asp?LinkId="&NumT&"&account="&Email&"' target='_blank'>马上进行邮箱验证</a></center></body></html>"
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：http://music.liuxuan.com"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'JMail.Send("smtp.gmail.com")
JMail.Send("smtp.163.com")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>