<%
'替换参数后就ok了
'Subject主题，Body内容，HtmlBody是html格式内容，MailTo对方邮件，
'From发件人邮件，Fromname发件人，Smtp服务器，Username帐号，Password密码

mailflag=JmailSend(Subject,Body,true,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
if mailflag="Y" then
  response.write"发送成功"
else
   response.write"发送失败，请重试"
end if
'自动发送邮件函数
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
  dim JmailMsg
  set JmailMsg=server.createobject("jmail.message")
  JmailMsg.mailserverusername=Username
  JmailMsg.mailserverpassword=Password
  
  JmailMsg.addrecipient MailTo
  JmailMsg.from=From
  JmailMsg.fromname=FromName
  
  JmailMsg.charset="gb2312"
  JmailMsg.logging=true
  JmailMsg.silent=true
  
  JmailMsg.subject=Subject
  JmailMsg.body=Body
  if isHtml=true then JmailMsg.htmlbody=HtmlBody

  if not JmailMsg.send(Smtp) then
      JmailSend="N"
  else
      JmailSend="Y"
  end if
  JmailMsg.close
  set JmailMsg=nothing
end function  
%>

        set objcdomail=server.CreateObject ("cdonts.newmail")
        objcdomail.From ="发信"
        objcdomail.To ="收信"
        objcdomail.Subject ="主题"
        objcdomail.Body ="内容"
        objcdomail.Send
        set objcdomail=nothing