用asp发送带附件的邮件.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<% 
Option Explicit 
Dim objMail
 Set objMail = Server.CreateObject("CDONTS.NewMail")
 objMail.From = "[e-mail] " 
 objMail.Subject = "闪亮日子之精彩春风"
 objMail.AttachFile("s:\flashdays\images\win.jpg")
 objMail.To = "[e-mail]"
 objMail.Body = "我们一定要解放台湾!"
 objMail.Send
 Response.write("Mail was Sent")  
set objMail = nothing
%>