邮件附件

开启smtp服务
<% 
Set  MailObject  =  Server.CreateObject("CDONTS.NewMail")   
MailObject.From  =  " aaa@abc.com.cn"    '发件人地址
MailObject.To  =  " bbb@abc.com.cn; "    '收件人地址
MailObject.Subject  =  "test"           '主旨
MailObject.Body  =  "ssssss"            '正文
MailObject.MailFormat  =  0  '邮件的格式，0是MIME格式，1是文本消息   
MailObject.BodyFormat  =  0  '邮件的正文的格式，0表示HTML格式，1表示普通文本   
MailObject.Importance  =  1  '邮件的重要性，0表示低重要性，1表示普通，2表示高重要 
MailObject.AttachFile  (server.mappath("a.rar"))  '附件,可以有多个,要绝对路径
MailObject.AttachFile  (server.mappath("b.zip"))
MailObject.Send   
Set  MailObject  =  Nothing   
response.write  "ok"&"<br>"
%>