第八章 使用第三方组件
下载和安装 W3 Jmail组件，免费下载网址,
? http://www.dimac.net/FreeDownloads/FreeDownloadsstart.asp
安装方法：
? 下载该软件后，直接双击下载文件，按照提示一步一步安装即可。
? 安装完毕，将自动生成,C:\Program Files\ Dimac Development\ JMail”
文件夹，里面有使用说明和例子，大家可以仔细学习。
使用 W3 Jmail组件发送邮件
发送 E-mail组件 W3 Jmail
W3 Jmail组件的方法和属性
属性和方法 功 能
From 发件人 E-mail地址
FromName 发件人姓名
AddRecipient 添加收件人 E-mail地址
Subject 邮件主题
Body 邮件内容
AddAttachment 添加附件
Send 执行发送
Close 关闭对象
Version W3 Jmail的版本号
常用语句
在线发送 Email 简单示例
? 表单部分
8-1.asp
在线发送 Email 简单示例
? 发送部分 8-1.asp
自动发送 Email 示例
? 该示例从数据库中读取 E-mail地址，并自动发信。
8-2.asp
文件上传组件 ASPUpload
? 下载和安装 ASPUpload组件
下载地址是,http://www.persits.com/aspupload.asp
? 安装方法
下载该组件后，直接双击下载文件，按照提示一步一步安装即可。
安装完毕后，将默认生成,C:\Program Files\Persits
Software
\AspUpload” 文件夹，里面有使用说明和例子，希望读者仔
细研究一下
方 法 功 能
Save 保存文件到某文件夹
Files 获取上传文件对象的方法
Form 获取上传表单元素的方法
Setmaxsize 设置上传文件最大字节数
上传组件的方法
上传组件的属性
属性设置 功 能
Overwritefiles 能否覆盖文件。 Boolean默认为 true，
表示可以覆盖
使用 ASPUpload组件上传文件
上传文件的属性
属 性 功 能
Name 上传表单中的表单元素的名字
Filename 上传文件的名字
Path 上传后文件的路径
Size 上传后文件的大小（字节数）
文件上传组件 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="upfile"><BR>
文件说明,<INPUT TYPE=TEXT NAME="intro" size="30"><BR>
作者姓名,<INPUT TYPE=TEXT NAME="author" size="30"><BR>
<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="30"><BR>
选择文件 2:<input type="file" name="upfile2">
文件说明 2:<INPUT TYPE=TEXT NAME="intro2" size="30"><BR>
<input type="submit" value=" 确定 ">
</FORM>
</center>
</body>
</html>
本章小结
? 大家可以自行学习其它第三方组件。
? 注意组件注册的两种方法：
– 一类组件本身是一个安装程序，只要运行就可以注册。
– 另一类组件是一个 DLL文件，在, 运行, 框中输入
Regsvr32 DLL文件的路径
? 安装组件后，可以参考使用说明学习使用方法。
下载和安装 W3 Jmail组件，免费下载网址,
? http://www.dimac.net/FreeDownloads/FreeDownloadsstart.asp
安装方法：
? 下载该软件后，直接双击下载文件，按照提示一步一步安装即可。
? 安装完毕，将自动生成,C:\Program Files\ Dimac Development\ JMail”
文件夹，里面有使用说明和例子，大家可以仔细学习。
使用 W3 Jmail组件发送邮件
发送 E-mail组件 W3 Jmail
W3 Jmail组件的方法和属性
属性和方法 功 能
From 发件人 E-mail地址
FromName 发件人姓名
AddRecipient 添加收件人 E-mail地址
Subject 邮件主题
Body 邮件内容
AddAttachment 添加附件
Send 执行发送
Close 关闭对象
Version W3 Jmail的版本号
常用语句
在线发送 Email 简单示例
? 表单部分
8-1.asp
在线发送 Email 简单示例
? 发送部分 8-1.asp
自动发送 Email 示例
? 该示例从数据库中读取 E-mail地址，并自动发信。
8-2.asp
文件上传组件 ASPUpload
? 下载和安装 ASPUpload组件
下载地址是,http://www.persits.com/aspupload.asp
? 安装方法
下载该组件后，直接双击下载文件，按照提示一步一步安装即可。
安装完毕后，将默认生成,C:\Program Files\Persits
Software
\AspUpload” 文件夹，里面有使用说明和例子，希望读者仔
细研究一下
方 法 功 能
Save 保存文件到某文件夹
Files 获取上传文件对象的方法
Form 获取上传表单元素的方法
Setmaxsize 设置上传文件最大字节数
上传组件的方法
上传组件的属性
属性设置 功 能
Overwritefiles 能否覆盖文件。 Boolean默认为 true，
表示可以覆盖
使用 ASPUpload组件上传文件
上传文件的属性
属 性 功 能
Name 上传表单中的表单元素的名字
Filename 上传文件的名字
Path 上传后文件的路径
Size 上传后文件的大小（字节数）
文件上传组件 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="upfile"><BR>
文件说明,<INPUT TYPE=TEXT NAME="intro" size="30"><BR>
作者姓名,<INPUT TYPE=TEXT NAME="author" size="30"><BR>
<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="30"><BR>
选择文件 2:<input type="file" name="upfile2">
文件说明 2:<INPUT TYPE=TEXT NAME="intro2" size="30"><BR>
<input type="submit" value=" 确定 ">
</FORM>
</center>
</body>
</html>
本章小结
? 大家可以自行学习其它第三方组件。
? 注意组件注册的两种方法：
– 一类组件本身是一个安装程序，只要运行就可以注册。
– 另一类组件是一个 DLL文件，在, 运行, 框中输入
Regsvr32 DLL文件的路径
? 安装组件后，可以参考使用说明学习使用方法。
