参考：三种发送方式。可选择。或许对你有点帮助吧！
if emailtype=1 then
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentTransferEncoding = "base64"
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.Sender=sendmail
JMail.SenderName = rs9("name")&"在线电邮"
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient (""&email&"")
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set JMail=nothing
end if
if emailtype=2 then
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =sendmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
end if
if emailtype=3 then
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=sendmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
end if
