【网络程序设计】使用第三方组件.pptVIP

在线发送Email 简单示例 表单部分 在线发送Email 简单示例 发送部分 自动发送Email 示例 该示例从数据库中读取E-mail地址，并自动发信。 上传文件表单文件源代码 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 这里用一个循环写出所有表单元素信息 Response.Write Item.Name = Item.Value BR Next % /center /body /html 上传多个文件执行文件源代码 html head title 上传多个文件/title /head body H2 align=center上传多个文件/H2 center FORM ACTION=8-6.asp METHOD=POST ENCTYPE=multipart/form-data 选择文件1:input type=file name=upfile1 文件说明1:INPUT TYPE=TEXT NAME=intro1 size=30BR 选择文件2:input type=file name=upfile2 文件说明