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"