send_mail.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<%
function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
  on error resume next
  Dim Jmail
  Set Jmail=server.createobject("Jmail.Message")
  Jmail.Charset="gb2312"
  Jmail.Priority=2					'优先级
  Jmail.MailServerUserName="[e-mail]"		'这里换成您的SMTP验证帐号
  Jmail.MailServerPassword="xiao761022"			'这里填写您的SMTP认证密码
  Jmail.From=j_email					'发信人邮件地址
  Jmail.FromName=j_name					'发信人姓名
  Jmail.Subject=j_Subject				'信件主题
  Jmail.AddRecipient j_sendname				'收信人地址
  Jmail.Body=j_HTMLBody					'TXT Mailbody参数是信件正文
  'JMail.HTMLBody=j_HTMLBody				'HTML信件正文
  Jmail.Send("mail.sea521.com")				'发信的邮件服务器

  send_jmail="ok"
  if err then
    err.clear
    send_jmail="no"
  end if
  Set Jmail=nothing
end function
%>