第 7章 文件存取组件及其它组
文件存取组件
广告轮显组件
浏览器兼容组件
文件超链接组件
计数器组件
发送 E-mail组件 W3 Jmail
文件上传组件 ASPUpload
主要内容
文件存取组件常用对象列表
参 数 说 明
FileSystemObject 几乎包含处理文件和文件夹的所有方法
TextStream 主要用于存取文本文件
File 此对象的方法和属性可以处理单个文件
Folder 此对象的方法和属性可以处理文件夹
FileSystemObject对象的方法
方法 说明
CreatTextFile 新建一个文本文件
OpenTextFile 打开一个已有的文本文件
GetFile 返回一个 file对象
CopyFile 复制文件
MoveFile 移动文件
DeleteFile 删除文件
FileExists 判断文件是否存在
GetFileName 返回一个指定文件的主文件名
GetExtensionName 返回一个指定文件的扩展名
方法 说明
GetFileName 返回一个指定文件的完整的文件名
GetFolder 返回一个 folder对象
CreateFolder 创建一个文件夹
CopyFolder 复制一个文件夹
MoveFolder 移动一个文件夹
DeleteFolder 删除一个文件夹
FolderExists 判断文件夹是否存在
GetParentFolderName 返回上一级文件夹名
GetExtensionName 返回一个指定文件的扩展名
FileSystemObject对象的方法 （续）
方法 说明
Close 关闭一个已打开的数据文件
Read 从光标的当前位置开始从打开的文本文件中读取一定的字符数目
Readall 读取一个已打开的数据流文件内的所有数据
Readline 读取一个已打开的数据流文件的一行数据
Skip 跳过已打开的数据流文件内的字符数目
Skipline 跳过一个已打开的数据流文件的一行数据
Write 写入数据到一已打开的数据流文件
Writeline 写入数据到一已打开的数据流文件内的一整行数据
writeblankline 指定欲写入的新行数目
TextStream对象的属性和方法
TextStream对象的属性
属性 说明
Atendofline 当光标位于当前行的末尾时，其值为 true,否则 false
Atendofstream 当光标位于文件的末尾时，其值为 true,否则 false
Column 计算从行首到当前光标位置的字符数
Line 计算光标所在行在整个文件中的行号
文本文件的基本操作
文本文件的读取和添加
Set FileSystem对象实例
=server.createobject(“scripting.filesystemobject”)
Set textstream对象实例
= FileSystem对象实例,createtextfile(filename[,overwrite])
说明,filename指定欲建立的文件名称及其路径
Overwrite在建立文件时，如果存在同名的文件是否允许覆盖
True为允许,false不允许，默认 false
Set textstream对象
=filesystem对象,opentextfile(filename[,[iomode],[overwrite]])
新建文本文件
文件及文件夹的基本操作
文件的复制、移动和删除
复制,FileSystemObject对象实例,copy 源文件，目标文件 [,overwrite]
移动,FileSystemObject对象实例,movefile 源文件，目标文件
删除,FileSystemObject对象实例,deletefile文件
说明：
复制时,overwrite为 true时，表示可以覆盖，否则不可以，默认为
true
移动时，如果目标文件存在会报错
复制、移动和删除都可以使用通配符
判断文件是否存在返回 true或 false
说明：
复制时,overwrite为 true时，表示可以覆盖，否则不可以，默认
为 true
移动时，如果目标文件存在会报错
复制、移动和删除都可以使用通配符
判断文件是夹否存在返回 true或 false
文件及文件夹的基本操作
文件夹的新建、复制、移动和删除
新建,FileSystemObject对象实例,createfolder文件夹
复制,FileSystemObject对象实例,copy 源文件夹，目标文件夹 [,overwrite]
移动,FileSystemObject对象实例,movefile 源文件夹，目标文件夹
删除,FileSystemObject对象实例,deletefile文件夹
文件夹是否存在,FileSystemObject对象实例,folderexists(文件夹 )
Folder对象的属性和方法
属 性 说 明
Attributes 返回文件夹属性
Datecreated 返回该文件夹的创建日期和时间
Datelastaccessed 返回最后一次访问该文件夹的日期和时间
Datelastmodified 返回最后一次修改该文件夹的日期和时间
Drive 返回该文件夹对应的驱动器字母
Files 返回文件夹中所有的文件
Name 设定或返回文件夹的名字
Isrootfolder 返回一个布尔值说明该文件夹是否是当前驱动器的根文件夹
Parentfolder 返回该文件夹的父文件夹对应的 folder对象
Path 返回该文件夹的绝对路径
Size 返回指定文件夹的大小
Subfolders 返回文件夹中所有的子文件夹
广告轮显组件 属性和方法
属性 说明
Border 确定广告图片的边框宽度
Clickable 确定该广告图片是否提供超链接功能
targerframe 确定超链接的 web页面
getadvertisement 取得广告信息文件
广告轮显组件方法
方法 说明 语法
Border 确定广告图片的边框宽度 Ad.border=sizeSize为正整数值，表示边框大小
Clickable 确定该广告图片是否提供超链接功能 ad.clickable=booleanBoolean为 true表示提供超链接，否则不提供
targerframe 确定超链接的 web页面 Ad.targetframe=“target=‘targetname’”Targetname,超链接的窗口或框架名称
使用广告轮显组件示例
使用该组件需要 3个文件
广告信息文本文件：记录所有广告信息的文本文件
超链接处理文件：引导客户到相应广告网页的 asp文件
显示广告图片文件：放置广告图片的文件，比如个人主页首页
举例说明
建立广告信息文本文件
建立超链接处理文件
建立显示广告图片文件
建立广告信息文本文件
redirect 10.13.asp
width 440
height 60
border 1
*
images/edu.gif
http://www.edu.cn
中国教育科研网
40
images/sohu.gif
http://www.sohu.com
搜狐
30
images/jjshang.gif
http://www.jjshang.com
尚网
20
建立超链接处理文件
<%
'引导客户至相应网址
response.redirect request.querystring("url")
%>
建立显示广告图片文件
<html>
<head>
<title>显示广告图片示例 </title>
</head>
<body>
<H2 align="center">个人主页 </H2>
<p align="center">
<%
Dim Ad '定义一个广告轮显组件实例变量
Set Ad=Server.CreateObject("MSWC.AdRotator")
ad.Border=1 '定义图片边框为 1象素
ad.Clickable=True '该图片提供超链接功能
ad.TargetFrame="target='_NEW'" '在新窗口中打开网址
Response.Write Ad.GetAdvertisement("adver.txt") '获取广告信息
%>
</body>
</html>
浏览器兼容组件
浏览器兼容组件的工作原理
浏览器兼容组件的属性
使用浏览器兼容组件示例
浏览器兼容组件的工作原理
客户端连接到服务器端
发出请求，包含一个 user_agent页眉，该页眉包含客户端浏览
器的种类及版本信息
浏览器兼容组件把页眉信息欲一个名为 browscap.ini的文件匹
配,browscap.ini位于服务器上
浏览器兼容组件的工作原理 (续 )
浏览器兼容组件找到相互匹配的浏览器时，就家丁所有客户端浏
览器性质和该文件所记录的一致
浏览器兼容组件找不到相互匹配的浏览器时，则自动执行
browscap.ini内所设定的默认浏览器信息
从网站 http:/www.cyscape.com/browscap可下载最新的
browscap.ini
浏览器兼容组件的属性
属 性 说 明
Browser 浏览器类型名称
Version 浏览器版本名称
Majorver 浏览器主版本
Minorver 浏览器次版本
Frames 是否支持框架功能
Tables 是否支持表格功能
Cookies 是否支持 cookies
Backgroundsounds 是否支持背景音乐
Vbscript 是否支持 vbscript
Javascript 是否支持 Javascript
Javaapplets 是否支持 Java小程序
Acrivexcontrols 是否支持 Acrivexcontrols控件
使用浏览器兼容组件示例
语法：
Set 对象实例 =server.createobject(“MSWC.BrowserType”)
对象实例,属性
显示客户端浏览器特性示例
显示客户端浏览器特性示例
<html>
<head>
<title>客户端浏览器特性 </title>
</head>
<body>
<H2 align="center">客户端浏览器特性 </H2>
<%
Dim Bc '定义一个组件实例变量
Set Bc=Server.CreateObject("MSWC.BrowserType")
Response.Write "浏览器类型," & Bc.Browser & "<br>"
Response.Write "浏览器版本," & Bc.Version & "<br>"
Response.Write "支持 Cookies否," & Bc.Cookies & "<br>"
Response.Write "支持 Java小程序否," & Bc,Javaapplets
%>
</body>
</html>
文件超链接组件
文件超链接组件的方法
使用文件超链接组件示例
文件超链接组件的方法
方 法 语 法 说 明
Getlistcount N=对象实
例,getlistcount(string)
得到文件中包含的超链接
址数
Getlistindex N=对象实例, Getlistindex
(string)
显示当前页在这些链接地
址中的位置
getnexturl data=对象实例,
getnexturl(string)
显示链接文件中下个文件
的地址
getpreviousurl data =对象实例,
getpreviousurl(string)
显示链接文件中上个文件
的地址
文件超链接组件的方法 (续 )
方 法 语 法 说 明
getnextdescription data =对象实例,
getnextdescription(string)
显示链接文件中
下地址的描述
getpreviousdescription data =对象实例,
getpreviousdescription(string)
显示链接文件中
上地址的描述
getnthurl data =对象实例,
getnthurl(string,index)
显示链接文件中
第 n文件地址
Getnthdescription data =对象实例,
Getnthdescription(string,index)
显示链接文件中
第 n文件描述
使用文件超链接组件示例
使用该组件需要两个文件
超链接数据文件：关于 web站点网址、其他文件的数据文件，是一个
文本文件
显示超链接文件：即显示超链接的文件
举例说明：
建立超链接数据文件
建立显示文件
建立超链接数据文件
? www.chinaasp.com 中国 ASP网站
? www.fanso.com 化云坊
? www.edu.cn 中国教育网
? www.sohu.com 搜狐
建立显示文件
<html>
<head>
<title>文件超链接组件应用示例 <</title>
</head>
<body>
<H2 align="center">网络导航 </H2>
<%
Dim Link '定义一个组件实例变量
Dim I,Sum '定义两个变量待用
Set Link=Server.CreateObject("MSWC.nextlink")
Sum=Link.GetListCount("link.txt") '返回 URL网络导航总数
For I=1 to Sum '用循环依次写出所有的网络导航
%>
<a href="http://<%=Link.GetNthURL("link.txt",I)%>" target="_New">
<%=Link.GetNthDescription("link.txt",I)%></a><br>
<% Next %>
</body>
</html>
计数器组件 属性和方法
属性 /方法 说 明
Hits(page) 返回指定 page的访问次数，如 page省略，则返回
当前页访问次数
Pagehit() 增加当前网页的访问次数
Reset(page) 设置由 page指定的网页的访问次数为 0
使用计数器组件示例
使用计数器组件示例
<html>
<head>
<title>计数器组件应用示例 <</title>
</head>
<body>
<H2 align="center">个人主页 </H2>
<%
dim count '声明一个组件实例变量
set count=server.createobject("mswc.pagecount")
count.pagehit()
dim visit_number
visit_number=count.hits()
response.write "您是第 "&cstr(visit_number)&"位访客 "
%>
</body>
</html>
文件存取组件
广告轮显组件
浏览器兼容组件
文件超链接组件
计数器组件
发送 E-mail组件 W3 Jmail
文件上传组件 ASPUpload
主要内容
文件存取组件常用对象列表
参 数 说 明
FileSystemObject 几乎包含处理文件和文件夹的所有方法
TextStream 主要用于存取文本文件
File 此对象的方法和属性可以处理单个文件
Folder 此对象的方法和属性可以处理文件夹
FileSystemObject对象的方法
方法 说明
CreatTextFile 新建一个文本文件
OpenTextFile 打开一个已有的文本文件
GetFile 返回一个 file对象
CopyFile 复制文件
MoveFile 移动文件
DeleteFile 删除文件
FileExists 判断文件是否存在
GetFileName 返回一个指定文件的主文件名
GetExtensionName 返回一个指定文件的扩展名
方法 说明
GetFileName 返回一个指定文件的完整的文件名
GetFolder 返回一个 folder对象
CreateFolder 创建一个文件夹
CopyFolder 复制一个文件夹
MoveFolder 移动一个文件夹
DeleteFolder 删除一个文件夹
FolderExists 判断文件夹是否存在
GetParentFolderName 返回上一级文件夹名
GetExtensionName 返回一个指定文件的扩展名
FileSystemObject对象的方法 （续）
方法 说明
Close 关闭一个已打开的数据文件
Read 从光标的当前位置开始从打开的文本文件中读取一定的字符数目
Readall 读取一个已打开的数据流文件内的所有数据
Readline 读取一个已打开的数据流文件的一行数据
Skip 跳过已打开的数据流文件内的字符数目
Skipline 跳过一个已打开的数据流文件的一行数据
Write 写入数据到一已打开的数据流文件
Writeline 写入数据到一已打开的数据流文件内的一整行数据
writeblankline 指定欲写入的新行数目
TextStream对象的属性和方法
TextStream对象的属性
属性 说明
Atendofline 当光标位于当前行的末尾时，其值为 true,否则 false
Atendofstream 当光标位于文件的末尾时，其值为 true,否则 false
Column 计算从行首到当前光标位置的字符数
Line 计算光标所在行在整个文件中的行号
文本文件的基本操作
文本文件的读取和添加
Set FileSystem对象实例
=server.createobject(“scripting.filesystemobject”)
Set textstream对象实例
= FileSystem对象实例,createtextfile(filename[,overwrite])
说明,filename指定欲建立的文件名称及其路径
Overwrite在建立文件时，如果存在同名的文件是否允许覆盖
True为允许,false不允许，默认 false
Set textstream对象
=filesystem对象,opentextfile(filename[,[iomode],[overwrite]])
新建文本文件
文件及文件夹的基本操作
文件的复制、移动和删除
复制,FileSystemObject对象实例,copy 源文件，目标文件 [,overwrite]
移动,FileSystemObject对象实例,movefile 源文件，目标文件
删除,FileSystemObject对象实例,deletefile文件
说明：
复制时,overwrite为 true时，表示可以覆盖，否则不可以，默认为
true
移动时，如果目标文件存在会报错
复制、移动和删除都可以使用通配符
判断文件是否存在返回 true或 false
说明：
复制时,overwrite为 true时，表示可以覆盖，否则不可以，默认
为 true
移动时，如果目标文件存在会报错
复制、移动和删除都可以使用通配符
判断文件是夹否存在返回 true或 false
文件及文件夹的基本操作
文件夹的新建、复制、移动和删除
新建,FileSystemObject对象实例,createfolder文件夹
复制,FileSystemObject对象实例,copy 源文件夹，目标文件夹 [,overwrite]
移动,FileSystemObject对象实例,movefile 源文件夹，目标文件夹
删除,FileSystemObject对象实例,deletefile文件夹
文件夹是否存在,FileSystemObject对象实例,folderexists(文件夹 )
Folder对象的属性和方法
属 性 说 明
Attributes 返回文件夹属性
Datecreated 返回该文件夹的创建日期和时间
Datelastaccessed 返回最后一次访问该文件夹的日期和时间
Datelastmodified 返回最后一次修改该文件夹的日期和时间
Drive 返回该文件夹对应的驱动器字母
Files 返回文件夹中所有的文件
Name 设定或返回文件夹的名字
Isrootfolder 返回一个布尔值说明该文件夹是否是当前驱动器的根文件夹
Parentfolder 返回该文件夹的父文件夹对应的 folder对象
Path 返回该文件夹的绝对路径
Size 返回指定文件夹的大小
Subfolders 返回文件夹中所有的子文件夹
广告轮显组件 属性和方法
属性 说明
Border 确定广告图片的边框宽度
Clickable 确定该广告图片是否提供超链接功能
targerframe 确定超链接的 web页面
getadvertisement 取得广告信息文件
广告轮显组件方法
方法 说明 语法
Border 确定广告图片的边框宽度 Ad.border=sizeSize为正整数值，表示边框大小
Clickable 确定该广告图片是否提供超链接功能 ad.clickable=booleanBoolean为 true表示提供超链接，否则不提供
targerframe 确定超链接的 web页面 Ad.targetframe=“target=‘targetname’”Targetname,超链接的窗口或框架名称
使用广告轮显组件示例
使用该组件需要 3个文件
广告信息文本文件：记录所有广告信息的文本文件
超链接处理文件：引导客户到相应广告网页的 asp文件
显示广告图片文件：放置广告图片的文件，比如个人主页首页
举例说明
建立广告信息文本文件
建立超链接处理文件
建立显示广告图片文件
建立广告信息文本文件
redirect 10.13.asp
width 440
height 60
border 1
*
images/edu.gif
http://www.edu.cn
中国教育科研网
40
images/sohu.gif
http://www.sohu.com
搜狐
30
images/jjshang.gif
http://www.jjshang.com
尚网
20
建立超链接处理文件
<%
'引导客户至相应网址
response.redirect request.querystring("url")
%>
建立显示广告图片文件
<html>
<head>
<title>显示广告图片示例 </title>
</head>
<body>
<H2 align="center">个人主页 </H2>
<p align="center">
<%
Dim Ad '定义一个广告轮显组件实例变量
Set Ad=Server.CreateObject("MSWC.AdRotator")
ad.Border=1 '定义图片边框为 1象素
ad.Clickable=True '该图片提供超链接功能
ad.TargetFrame="target='_NEW'" '在新窗口中打开网址
Response.Write Ad.GetAdvertisement("adver.txt") '获取广告信息
%>
</body>
</html>
浏览器兼容组件
浏览器兼容组件的工作原理
浏览器兼容组件的属性
使用浏览器兼容组件示例
浏览器兼容组件的工作原理
客户端连接到服务器端
发出请求，包含一个 user_agent页眉，该页眉包含客户端浏览
器的种类及版本信息
浏览器兼容组件把页眉信息欲一个名为 browscap.ini的文件匹
配,browscap.ini位于服务器上
浏览器兼容组件的工作原理 (续 )
浏览器兼容组件找到相互匹配的浏览器时，就家丁所有客户端浏
览器性质和该文件所记录的一致
浏览器兼容组件找不到相互匹配的浏览器时，则自动执行
browscap.ini内所设定的默认浏览器信息
从网站 http:/www.cyscape.com/browscap可下载最新的
browscap.ini
浏览器兼容组件的属性
属 性 说 明
Browser 浏览器类型名称
Version 浏览器版本名称
Majorver 浏览器主版本
Minorver 浏览器次版本
Frames 是否支持框架功能
Tables 是否支持表格功能
Cookies 是否支持 cookies
Backgroundsounds 是否支持背景音乐
Vbscript 是否支持 vbscript
Javascript 是否支持 Javascript
Javaapplets 是否支持 Java小程序
Acrivexcontrols 是否支持 Acrivexcontrols控件
使用浏览器兼容组件示例
语法：
Set 对象实例 =server.createobject(“MSWC.BrowserType”)
对象实例,属性
显示客户端浏览器特性示例
显示客户端浏览器特性示例
<html>
<head>
<title>客户端浏览器特性 </title>
</head>
<body>
<H2 align="center">客户端浏览器特性 </H2>
<%
Dim Bc '定义一个组件实例变量
Set Bc=Server.CreateObject("MSWC.BrowserType")
Response.Write "浏览器类型," & Bc.Browser & "<br>"
Response.Write "浏览器版本," & Bc.Version & "<br>"
Response.Write "支持 Cookies否," & Bc.Cookies & "<br>"
Response.Write "支持 Java小程序否," & Bc,Javaapplets
%>
</body>
</html>
文件超链接组件
文件超链接组件的方法
使用文件超链接组件示例
文件超链接组件的方法
方 法 语 法 说 明
Getlistcount N=对象实
例,getlistcount(string)
得到文件中包含的超链接
址数
Getlistindex N=对象实例, Getlistindex
(string)
显示当前页在这些链接地
址中的位置
getnexturl data=对象实例,
getnexturl(string)
显示链接文件中下个文件
的地址
getpreviousurl data =对象实例,
getpreviousurl(string)
显示链接文件中上个文件
的地址
文件超链接组件的方法 (续 )
方 法 语 法 说 明
getnextdescription data =对象实例,
getnextdescription(string)
显示链接文件中
下地址的描述
getpreviousdescription data =对象实例,
getpreviousdescription(string)
显示链接文件中
上地址的描述
getnthurl data =对象实例,
getnthurl(string,index)
显示链接文件中
第 n文件地址
Getnthdescription data =对象实例,
Getnthdescription(string,index)
显示链接文件中
第 n文件描述
使用文件超链接组件示例
使用该组件需要两个文件
超链接数据文件：关于 web站点网址、其他文件的数据文件，是一个
文本文件
显示超链接文件：即显示超链接的文件
举例说明：
建立超链接数据文件
建立显示文件
建立超链接数据文件
? www.chinaasp.com 中国 ASP网站
? www.fanso.com 化云坊
? www.edu.cn 中国教育网
? www.sohu.com 搜狐
建立显示文件
<html>
<head>
<title>文件超链接组件应用示例 <</title>
</head>
<body>
<H2 align="center">网络导航 </H2>
<%
Dim Link '定义一个组件实例变量
Dim I,Sum '定义两个变量待用
Set Link=Server.CreateObject("MSWC.nextlink")
Sum=Link.GetListCount("link.txt") '返回 URL网络导航总数
For I=1 to Sum '用循环依次写出所有的网络导航
%>
<a href="http://<%=Link.GetNthURL("link.txt",I)%>" target="_New">
<%=Link.GetNthDescription("link.txt",I)%></a><br>
<% Next %>
</body>
</html>
计数器组件 属性和方法
属性 /方法 说 明
Hits(page) 返回指定 page的访问次数，如 page省略，则返回
当前页访问次数
Pagehit() 增加当前网页的访问次数
Reset(page) 设置由 page指定的网页的访问次数为 0
使用计数器组件示例
使用计数器组件示例
<html>
<head>
<title>计数器组件应用示例 <</title>
</head>
<body>
<H2 align="center">个人主页 </H2>
<%
dim count '声明一个组件实例变量
set count=server.createobject("mswc.pagecount")
count.pagehit()
dim visit_number
visit_number=count.hits()
response.write "您是第 "&cstr(visit_number)&"位访客 "
%>
</body>
</html>
