简单生活 发表于 2015-1-16 22:29:23

ASP编程:使用CDONTS发送邮件的ASP函数

SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。<%
LastUpdatedByReconOn05/14/2001
OnErrorResumeNext

使用CDONTS组件在Win2k上发送邮件

发送一般邮件
SendMail"admin@ny.com","iamchn@263.net","NormalMail!","Pleasechecktheattatchment!",2,0,"C:Love.txt"

发送HTML邮件
Dimm_fso,m_tf
Dimm_strHTML

Setm_fso=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Setm_tf=m_fso.OpenTextFile("C:Mail.htm",1)
m_strHTML=m_tf.ReadAll

Writem_strHTML
Setm_tf=Nothing
Setm_fso=Nothing

SendMail"admin@ny.com","iamchn@263.net","HTMLMail!",m_strHTML,2,1,Null

参数申明
strFrom:发件人Email
strTo:收件人Email
strSubject:函件主题
strBody:函件注释
lngImportance:函件主要性
:0-低主要性
:0-中等主要性(默许)
:0-高主要性
lngAType:函件格局
:为1时将邮件注释作为HTML(此时能够发送HTML邮件)
strAttach:附件的路径
SubSendMail(strFrom,strTo,strSubject,strBody,lngImportance,lngAType,strAttach)
DimobjMail

SetobjMail=Server.CreateObject("CDONTS.NEWMAIL")
WithobjMail

.From=strFrom
.To=strTo
.Subject=strSubject
.Body=strBody
.Importance=lngImportance

IflngAType=1Then
.BodyFormat=0
.MailFormat=0
EndIf

IfIsEmpty(strAttach)=FalseAndIsNull(strAttach)=FalseThen
.AttachFilestrAttach
EndIf

.Send
EndWith
SetobjMail=Nothing
EndSub
%>

想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

乐观 发表于 2015-1-19 14:46:00

从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了

老尸 发表于 2015-1-25 09:18:19

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

第二个灵魂 发表于 2015-2-2 20:12:56

下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。

只想知道 发表于 2015-2-8 04:57:25

那么,ASP.Net有哪些改进呢?

活着的死人 发表于 2015-2-24 06:45:40

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

仓酷云 发表于 2015-3-7 11:53:49

我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。

飘灵儿 发表于 2015-3-15 04:12:17

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

再见西城 发表于 2015-3-21 18:03:09

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
页: [1]
查看完整版本: ASP编程:使用CDONTS发送邮件的ASP函数