<%
'发信参数设置，当设置为1时需要将注释中带有◆的修改成您自己的参数值
'------------------------------------------------------
my_mailto="1"                      '◆发信组件0为smtp,1为jmail
'------------------------------------------------------


'◆自动发信时邮件底部签名信息设置
'------------------------------------------------------
email_bd="红豆情缘 ◎ 客户服务中心<br>==================================================<br><a href=http://www.hongdou999.com>http://www.hongdou999.com</a><br>地址：昆山市人民南路金山大厦1106号(215300)<br>电话：0512-57336131<br>传真：0512-57328215<br>"
'------------------------------------------------------


'jmail发信调用方法jmail email,bt,nr
sub jmail(email,bt,nr)
set myjmail = server.CreateObject ("jmail.message")   '创建对象
myjmail.Silent = true                                 '一般不用改
myjmail.Charset = "GB2312"                            '邮件的文字编码为国标
myjmail.ContentType = "text/html"                     'text/html是超文本格式text/plain是文本格式 
myjmail.Priority = 3                                  '设置邮件的优先级(1-5，1为最高)
myjmail.From = my_email                               '发信人邮箱
myjmail.Subject = bt                                  '信件主题
myjmail.AddRecipient email                            '收信人信箱
myjmail.Body = nr                                     '信件正文
myJMail.FromName=my_name                              '发件人名称(此处用网站名称名义) 
myjmail.MailServerUserName = "yanglei@fmweb.cn"        '◆邮件服务器登陆用户名(您的邮箱登陆名称)
myjmail.MailServerPassWord = "57895314"                    '◆邮件服务器登陆密码(您的邮箱登陆密码)
myjmail.Send("mail.fmweb.cn")                          '◆邮件服务器地址(您的邮件服务器地址)
myjmail.Close                                         '关闭对象
end sub
'------------------------------------------------------


'smtp发信调用方法smtp email,bt,nr
sub smtp(email,bt,nr)
    Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
    With objMail
    .From = my_email       '邮件发件人的地址     
    .To = email            '邮件收件人的地址
    .Subject =bt           '邮件的标题
    .Body =nr              '邮件的内容
    .MailFormat=0
    .BodyFormat=0
    .Send                  '执行邮件发送
     End With
    Set objMail = Nothing  '关闭对象
end sub
%>