《发送电子邮件4982.pptx》由会员分享，可在线阅读，更多相关《发送电子邮件4982.pptx（80页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第七七章章发送电子邮件发送电子邮件学习目标学习目标：掌握JMail组件的安装和注册的方法。掌握利用JMail组件发送普通电子邮件的方法。掌握利用“无惧上传”上传文件的方法能利用JMail组件和“无惧上传”发送带附件的邮件。7.1需求分析需求分析大部分网站都具有将用户的注册信息、用户的留大部分网站都具有将用户的注册信息、用户的留言或用户找回的密码发送到指定的邮箱的功能。言或用户找回的密码发送到指定的邮箱的功能。Asp本身并不提供发送电子邮件的功能，但是可本身并不提供发送电子邮件的功能，但是可以利用第三方组件来实现发送电子邮件。目前因以利用第三方组件来实现发送电子邮件。目前因为大多数的虚拟主机都
2、支持为大多数的虚拟主机都支持Jmail组件，本章将介组件，本章将介绍绍asp如何调用如何调用Jmail4.5组件发送电子邮件。在发组件发送电子邮件。在发送电子邮件的时候有时需要发送带附件的电子邮送电子邮件的时候有时需要发送带附件的电子邮件，件，Asp本身也不提供上传附件的功能，利用无本身也不提供上传附件的功能，利用无惧上传类可以实现将邮件的附件上传到服务器中，惧上传类可以实现将邮件的附件上传到服务器中，然后在利用然后在利用Jmail4.5组件中的相关方法发送带附组件中的相关方法发送带附件的电子邮件。件的电子邮件。7.2任务分解任务分解7.2.1任务一：任务一：JMail组件安装、注册与卸载组件
3、安装、注册与卸载1.JMail 的特点W3JMail组件是当前国际上最为流行的邮组件是当前国际上最为流行的邮件组件之一，当今世界上绝大部分件组件之一，当今世界上绝大部分ASP程序程序开发人员都在使用开发人员都在使用JMail组件来构建邮件发组件来构建邮件发送系统。因为组件使用了最新的内核技术，送系统。因为组件使用了最新的内核技术，使用它更加可靠和稳定。使用它更加可靠和稳定。在本实例中使用的是在本实例中使用的是W3JMail4.5版本，此版本与版本，此版本与之前的版本相，具有很多新的特性。之前的版本相，具有很多新的特性。（1）JMail4.5重新设计了其内部结构重新设计了其内部结构，使用，使用M
4、essage对象来操作的。对象来操作的。（2）JMail4.5一共有一共有10多个对象，这些对象大多个对象，这些对象大多数是针对多数是针对Message对象来操作的。对象来操作的。（3）支持从）支持从POP3邮件服务器接收邮件邮件服务器接收邮件（4）支持加密邮件的传输。）支持加密邮件的传输。（5）支持快速发送，一次会话就可以完成邮件传）支持快速发送，一次会话就可以完成邮件传送。送。（6）支持集群发送，一次可以发送上万封邮件，）支持集群发送，一次可以发送上万封邮件，还可以通过还可以通过Mailmerge对象来个性化邮件。对象来个性化邮件。2.JMail组件的安装、注册与卸载组件的安装、注册与卸载
5、图7-1 JMail4.5 组件安装欢迎界面图7-2 JMail4.5 组件安装协议界面选择选择“Next”按钮，会出现安装协议安装画面，按钮，会出现安装协议安装画面，如图如图7-2所示。所示。选择选择“Iacceptthelicenseagreement”单选单选按钮，单击按钮，单击“Next”按钮，接受安装协议，按钮，接受安装协议，安装程序将文件安装到安装程序将文件安装到C:ProgramFilesDimacw3JMail目录中，如图目录中，如图7-3所示。所示。图7-3 JMail4.5 组件安装画面安装完成后会出现安装完成界面，如图安装完成后会出现安装完成界面，如图7-4所示。单击所示
6、。单击“Finish”按钮完成安装。按钮完成安装。图7-4 JMail4.5 组件安装完成画面（2 2）JMail JMail 组建的注册组建的注册JMailJMail组件安装完成之后还需要注册，以组件安装完成之后还需要注册，以Windows XPWindows XP操作系统为例介绍注册方法。操作系统为例介绍注册方法。打开打开C:Program FilesDimacw3JMailC:Program FilesDimacw3JMail文文件夹，如图件夹，如图7-57-5所示，选择所示，选择jmail.dlljmail.dll文件，文件，把它复制到把它复制到C:WINDOWSsystem32C:W
7、INDOWSsystem32文件夹下。文件夹下。图7-5 C:Program FilesDimacw3JMail文件夹选择选择“开始开始”菜单菜单“运行运行”，在，在“运行运行”对话框中输入对话框中输入“regsver32C:WINDOWSsystem32jmail.dll”如图如图7-6所示，按所示，按“Enter”键执行。注册成功键执行。注册成功后弹出如图如图后弹出如图如图7-7所示对话框。所示对话框。图7-6 运行对话框图图7-7 jmail7-7 jmail注册成功对话框注册成功对话框（3）JMail 组建卸载卸载JMail 的方法也比较简单，当再次运行JMail4.5的安装文件时，系
8、统会提示已经安装了JMail，提示是否卸载，如果选择是。则将JMail4.5卸载。卸载组件是安装组件的相反动作，可以使用参数/U 来卸载已安装的组件，执行命令“regsver32/U C:WINDOWSsystem32jmail.dll”即可。7.2.2任务二：任务二：JMail组件发送简单电子邮件组件发送简单电子邮件1.JMail组件组件Message对象方法简介对象方法简介JMail4.5 FREE版本可以发邮件，但是不能够收邮件和对邮件进行加密。发送电子邮件主要运用Message对象，Message主要对象的方法如表7-1所示。表表7-1 Message7-1 Message对象的方法对
9、象的方法属性（或方法）属性（或方法）说说明明AddAttachment(FieName,isInline,ContentType):String给邮件添加一个文件型的附件。给邮件添加一个文件型的附件。isInline设置为设置为True时，添加的这个附件就是一时，添加的这个附件就是一个可嵌入的附件个可嵌入的附件AddCustomAttachment(FileName,Data,isInine):String给邮件添加一个自定义类型的附件给邮件添加一个自定义类型的附件AddHeader(Xheader,Value)给邮件添加一个自定义邮件头给邮件添加一个自定义邮件头X-HeaderAddNati
10、veHeader(Header,Value)给邮件添加一个邮件头给邮件添加一个邮件头AddRecipient(emailAddress,recipientName,PGPKey)给邮件添加一个收件人。给邮件添加一个收件人。RecipientName和和PGPKey是可选项，是可选项，RecioientName为收件人姓名，为收件人姓名，PGPKey给邮件加密给邮件加密AddRecipientBCC(emailAddress,PGPKey)添加一个邮件暗送人（添加一个邮件暗送人（BCC）地址）地址AddRecipientCC(emailAddress,recipientName,PGPKey)给
11、邮件添加一个邮件抄送人（给邮件添加一个邮件抄送人（CC）地址）地址AppendText(Text)向邮件添加文本正文向邮件添加文本正文Close()释放释放JMail与邮件服务器连接而是用的缓存（与邮件服务器连接而是用的缓存（Cache）ExtractEmailAddressesFromURL(bstrURL,bstrAuth)从指定的网址（从指定的网址（URL）读取并添加邮件列表）读取并添加邮件列表LogCustomMessage(Message)给给JMail日志文件添加自定义日志。此函数只有在日志文件添加自定义日志。此函数只有在Logging属性被设置为属性被设置为True是是有效有效S
12、end(MailSerer,enque):Boolean发送邮件，邮件服务器是一个描述邮件服务器名称或地址的字符串，用户名和发送邮件，邮件服务器是一个描述邮件服务器名称或地址的字符串，用户名和密码是可选项。当要发送认证有件事使用格式为：密码密码是可选项。当要发送认证有件事使用格式为：密码邮件服务器邮件服务器About():string设置一些附加信息设置一些附加信息CHarset():String设置邮件使用的字符集。默认为设置邮件使用的字符集。默认为US-ASCII，支持中文则设置为，支持中文则设置为GB2312CotentTransferEncoding():String设置邮件编码。默认
13、为设置邮件编码。默认为:Quoted-Printable.Date():Date返回邮件发送时间返回邮件发送时间DeferredDeliery():Date设置邮件定时发送设置邮件定时发送Encoding():String设置附件的默认编码：设置附件的默认编码：Base64或或Quoted-PrintableISOEncodeHeaders()Boolean邮件头是否使用邮件头是否使用iso-8859-1编码，默认为编码，默认为TrueLog():String当当Logging为为Rrue时，该函数返回创建日志时，该函数返回创建日志Logging():Boolean是否启用日志。是否启用日志。
14、Message.Logging=True是，启用日志是，启用日志MailDomain():String设置发送邮件时使用的邮件服务器设置发送邮件时使用的邮件服务器MailServerPassWord():String当邮件服务器使用当邮件服务器使用SMTP发信认证时，该函数设置登录密码发信认证时，该函数设置登录密码MailServerUserName():String当邮件服务器使用当邮件服务器使用SMTP发信认证时，该函数设置登录账号发信认证时，该函数设置登录账号Priority():Byte设置邮件的优先级：设置邮件的优先级：1,2,3Subject():String设置邮件标题设置邮件标
15、题Text():String返回完整的邮件内容返回完整的邮件内容Version():String返回返回JMAIL的版本信息的版本信息2.2.利用利用JMail JMail 组件发送电子邮件组件发送电子邮件下面介绍利用下面介绍利用JMail组件组件Message对象实现发送简对象实现发送简单的电子邮件。发送简单的电子邮件包括单的电子邮件。发送简单的电子邮件包括email.html和和sendemail.asp两个页面。在制作发送两个页面。在制作发送电子邮件之前为了方便测试申请了网易免费邮箱，电子邮件之前为了方便测试申请了网易免费邮箱，邮箱名为：邮箱名为：，密码为：，密码为：nmgtest。（1
16、 1）制作）制作email.htmlemail.html页面页面 打开打开DreamweaverDreamweaver，选择新建一个，选择新建一个HTMLHTML页面。选页面。选择表单，插入一个表单域，如图择表单，插入一个表单域，如图7-87-8所示。所示。图7-8 插入文本域在表单域的属性动作中输入在表单域的属性动作中输入“sendemail.asp”，如，如图图7-9所示所示。图图7-9设置表单属性设置表单属性选择选择“常用常用”中的中的“表格表格”，弹出插入表格对话框，弹出插入表格对话框，插入一个行数为插入一个行数为5 5，列数为，列数为2 2的表格。如图的表格。如图7-107-10所示
17、。所示。图7-10 设置表单表格调整表格的距离，对表格的第一行和第调整表格的距离，对表格的第一行和第五行合并单元格，如图五行合并单元格，如图7-11所示。所示。图图7-11合并单元格合并单元格在表格的第一行输入在表格的第一行输入“请输入邮件内容请输入邮件内容”并居中，并居中，表格的第二行第一列输入表格的第二行第一列输入“收件人收件人”，第二列，第二列插入一个文本字段，并将属性中的文本域设置插入一个文本字段，并将属性中的文本域设置为为“shoujianren”。表格的第三行第一列输。表格的第三行第一列输入入“主题主题”，第二列插入一个文本字段，并将，第二列插入一个文本字段，并将属性中的文本域设置
18、为属性中的文本域设置为“zhuti”。在表格的。在表格的第四行第一列输入第四行第一列输入“内容内容”，第二列插入一个，第二列插入一个文本区域，并将属性中的文本域设置为文本区域，并将属性中的文本域设置为“neirong”，字符宽度为，字符宽度为50，行数为，行数为10。在。在表格的第五行插入两个按钮，一个为提交，一表格的第五行插入两个按钮，一个为提交，一个为重置，并居中。效果如图个为重置，并居中。效果如图7-12所示，将网所示，将网页保存为页保存为email.html。图7-12 制作发送邮件页面（2）制作）制作sendemail.asp页面页面打开Dreamweaver，新建一个asp vbs
19、cript页面，在和 之间输入如下代码：（3）测试打开IIS服务器，右键单击email.html页面，选择“浏览”，出现如图7-13所示页面。图7-13 发送邮件网页输入收件人的邮箱地址，邮件的主题和内容，输入收件人的邮箱地址，邮件的主题和内容，点击点击“提交按钮提交按钮”，出现如图，出现如图7-14所示页面。所示页面。图7-14 邮件发送成功网页打开收信人的邮箱，即可以查看邮件了，如图7-15所示。图7-15 收信人邮箱页面7.2.3任务三：上传文件任务三：上传文件 随着网络的发展，网站提供的内容也越来越丰富，网站的上传资源不是在网站建立时就已经很齐全了，而是管理员与用户共同维护的结果，用户
20、通过文件上传可以让网站的资源变的更多，资料变的更齐全。在本任务中将介绍如何设计一个上传文件页面的方法。现在实现上传文件页面的方法很多，但是总的来说可以分为两类，一类是无组件上传文件，另一类是通过组件上传文件。所谓组件上传，就像在邮件系统中用到的JMail一样，需要网页设计人员去下载一个组件文件，并将其在服务器系统中注册。这种方法的缺点是，当把网站移植到另一台服务器上时，需要重新注册组件。无组件上传的方法就不存在这个问题。在本章中将采用粱无惧先生编写的“无惧无组件上传类”来实现上传文件页面的设计。在本网页中采用的是无惧上传类V2.2版本，它实际上是一个将代码模块化的asp文件，在设计上传网页的时
21、候，只要将upfile_class.asp文件包含在其中，就可以使用它设计的上传函数或过程来完成上传。无惧上传类的属性及方法如下所示。1.上传类的介绍（1）Upfile_Class类公共属性File：文件域的集合，它是一个Dictionary对象，返回值为一个FileInfo_Class；类，可以进行续写操作。Form：表单域的集合，它是一个Dictionary对象，返回值为对应表单域的值，可以进行续写操作。isErr：返回错误的值。1表示没有上传文件，2表示上传超过限制大小，-1表示无错。此属性只读。Version：返回此类的版本信息。此属性只读。AllowExt：允许上传的文件类型的名单，
22、可以在此类的文件中预设可上传的文件类型，它以文件的后缀名来判断，不区分大小写，后缀名之间用“；”来隔开。此属性是可续写的。NoAllowExt：不允许上传的文件类型的名单，其属性与AllowExt相似。ErrMessage：显示错误的字符串信息，其属性只读。（2）公共方法GetData(MaxSize As Int64)：分析上传的数据。MaxSize为限制上传的最大字节数，高为-1表示不限制大小。这是一个过程，没有返回值，调用后可以通过isErr来检查是否大于0。SaveToFile(Item As String,Path As String)：保存到文件，自动覆盖已经存在的同名文件，其中参
23、数Item为表单名，Path为保存的绝对路径，返回值为保存的文件名。AutoSave(Item As String,Path As String)：保存到文件，自动穿件文件名以避免重复，其中参数Item为表单名，Path为保存的绝对路径（可以包含文件名），返回值为保存的文件名。FileData(Item As String)：取得文件数据。其中参数Item为表单名。GetFilePath(FullPath As String)：返回文件路径。GetFileName(FullPath As String)：返回文件名。GetFileExt(FullPath As String)：返回文件的后缀名
24、。GetNewFileName（）：返回一个时间种子的不重复数值，可以用做文件名。isAllowExt(Ext As String)：返回一个真值假值是指Ext是否为可以上传的类型。（3）受保护的方法SaveToFileEx(Item As String,Path As String,Over As bool)：保存到文件。其中Over指示如果文件存在是否覆盖，如果Over为真时，文件按PATHL来保存，如果Over为假，则自动调用GetNewFileName（）生成一个新的不重复的文件名，以上传时的后缀名保存。（4）FileInfo_Class类文件信息类，用来存贮上传的文件信息。（5）Fi
25、leInfo_Class公共属性FileName：返回上传的文件名。FilePath：返回上传时文件在客户端的路径。FileExt：返回文件扩展名。FileMIME：返回文件MIME类别。FileSize：返回文件大小（以字节为单位）。上面介绍了上传类的公共属性和方法，这样在设计时，只需要调用这些公共属性与方法就可以实现上传网页的设计。2.上传照片和作业上传照片和文件共包含index.html，UploadPic.asp，SaveToFile.asp，UploadSoft.asp，addupload.asp和SavePicToFile.asp六个页面。将实现分别将照片和文件上传到服务器的Upl
26、oadSoftPic文件夹和UploadSoft文件夹中，并将相关信息写入数据库。（1）数据库设计打开ACCESS数据库，选择使用“设计器创建表”，设计如下字段，name，sex，year，picture，major，class，month，soft类型都为文本型，分别用来保存学生的姓名、性别、出生年、学生照片路径、学生专业、学生班级、出生月和上传作业的路径，如图7-16所示，保存在Database文件夹下，名称为upload.mdb。图7-16 数据库字段设置（2）UploadPic.asp页面设计打开Dreamweaver，新建一个asp vbscript页面，插入一个表单域，对其属性进行
27、设置，表单名称为upSoftPic，动作为SavePicToFile.asp，方法为POST，MIME类型为multipart/form-data。在表单域中插入一个文件域和一个按钮，把按钮的名字改为上传，效果如图7-17所示。图7-17 UploadPic.asp页面（3）UploadSoft.asp页面设计UploadSoft.asp页面和UploadPic.asp页面设计基本一样，只是把动作设置为SaveToFile.asp。（4）SaveToFile.asp页面设计打开Dreamweaver，新建一个asp vbscript页面，输入如下代码：%dim SavePathdim upfi
28、le,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount 定义了网页中的所有变量dim msg,strJSSavePath=UploadSoftmsg=upfilecount=0if right(SavePath,1)/thenSavePath=SavePath&/end ifset upfile=new upfile_class 建立上传对象upfile.AllowExt=rar;zip;设置允许上传类型的名单upfile.GetData(10240000)取得上传数据,限制最大上传10M%文件上传%if upfile
29、.isErr then 如果出错 select case upfile.isErrcase 1msg=你没有上传文件case 2msg=你上传的文件超出我们的限制,最大10M end selectelseFSPath=GetFilePath(Server.mappath(upfile.asp),)取得当前文件在服务器路径ServerPath=GetFilePath(Request.ServerVariables(“HTTP_REFERER”),“/”)取得在网站上的位置for each formName in upfile.file 列出所有上传了的文件strJS=&vbcrlf set oF
30、ile=upfile.file(formname)FileName=upfile.getNewFileName()FileName=SavePath&FileName&oFile.filename upfile.SaveToFile formname,FSPath&FileName 保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名 if upfile.iserr then strJS=strJS&alert(&upfile.errmessage&);&vbcrlfstrJS=strJS&history.go(-1);&vbcrlfelseupfilecount=u
31、pfilecount+1Response.Write(软件上传成功！软件大小为：&cstr(round(oFile.fileSize/1024)&K)strJS=strJS&parent.document.UploadSoft.DownloadUrl.value=&fileName&;&vbcrlfstrJS=strJS&parent.document.UploadSoft.SoftSize.value=&cstr(round(oFile.fileSize/1024)&;&vbcrlfend ifstrJS=strJS&vbcrlfresponse.write strJS set oFile=
32、nothingnextend ifset upfile=nothing 删除此对象%function GetFilePath(FullPath,str)If FullPath Then GetFilePath=left(FullPath,InStrRev(FullPath,str)Else GetFilePath=End If End function%程序说明：dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount 定义了网页中的所有变量。定义了标签内的文本显示位置，因为此页面是嵌入在index.as
33、p页面内，所以需要规定它开始显示的位置，让信息在index.asp页面内的正确位置显示。strJS=&vbcrlf 定义了一个Script标签的字符串，以便在上传完成后，将上传文件的大小和上传的地址写入Index页面内“文件大小”和“下载地址”文本框中。set oFile=upfile.file(formname)利用upfile_class类的file属性来获得一个文件对象。FileName=upfile.getNewFileName()生成一个以时间为种子的随机的、不重复的数值来作为上传文件的文件名。FileName=SavePath&FileName&oFile.filename 将保存
34、路径和上传代码生成的随机数，以及上传文件原来的文件名一起组成此文件在服务器上的相对路径。Response.Write(图片上传成功！图片大小为：&cstr(round(oFile.fileSize/1024)&K)如果上传正确，则利用JavaScript脚本语言将上传文件的大小相对路径写入Index页面上“文件大小”文本框中。strJS=strJS&parent.document.UploadSoft.SoftPicUrl.value=&fileName&;&vbcrlf如果上传正确，则利用JavaScript脚本语言将上传文件的上传路径相对路径写入Index页面上“下载地址”文本框中。set
35、 oFile=nothing上传文件完成后，删除刚才建立的文件对象。set upfile=nothing上传文件完成后，删除刚才建立的上传对象。function GetFilePath(FullPath,str)定义了一个名为GetFilePath的函数，此函数用于获得文件在服务器的地址。（5）SavePicToFile.asp页面设计打开Dreamweaver，新建一个asp vbscript页面，输入如下代码：文件上传%if upfile.isErr then 如果出错 select case upfile.isErrcase 1msg=你没有上传文件case 2msg=你上传的文件超出我
36、们的限制,最大10Mend selectelseFSPath=GetFilePath(Server.mappath(upfile.asp),)取得当前文件在服务器路径ServerPath=GetFilePath(Request.ServerVariables(HTTP_REFERER),/)取得在网站上的位置for each formName in upfile.file 列出所有上传了的文件strJS=&vbcrlf set oFile=upfile.file(formname)利用upfile_class类的file属性来获得一个文件对象。FileName=upfile.getNewFil
37、eName()FileName=SavePath&FileName&oFile.filename upfile.SaveToFile formname,FSPath&FileName 保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名 if upfile.iserr then strJS=strJS&alert(&upfile.errmessage&);&vbcrlfstrJS=strJS&history.go(-1);&vbcrlfelseupfilecount=upfilecount+1Response.Write(图片上传成功！图片大小为：&cstr(roun
38、d(oFile.fileSize/1024)&K)strJS=strJS&parent.document.UploadSoft.SoftPicUrl.value=&fileName&;&vbcrlfend ifstrJS=strJS&vbcrlfresponse.write strJS set oFile=nothingnextend ifset upfile=nothing 删除此对象%function GetFilePath(FullPath,str)If FullPath Then GetFilePath=left(FullPath,InStrRev(FullPath,str)Else
39、GetFilePath=End IfEnd function%程序说明：SavePicToFile.asp文件内容和SaveToFile.asp文件内容基本一样，只是设置允许上传类型的名单不同，SavePicToFile.asp文件允许上传的扩展名为jpg;png;gif;bmp。（6）index.html页面设计打开Dreamweaver，新建一个asp vbscript页面，插入一个表单域，行为设置为addupload.asp。在表单域中插入一个8行2列的表格。分别输入姓名，性别，出生年，出生月，专业，班级，上传照片，上传作业。分别在上传照片和上传作业后面的表格中插入和两个IFRAME。效
40、果如图7-18所示。图图7-18index.html页面页面（7）addupload.asp页面设计year1=request.Form(year)month1=request.Form(month)major=request.Form(major)picture=request.Form(SoftPicUrl)soft=request.Form(DownloadUrl)class1=request.form(class)Set Recordset1=Server.CreateObject(ADODB.recordset)sql=SELECT*FROM 表1 Recordset1.open s
41、ql,MM_coon_STRING,3,3Recordset1.addnewRecordset1(name)=name1Recordset1(sex)=sexRecordset1(year)=year1Recordset1(month)=month1Recordset1(major)=majorRecordset1(class)=class1Recordset1(picture)=pictureRecordset1(soft)=softRecordset1(class)=class1Recordset1.updateRecordset1.Closeset Recordset1=nothingr
42、esponse.write(上传成功！)%程序说明：addupload.asp页面将表单中的输入姓名，性别，出生年，出生月，专业，班级，上传照片，上传作业写入数据库。（8）测试打开IIS服务器，右键单击index.asp页面，选择“浏览”，姓名填写“张三”，性别选择“男”，出生年选择“1990”，出生月选择“3”，专业选择“教育技术学”，班级选择2010，上传照片和作业，出现如图7-19所示页面。图图7-19index.html页面页面点击提交，出现如图点击提交，出现如图7-20所示页面。所示页面。图图7-20上传成功页面上传成功页面打开数据库，可以看到资料上传到了数据库，如图7-21所示。图
43、图7-21数据库中的内容数据库中的内容图图7-22UploadSoft文件夹文件夹图7-23 UploadSoftPic文件夹7.3开发流程开发流程 7.3.1总体设计总体设计利用Jmail组件和无惧上传类来设计制作一个能够发送附件的电子邮件。本程序一共有email1.html，UploadSoft.asp，SaveToFile.asp和sendemail1.asp四个页面。7.3.2具体实现具体实现UploadSoft.asp和和SaveToFile.asp两两个个页页面面的的作作用用是是将将邮邮件件的的附附件件上上传传到到服服务务器器中中，在在上上一一节节已已经经介介绍绍过过，这这里里不不
44、在在介介绍绍，下下面面重重点点介绍其它界面。介绍其它界面。1SavePicToFile.asp页面设计打开Dreamweaver，新建一个asp vbscript页面，插入一个表单域，表单名称设置为UploadSoft，行为设置为addupload.asp，方法设置为POST，MIME类型为multipart/form-data。在表单域中插入一个6行2列的表格。第一行合并单元格，输入“请输入邮件内容”并设置居中。第二行第一列输入“收件人：”，第二行第二列插入一个文本字段，设置本文域为“shoujianren”。第三行第一列输入“主题：第三行第二列插入一个文本字段，设置本文域为“zhuti”。
45、第四行第一列输入“内容：”，第四行第二列插入一个文本区域，设置本文域为“neirong”。第五行第一列输入“附件：”，第五行第二列插入一个文本字段，设置本文域为“DownloadUrl”。下面插入IFRAME。第六行合并单元格，插入“提交”和“重置”两个按钮并居中，效果如图7-24所示。图7-24 email1.html设计页面2sendemail1.asp页面设计打开Dreamweaver，新建一个asp vbscript页面，在 和 间输入如下代码：程序说明：sendemail1.asp页面和sendemail.asp页面的区别是sendemail1.asp页面中利用msg.AddAtta
46、chment(Server.MapPath(request.form(DownloadUrl)发送附件。3测试打开打开IIS服务器，右键单击服务器，右键单击email1.html页面，选择页面，选择“浏览浏览”，收件人填写收件人填写，主题填写，主题填写“附件附件”，内容，内容填写填写“附件附件”，上传附件。如图，上传附件。如图7-25所示。所示。图图7-25email1.html测试页面测试页面单击提交按钮，出现如图7-26所示页面。图图7-26邮件发送成功页面邮件发送成功页面打开邮箱，可以邮件已经成功接收。如图打开邮箱，可以邮件已经成功接收。如图7-27所示所示。图7-27 收邮件界面本章小
47、结本章小结上传文件和发送电子邮件是ASP网页制作中经常遇到的问题。本章利用无惧无组件上传类实现上传，利用Jmail4.5组件实现发送电子邮件。两者相结合实现能够发送带附件的电子邮件。Jmail4.5组件的Message对象可以实现发送邮件，主要介绍了Charset方法（设置邮件使用的字符集。默认为US-ASCII，支持中文则设置为GB2312），From方法（返回或设置发件人的E-mail 地址），FromName方法（返回或设置发件人的名字），MailServerUserName（当邮件服务器使用SMTP发信认证时，该函数设置登录账号），MailServerPassWord（当邮件服务器使用
48、SMTP发信认证时，该函数设置登录密码），AddRecipient（给邮件添加一个收件人。RecipientName 和PGPKey是可选项，RecioientName为收件人姓名，PGPKey 给邮件加密），Subject（设置邮件标题），Body（设置邮箱正文），AddAttachment（给邮件添加一个文件型的附件。isInline 设置为True时，添加的这个附件就是一个可嵌入的附件），Send（发送邮件，邮件服务器是一个描述邮件服务器名称或地址的字符串，用户名和密码是可选项。当要发送认证有件事使用格式为：密码邮件服务器）。设计和制作了一个发送简单电子邮件的网页。无惧上传类是一个优秀的
49、无组件上传的方法，很多ASP网站的上传都使用它，本章主要介绍了以下方法：GetData(MaxSize As Int64):分析上传的数据。MaxSize为限制上传的最大字节数，高为-1表示不限制大小。这是一个过程，没有返回值，调用后可以通过isErr来检查是否大于0。SaveToFile(Item As String,Path As String)：保存到文件，自动覆盖已经存在的同名文件，其中参数Item为表单名，Path为保存的绝对路径，返回值为保存的文件名。AutoSave(Item As String,Path As String):保存到文件，自动创建文件名以避免重复，其中参数Ite
50、m为表单名，Path为保存的绝对路径（可以包含文件名），返回值为保存的文件名。FileData(Item As String):取得文件数据。其中参数Item为表单名。GetFilePath(FullPath As String):返回文件。GetFileName(FullPath As String):返回文件名。GetFileExt(FullPath As String):返回文件的后缀名。GetNewFileName（）：返回一个时间种子的不重复数值，可以用做文件名。isAllowExt(Ext As String):返回一个真值假值是指Ext是否为可以上传的类型。制作了一个上传学生照片