第八章 使用第三方组件.pptVIP

第八章 使用第三方组件 发送E-mail组件W3 Jmail 下载和安装W3 Jmail组件网址： /FreeDownloads/FreeDownloadsstart.asp 安装方法： 按照提示一步一步安装即可。 安装完毕，将自动生成“C:\Program Files\ Dimac Development\ JMail”文件夹，里面有使用说明和例子，大家可以仔细学习。 发送邮件 在线发送Email 简单示例 表单部分 在线发送Email 简单示例 发送部分 自动发送Email 示例 该示例从数据库中读取E-mail地址，并自动发信。 文件上传组件ASPUpload 下载和安装ASPUpload组件 下载地址是：/aspupload.asp 安装方法 按照提示一步一步安装即可。 安装完毕后，将默认生成“C:\Program Files\Persits Software\AspUpload”文件夹 文件上传组件ASPUpload 上传文件表单文件源代码 上传单个文件执行程序源代码 上传多个文件表单源代码 上传多个文件执行文件源代码 上传文件表单文件源代码 html head title 上传一个文件/title /head body H2 align=center上传一个文件/H2 center FORM ACTION=8-4.asp METHOD=POST ENCTYPE=multipart/form-data 选择文件:input type=file name=upfileBR 文件说明:INPUT TYPE=TEXT NAME=intro size=30BR 作者姓名:INPUT TYPE=TEXT NAME=author size=30BR input type=submit value= 确定 /FORM /center /body /html 上传单个文件执行程序源代码 % Option Explicit % html head title 上传一个文件/title /head body H2 align=center文件已安全上传/H2 center % Dim Upload 定义一个变量 Set Upload = Server.CreateObject(Persits.Upload.1) 创建一个文件上传组件实例 上传单个文件执行程序源代码（续） upload.SetMaxSize 1024*1024,True upload.OverwriteFiles=True True表示可以覆盖 Upload.Save c:\inetpub\wwwroot\ASPTemp\chapter8\upload 上传保存文件到指定文件夹 Response.Write 上传文件为： upload.files(upfile).Path BR Response.Write 文件大小为： upload.files(upfile).Size 字节BR Response.Write 文件说明为： Upload.Form(intro) BR Response.Write 作者姓名为： Upload.Form(author) BR % /center /body /html 上传多个文件表单源代码 % Option Explicit % html head title 上传多个文件/title /head body H2 align=center文件已安全上传/H2 center % 定义一个变量 Dim Upload 创建一个文件上传组件实例 Set Upload = Server.CreateObject(Persits.Upload.1) 上传到指定文件夹 Upload.Save Server.Mappath(upload) 上传多个文件表单源代码（续） Dim upfile,Item For Each upfile in Upload.Files 这里用一个循环写出所有文件的信息 Response.Write upfile.Name = upfile.Path ( upfile.Size )BR Next For Each Item in Upload.Form