<%
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From = "发信人邮箱"
MailObject.To = "收信人邮箱"
MailObject.Subject = "邮件主题"
MailObject.Body = "邮件内容" '这些内容你可以用Request.form()接收表单的提交
MailObject.MailFormat = 1 '邮件的格式,0是MIME格式,1是文本消息
MailObject.BodyFormat = 0 '邮件的正文的格式,0表示HTML格式,1表示普通文本
MailObject.Importance = 1 '邮件的重要性,0表示低重要性,1表示普通,2表示高重要
MailObject.AttachFile ( "附件绝对路径" )
MailObject.Send
Set MailObject = Nothing
%>