|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 若何经由过程 ASP 来发送带附件、格局为 HTML 的邮件?上面供应了一个例程.
<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'创立对象实例
Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是将要发送的内容
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size=7>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'发件人
myMail.From = "somebody@somewhere.com"
'收件人
myMail.To = "nobody@somewhere.com"
'密件抄送
myMail.Bcc = "nobody@somewhere.com"
'抄送
myMail.Cc = "nobody@somewhere.com"
'邮件的主要性
' 0 主要性低
' 1 主要性普通(默许)
' 2 主要性高
myMail.Importance = 2
'邮件主题
myMail.Subject = "Test mail in HTML"
'附件(注重 e:\test.txt 指的是办事器上的地位,假如利用绝对途径,必需用 Server.MapPath 映照为真实途径)
myMail.AttachFile "e:\test.txt"
'NewMail 对象的文字格局
'0 暗示该 Body 可包括超文本置口号言 (HTML)
'1 暗示该 Body 只用于纯文本(默许值)
myMail.BodyFormat = 0
'NewMail 对象设置编码
'0 暗示将采取 MIME 格局
'1 暗示将采取一连的纯文本(默许值)
myMail.MailFormat = 0
'给邮件对象的文本赋值
myMail.Body = HTML
'将邮件收回
myMail.Send
'烧毁对象实例,释放内存
Set myMail = Nothing
%>
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |
|