仓酷云

标题: ASP教程之完成ASP文件在线发邮件 [打印本页]

作者: 萌萌妈妈 时间: 2015-1-16 22:29
标题: ASP教程之完成ASP文件在线发邮件
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件笔者在理论中使用ASP的COM组件功效，在VB中完成了一个发邮件的小组件，在ASP中只经由过程轻松挪用，就能够完成该功效。一切邮件处置机制都被封装在这个组件中，利用起来极其便利。上面将具体先容该组件的基础开辟道理和在ASP中的使用。

　　1．使用Winsock控件与发送邮件的SMTP接洽

　　和SMTP的接洽包含握手、发送数据和封闭等全历程，次要程序以下：

　　创建一个frmsendmail的窗体,个中包括一个Winsock控件，有以下几个大众变量：

　　PublicmSTMPAsString

　　//发送邮件的STMP

　　PublicmFromAsString

　　//FROM地点

　　PublicmToAsString

　　//抵达地点

　　PublicmSubjectAsString

　　//邮件主题

　　PublicmTextAsString　　

　　//邮件注释

　　Sock.ConnectmSTMP,25

　　//和发送邮件的STMP创建接洽

　　PrivateSubSock_Connect()

　　　　SFlag=sfConn

　　//毗连乐成后设置参数

　　EndSub

　　PrivateSubSock_DataArrival(ByValbytesTotalAsLong)

　　　　OnErrorGoTodaErr

　　　　DimsAsString

　　　　Sock.GetDatas

　　　　SelectCaseSFlag

　　　　　　CasesfStart

　　　　　　CasesfConn

　　　　　　　　SFlag=sfHelo

　　//收回握手信息HELLO

　　　　　　Send"HELO"&&mMyname

　　　　　　CasesfHelo

　　　　　　SFlag=sfFrom

　　Send"MAILFROM:"&&GetReal(mFrom)

　　　　　　CasesfFrom

　　　　　　　　IfLeft(s,3)〈〉"250"ThenGoToSrvErr

　　//假如乐成发送吸收邮件地点

　　SFlag=sfRcpt

　　Send"RCPTTO:"&&GetReal(mTo)

　　　　　　CasesfRcpt

　　　　　　　　IfLeft(s,3)〈〉"250"ThenGoToSrvErr

　　//假如乐成入手下手发送数据

　　SFlag=sfData

　　Send"Data"

　　CasesfData

　　IfLeft(s,3)〈〉"354"ThenGoToSrvErr

　　SFlag=sfSendOver　　　　　　　　//数据包含4项，最初以.停止

　　Send"From:"&&mFrom

　　Send"To:"&&mTo

　　Send"Subject:"&&mSubject&&vbCrLf

　　SendmText

　　Send"."

　　CasesfSendOver

　　IfLeft(s,3)〈〉"250"ThenGoToSrvErr

　　SFlag=sfStart

　　SendOk=True

　　Send"Quit"

　　EndSelect

　　ExitSub

　　EndSub

　　2．将上述功效封装在一个类中

　　因为ASP能利用的组件中不克不及存在控件，以是要经由过程类模块来封装上述窗体。起首在类初始化时创建一窗体：

　　PrivateSubClass_Initialize()

　　　　Setfrm=NewfrmSendMail

　　EndSub

　　把窗体的大众变量作为属性封装在类模块中。

　　该窗体的函数接口为：

　　PublicSubSend()

　　　　frm.SendStart

　　EndSub

　　3．注册该组件

　　将上述工程编译成DLL文件，经由过程VB注册或手工注册都能够。

　　4．在ＡＳＰ中的使用

　　挪用办法以下：

　　SetsMail=Server.CreateObject("SendMailX.Mail")

　　sMail.STMP="166.166.1.1"

　　sMail.LogFile="e:Logsmail.log"

　　sMail.mFrom=mFromName&&"〈"&&mFromAddr&&"〉"

　　sMail.mTo=mToName&&"〈"&&mToAddr&&"〉"

　　sMail.mSubject=mSubject

　　sMail.mText=mText

　　sMail.Send

　　个中变量能够经由过程赋值，也能够来自上一个request页面。

　　因为版面所限，不克不及具体叙说，必要此组件的伴侣能够到http://flyfly.533.net的软件编程栏目高低载。
ASP脚本是采用明文（plaintext）方式来编写的。

作者: admin 时间: 2015-1-19 15:10
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 活着的死人 时间: 2015-1-26 09:47
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 灵魂腐蚀 时间: 2015-2-4 13:57
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 小魔女 时间: 2015-2-10 01:33
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 飘灵儿 时间: 2015-2-28 13:59
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 冷月葬花魂 时间: 2015-3-9 23:53
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 萌萌妈妈 时间: 2015-3-17 03:10
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 变相怪杰 时间: 2015-3-17 03:10
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 兰色精灵 时间: 2015-3-23 18:10
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

欢迎光临仓酷云 (http://ckuyun.com/)