|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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
%>
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|