使用CDONTS发送邮件

set myMail=CreateObject("CDONTS.NewMail")

myMail.SetLocalIDS(65001)

myMail.From=txtMailFrom

myMail.To=txtMailTo

myMail.Subject="Subject"

myMail.BodyFormat=0

myMail.MailFormat=0

myMail.Body=mailbody

myMail.Send

Set myMail=Nothing

在发送的ASP页面中写入

@LANGUAGE=VBScript CODEPAGE=65001

session.CodePage=65001  : Response.Charset="utf-8"