网络程序设计 (8).ppt

1、第八章 使用第三方组件,下载和安装W3 Jmail组件，免费下载网址： 安装方法： 下载该软件后，直接双击下载文件，按照提示一步一步安装即可。 安装完毕，将自动生成“C:Program Files Dimac Development JMail”文件夹，里面有使用说明和例子，大家可以仔细学习。 使用W3 Jmail组件发送邮件,发送E-mail组件W3 Jmail,W3 Jmail组件的方法和属性,常用语句,在线发送Email 简单示例,表单部分,8-1.asp,在线发送Email 简单示例,发送部分,8-1.asp,自动发送Email 示例,该示例从数据库中读取E-mail地址，并自动发信。

2、,8-2.asp,文件上传组件ASPUpload,下载和安装ASPUpload组件 下载地址是： 安装方法 下载该组件后，直接双击下载文件，按照提示一步一步安装即可。 安装完毕后，将默认生成“C:Program FilesPersits SoftwareAspUpload”文件夹，里面有使用说明和例子，希望读者仔细研究一下,上传组件的方法,上传组件的属性,使用ASPUpload组件上传文件,上传文件的属性,文件上传组件ASPUpload,上传文件示例,上传文件表单文件源代码 上传单个文件执行程序源代码 上传多个文件表单源代码 上传多个文件执行文件源代码,上传文件表单文件源代码, 上传一个文件

3、上传一个文件 选择文件: 文件说明: 作者姓名: ,上传单个文件执行程序源代码, 上传一个文件 文件已安全上传 % Dim Upload 定义一个变量 Set Upload = Server.CreateObject(Persits.Upload.1) 创建一个文件上传组件实例,上传单个文件执行程序源代码（续）,upload.SetMaxSize 1024*1024,True upload.OverwriteFiles=True True表示可以覆盖 Upload.Save c:inetpubwwwrootASPTempchapter8upload 上传保存文件到指定文件夹 Response.

4、Write 上传文件为： & upload.files(upfile).Path & Response.Write 文件大小为： & upload.files(upfile).Size & 字节 Response.Write 文件说明为： & Upload.Form(intro) & Response.Write 作者姓名为： & Upload.Form(author) & % ,上传多个文件表单源代码, 上传多个文件 文件已安全上传 % 定义一个变量 Dim Upload 创建一个文件上传组件实例 Set Upload = Server.CreateObject(Persits.Upload

5、.1) 上传到指定文件夹 Upload.Save Server.Mappath(upload),上传多个文件表单源代码（续）,Dim upfile,Item For Each upfile in Upload.Files 这里用一个循环写出所有文件的信息 Response.Write upfile.Name & = & upfile.Path & ( & upfile.Size & ) Next For Each Item in Upload.Form 这里用一个循环写出所有表单元素信息 Response.Write Item.Name & = & Item.Value & Next % ,上传多个文件执行文件源代码, 上传多个文件 上传多个文件 选择文件1: 文件说明1: 选择文件2: 文件说明2: ,本章小结,大家可以自行学习其它第三方组件。 注意组件注册的两种方法： 一类组件