ASP中常用的22个FSO文件操作函数整理

来源:脚本之家  责任编辑:小易  

<% '#####################################

在ASP中,FSO的意思是File System Object,即文件系统对象。我们将要操纵的计算机文件系统,在这里是指位于web服务器之上。所以,确认你对此拥有合适的权限。理想情况下,你可以在自己的机器上建立一个web服务器,这样就能方便地进行测试。如果运行于Windows平台,请试一试微软公司的Web服务器iis。

一、系统没有开启FSO组件系统没有开启FSO组件.FSO组件的开启和关闭方法Dll 文件

FSO 模型对象

如果你的程序代码没有问题,那么你只需要将你的文档文件在第一次保存的时候选择编码为UTF-8就可以了。

Drive Object:驱动器对象 供存取磁盘或者网络驱动器

需要在服务器开通FSO组件,才能用到删除文件功能'获取你需要删除文件的路径,以下是通

FileSystemObject Object:文件系统对象 供存取计算机的文件系统

ASP代码过程如下:*************************************

Folder Object:文件夹对象 供存取文件夹的所有属性

在刚刚结束的2016年,合资品牌不再独霸市场,国产品牌加入市场的争夺,针对不同消费群体推出上百款的SUV。销量排行榜哈弗H6依然在榜首,而长安CS75也在前十以内。这两款SUV定位相近,其产品实力也相差无几,消费者常常头疼不知道该选择谁。哈弗H6VS长安CS75哈弗H6:9.98-16.28万长安CS75:10.88-16.38万空间  哈弗H6自上市以来,在空间上获得了诸多好评,算得上是其一大优势,而随后上市的CS75在空间上的表现同样不俗。由于两款车的型号丰富,两款价位、性能相当的车型来进行比较。  哈弗H6车身大小为4640mm*1825mm*1690mm,而CS75尚酷版车身大小为46

TextStream Object:文本流对象 供存取文件内容

你用的是vivo什么手机,不会是几年前的吧,不过安卓手机中,几年前的手机卡顿是很正常的,你也该换手机了。你所的格式化是可以,但里面的数据会消失,你玩的游戏,应用都会没有,建议还是不要格式化,购买vivo新机吧。因为vivo新机它有智慧引擎的功能,可以不断的对后台应用进行清理,释放更多的运行内存,让手机长时间使用不卡顿,这也是vivo手机的一大特色。当然现在的手机和之前的完全不同了,尤其是在拍照上带来了更好的体验,像vivoXplay6这部手机,后置双摄,具有全像素双核对焦和F1.7超大光圈还有四轴光学防抖以及8倍变焦技术。对于手机,没事别格式化,用到一定的程度就更换新手机吧,价格也不贵,而且v

你可以使用上面的对象做计算机上的任何事情,也包括破坏活动 ;-( 所以,请小心使用FSO。在web环境中,存储信息是非常重要的,比如用户信息,日志文件,等等。FSO提供了一个强大且简单的方法高效率地保存数据。FSO由微软公司提供支持,对于非Windows系统,大概不能再使用ASP。

钱币圈子里规矩众多,很多人不甚了解,但其中的一些禁忌,我们需要了解一下,避免触犯,赶紧来看看吧~1、不要和圈外朋友谈钱币萝卜白菜,各有所爱,钱币收藏种类众多,不同人所偏爱的品种和方向都不一样,对钱币的理解也不同,甚至有的人毫无兴趣,有兴趣的可以在一起畅聊,对于兴趣不佳的朋友,真的没必要强人所难。2、自己玩的,一律不外借自己心爱的钱币,会倾注更多的心血,自然更加上心。再好的朋友,也无法指望他和你喜好完全相同,看到自己心爱的钱币在朋友手中,总觉得无法得到百分之百的照顾。这个感受很难受,所以自己的东西自己玩,建议不外借。3、不和不懂的人谈价格钱币,懂的人觉得是宝,不懂的觉得是草。尤其是古钱币,品差一

1.文件操作,取文件大小

拿了美国绿卡,为了更近一步,争当美国转基因在华宣传代理人也有可能拿了外国国籍隐瞒不说,为了更好的宣传效果,不过如果一但入狱或者战争,就会露出本来面目,比如战狼2于谦大爷演的拿了外国国籍的香蕉人其实一个妄人,不会在乎自己的国籍的,只会在乎自己的主子,37年的汉奸都是本国籍,还不是为了骨头比外国人凶残百倍,最可怕的就是这些香蕉人

Function GetFileSize(FileName) '//功能:取文件大小 '//形参:文件名 '//返回值:成功为文件大小,失败为-1 '// Dim f If ReportFileStatus(FileName) = 1 Then Set f = fso.Getfile(FileName) GetFileSize = f.Size Else GetFileSize = -1 End if End Function

2.使用FSO删除指定文件

Function deleteAFile(filespec) '//功能:文件删除 '//形参:文件名 '//返回值:成功为1,失败为-1 '// If ReportFileStatus(filespec) = 1 Then fso.deleteFile(filespec) deleteAFile = 1 Else deleteAFile = -1 End if End Function

3.FSO显示指定目录下的所有文件

Function ShowFileList(folderspec) '//功能:目录存在时显示此目录下的所有文件 '//形参:目录名 '//返回值:成功为文件列表,失败为-1 '// Dim f, f1, fc, s If ReportFolderStatus(folderspec) = 1 Then Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "|" Next ShowFileList = s Else ShowFileList = -1 End if End Function

4.使用fso复制指定文件

Function CopyAFile(SourceFile,DestinationFile) '//功能:源文件存在时,才能对文件进行复制,目的文件无影响 '//形参:源文件,目的文件 '//返回值:成功为1,失败为-1 '// Dim MyFile If ReportFileStatus(SourceFile) = 1 Then Set MyFile = fso.GetFile(SourceFile) MyFile.Copy (DestinationFile) CopyAFile = 1 Else CopyAFile = -1 End if End Function

5.源文件存在时目的文件不存在时才能对文件进行移动

'Response.Write MoveAFile("f:\123\4561.exe","f:\123\4562.txt") Function MoveAFile(SourceFile,DestinationFile) '//形参:源文件,目的文件 '//返回值:成功为1,失败为-1 '// If ReportFileStatus(SourceFile)=1 And ReportFileStatus(DestinationFileORPath) =-1 Then fso.MoveFile SourceFile,DestinationFileORPath MoveAFile = 1 Else MoveAFile = -1 End if End Function

6.FSO判断指定文件是否存在?

Function ReportFileStatus(FileName) '//功能:判断文件是否存在 '//形参:文件名 '//返回值:成功为1,失败为-1 '// Dim msg msg = -1 If (fso.FileExists(FileName)) Then msg = 1 Else msg = -1 End If ReportFileStatus = msg End Function

7.FSO读取文件创建日期

Function ShowDatecreated(filespec) '//功能:文件创建日期 '//形参:文件名 '//返回值:成功:文件创建日期,失败:-1 '// Dim f If ReportFileStatus(filespec) = 1 Then Set f = fso.GetFile(filespec) ShowDatecreated = f.Datecreated Else ShowDatecreated = -1 End if End Function

8.FSO显示文件读写权限属性

Function GetAttributes(FileName) '//功能:显示文件属性 '//形参:文件名 '//返回值:成功:文件属性,失败:-1 '// Dim f,Str If ReportFileStatus(FileName) = 1 Then Set f = fso.GetFile(FileName) select Case f.attributes Case 0 Str="普通文件。没有设置任何属性。 " Case 1 Str="只读文件。可读写。 " Case 2 Str="隐藏文件。可读写。 " Case 4 Str="系统文件。可读写。 " Case 16 Str="文件夹或目录。只读。 " Case 32 Str="上次备份后已更改的文件。可读写。 " Case 1024 Str="链接或快捷方式。只读。 " Case 2048 Str=" 压缩文件。只读。" End select GetAttributes = Str Else GetAttributes = -1 End if End Function

9.FSO显示指定文件最后一次访问/最后一次修改时间

'Response.Write ShowFileAccessInfo("文件路径") Function ShowFileAccessInfo(FileName,InfoType) '//功能:显示文件创建时信息 '//形参:文件名,信息类别 '// 1 -----创建时间 '// 2 -----上次访问时间 '// 3 -----上次修改时间 '// 4 -----文件路径 '// 5 -----文件名称 '// 6 -----文件类型 '// 7 -----文件大小 '// 8 -----父目录 '// 9 -----根目录 '//返回值:成功为文件创建时信息,失败:-1 '// Dim f, s If ReportFileStatus(FileName) = 1 then Set f = fso.GetFile(FileName) select Case InfoType Case 1 s = f.Datecreated '// 1 -----创建时间 Case 2 s = f.DateLastAccessed '// 2 -----上次访问时间 Case 3 s = f.DateLastModified '// 3 -----上次修改时间 Case 4 s = f.Path '// 4-----文件路径 Case 5 s = f.Name '// 5 -----文件名称 Case 6 s = f.Type '// 6-----文件类型 Case 7 s = f.Size '// 7-----文件大小 Case 8 s = f.ParentFolder '// 8 -----父目录 Case 9 s = f.RootFolder '// 8 -----根目录 End select ShowFileAccessInfo = s ELse ShowFileAccessInfo = -1 End if End Function

10.FSO写指定内容到文本文件

Function WriteTxtFile(FileName,TextStr,WriteORAppendType) Const ForReading = 1, ForWriting = 2 , ForAppending = 8 Dim f, m select Case WriteORAppendType Case 1: '文件进行写操作 Set f = fso.OpenTextFile(FileName, ForWriting, True) f.Write TextStr f.Close If ReportFileStatus(FileName) = 1 then WriteTxtFile = 1 Else WriteTxtFile = -1 End if Case 2: '文件末尾进行写操作 If ReportFileStatus(FileName) = 1 then Set f = fso.OpenTextFile(FileName, ForAppending) f.Write TextStr f.Close WriteTxtFile = 1 Else WriteTxtFile = -1 End if End select End Function

11.利用FSO读取文本文件内容

Function ReadTxtFile(FileName) Const ForReading = 1, ForWriting = 2 Dim f, m If ReportFileStatus(FileName) = 1 then Set f = fso.OpenTextFile(FileName, ForReading) m = f.ReadLine 'm = f.ReadAll 'f.SkipLine ReadTxtFile = m f.Close Else ReadTxtFile = -1 End if End Function

12.FSO返回文件夹目录空间大小

Function GetFolderSize(FolderName) '//功能:取目录大小 '//形参:目录名 '//返回值:成功为目录大小,失败为-1 '// Dim f If ReportFolderStatus(FolderName) = 1 Then Set f = fso.GetFolder(FolderName) GetFolderSize = f.Size Else GetFolderSize = -1 End if End Function

13.使用FSO创建文件夹

Function createFolderDemo(FolderName) '//功能:创建的文件夹 '//形参:目录名 '//返回值:成功为1,失败为-1 '// Dim f If ReportFolderStatus(Folderspec) = 1 Then createFolderDemo = -1 Else Set f = fso.createFolder(FolderName) createFolderDemo = 1 End if End Function

14.FSO删除指定文件夹目录

Function deleteAFolder(Folderspec) '//功能:目录删除 '//形参:目录名 '//返回值:成功为1,失败为-1 '// Response.write Folderspec If ReportFolderStatus(Folderspec) = 1 Then fso.deleteFolder (Folderspec) deleteAFolder = 1 Else deleteAFolder = -1 End if End Function

15.FSO显示指定目录的文件夹目录列表

Function ShowFolderList(folderspec) '//功能:目录存在时显示此目录下的所有子目录 '//形参:目录名 '//返回值:成功为子目录列表,失败为-1 '// Dim f, f1, fc, s If ReportFolderStatus(folderspec) = 1 Then Set f = fso.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 in fc s = s & f1.name s = s & "|" Next ShowFolderList = s Else ShowFolderList = -1 End if End Function

16.FSO复制指定文件夹目录

Function CopyAFolder(SourceFolder,DestinationFolder) '//功能:源目录存在时,才能对目录进行复制,目的目录无影响 '//形参:源目录,目的目录 '//返回值:成功为1,失败为-1 '// Dim MyFolder If ReportFolderStatus(SourceFolder) = 1 and ReportFolderStatus(DestinationFolder) = -1 Then Set MyFolder = fso.GetFolder(SourceFolder) fso.CopyFolder SourceFolder,DestinationFolder CopyAFolder = 1 Else CopyAFolder = -1 End if End Function

17.移动指定文件夹目录

Function MoveAFolder(SourcePath,DestinationPath) '//功能:源目录存在时目的目录不存在时才能对目录进行移动 '//形参:源目录,目的目录 '//返回值:成功为1,失败为-1 '// If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then fso.MoveFolder SourcePath, DestinationPath MoveAFolder = 1 Else MoveAFolder = -1 End if End Function

18.判断某目录是否存在

'Response.Write ReportFolderStatus("G:\soft\delphi\my_pro\") Function ReportFolderStatus(fldr) '//功能:判断目录是否存在 '//形参:目录 '//返回值:成功为1,失败为-1 '// Dim msg msg = -1 If (fso.FolderExists(fldr)) Then msg = 1 Else msg = -1 End If ReportFolderStatus = msg End Function

19.显示目录创建时信息

Function ShowFolderAccessInfo(FolderName,InfoType) '//功能:显示目录创建时信息 '//形参:目录名,信息类别 '// 1 -----创建时间 '// 2 -----上次访问时间 '// 3 -----上次修改时间 '// 4 -----目录路径 '// 5 -----目录名称 '// 6 -----目录类型 '// 7 -----目录大小 '// 8 -----父目录 '// 9 -----根目录 '//返回值:成功为目录创建时信息,失败:-1 '// Dim f, s If ReportFolderStatus(FolderName) = 1 then Set f = fso.GetFolder(FolderName) select Case InfoType Case 1 s = f.Datecreated '// 1 -----创建时间 Case 2 s = f.DateLastAccessed '// 2 -----上次访问 时间 Case 3 s = f.DateLastModified '// 3 -----上次修改时间 Case 4 s = f.Path '// 4-----文件路径 Case 5 s = f.Name '// 5-----文件名称 Case 6 s = f.Type '// 6-----文件类型 Case 7 s = f.Size '// 7-----文件大小 Case 8 s = f.ParentFolder '// 8 -----父目录 Case 9 s = f.RootFolder '// 9 -----根目录 End select ShowFolderAccessInfo = s ELse ShowFolderAccessInfo = -1 End if End Function

20.返回文件夹嵌套数

Function DisplayLevelDepth(pathspec) Dim f, n ,Path Set f = fso.GetFolder(pathspec) If f.IsRootFolder Then DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder Else Do Until f.IsRootFolder Path = Path & f.Name &" " Set f = f.ParentFolder n = n + 1 Loop DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & "的文件夹。 "&Path End If End Function

21.判断指定磁盘驱动器是否存在?

'Response.Write ReportDriveStatus("C:\") Function ReportDriveStatus(drv) '//功能:判断磁盘是否存在 '//形参:磁盘 '//返回值:成功为1,失败为-1 '// Dim msg msg = -1 If fso.DriveExists(drv) Then msg = 1 Else msg = -1 End If ReportDriveStatus = msg End Function

22.FSO返回指定磁盘可用的类型包括 FAT、NTFS 和 CDFS。

'Response.Write ShowFileSystemType("C:\") Function ShowFileSystemType(drvspec) '//功能:磁盘类型 '//形参:磁盘名 '//返回值:成功为类型:FAT、NTFS 和 CDFS,失败:-1 '// Dim d If ReportDriveStatus(drvspec) = 1 Then Set d = fso. GetDrive(drvspec) ShowFileSystemType = d.FileSystem ELse ShowFileSystemType = -1 End if End Function

扩展阅读,根据您访问的内容系统为您准备了以下内容,希望对您有帮助。

ASP中使用fso创建,修改TXT文本

分少了哦!

呵呵,第一、fso创建TXT文件很简单。

第二、TXT文件要有节点或者项,要不然是不好修改的,最好写成ini的格式,就是

[MySession]

MyItem=

给你一个我自己写的函数吧,是读写INI文件的,INI也是TXT的一种。

<%

'==================================================================

'函数名称:ReadIni() WriteIni() ReadTxt()

'函数参数:ReadIni (FilePath_Name,MySession,MyItem)

' WriteIni(FilePath_Name,MySession,MyItem,MyValue)

'函数作用:读写INI文件

'返 回 值:对于读文件函数,找到给定项返回其值,找不到则返回空字符串;

'写文件函数无返回值,如果函数查找不到对应的节点或项,会自动创建

'CStr_Temp = ReadIni("./Test.ini","Colors","Color1") //读一

个值到CStr_Temp变量

' Call WriteIni("./Test.ini","Colors","Color1",1) //更改

Color1项的值为1

'注意事项:函数严格区分大小写;所读写的INI文件必须是ANSI编码,不支持

Unicode编码

'==================================================================

'=============读INI文件=============

'参数:FilePath_Name 文件相对路径;MySession 节点名称;MyItem 项名称

'返回值:找到给定项返回其值,找不到则返回空字符串

Function ReadIni(FilePath_Name,MySession,MyItem)

Dim MyString, MyArray,str_temp,sesstion_temp

Set MyfileObject=Server.CreateObject

("Scripting.FileSystemObject")

Set MytextFile=MyfileObject.OpenTextFile(Server.MapPath

(FilePath_Name))

sesstion_temp=""

While Not MytextFile.AtendOfStream

Str_temp= MytextFile.ReadLine

If Trim(Str_temp)<>"" and InStr(Trim(Str_temp),";")<>1

Then

If InStr(Trim(Str_temp),"[")<InStr(Trim

(Str_temp),"]") Then

sesstion_temp=Trim(Str_temp)

sesstion_temp=Replace(Trim

(sesstion_temp),"[","")

sesstion_temp=Replace(Trim

(sesstion_temp),"]","")

End If

MyArray = Split(Trim(Str_temp), "=")

If Trim(MyArray(0))=MyItem and

sesstion_temp=MySession then

ReadIni= Trim(MyArray(1))

Exit Function

End if

End if

Wend

Mytextfile.Close

ReadIni=""

Set MyfileObject=Nothing

Set MytextFile=Nothing

End Function

'=============写INI文件=============

'参数:FilePath_Name 文件相对路径;MySession 节点名称;MyItem 项名称;

MyValue 写入值

Function WriteIni(FilePath_Name,MySession,MyItem,MyValue)

Dim MyString, MyArray,str_temp,FindBool,FindBool_Session

FindBool=False

FindBool_Session=False

Set MyfileObject=Server.CreateObject

("Scripting.FileSystemObject")

Set MytextFile=MyfileObject.OpenTextFile(Server.MapPath

(FilePath_Name))

sesstion_temp=""

While Not MytextFile.AtendOfStream

Str_temp= MytextFile.ReadLine

If Trim(Str_temp)<>"" and InStr(Trim(Str_temp),";")<>1

Then

If InStr(Trim(Str_temp),"[")<InStr(Trim

(Str_temp),"]") Then

sesstion_temp=Trim(Str_temp)

sesstion_temp=Replace(Trim

(sesstion_temp),"[","")

sesstion_temp=Replace(Trim

(sesstion_temp),"]","")

If sesstion_temp=MySession then

FindBool_Session=True

End if

End If

MyArray = Split(Trim(Str_temp), "=")

If Trim(MyArray(0))=MyItem and

sesstion_temp=MySession then

FindBool=True

End if

End if

Wend

Mytextfile.Close

If Not FindBool_Session Then

FindBool_Session=True

MyString=MyString & "[" & MySession & "]" & VbCrLf

Set MytextFile=MyfileObject.OpenTextFile

(Server.MapPath(FilePath_Name))

MyString=MyString & MytextFile.ReadAll

Mytextfile.Close

Set MytextFile=MyfileObject.CreateTextFile

(Server.MapPath(FilePath_Name))

MytextFile.WriteLine(MyString)

MytextFile.Close

End If

Set MytextFile=MyfileObject.OpenTextFile(Server.MapPath

(FilePath_Name))

MyString=""

sesstion_temp=""

While Not MytextFile.AtendOfStream

Str_temp= MytextFile.ReadLine

If Trim(Str_temp)<>"" Then

If InStr(Trim(Str_temp),"[")<InStr(Trim

(Str_temp),"]") Then

sesstion_temp=Trim(Str_temp)

sesstion_temp=Replace(Trim

(sesstion_temp),"[","")

sesstion_temp=Replace(Trim

(sesstion_temp),"]","")

MyString=MyString & VbCrLf

End If

MyArray = Split(Trim(Str_temp), "=")

If Trim(MyArray(0))=MyItem and

sesstion_temp=MySession then

MyArray(1)=MyValue

Str_temp=MyArray(0) & "=" & MyArray(1)

End if

If MyString=VbCrLf then

MyString=MyString & Str_temp

Else

MyString=MyString & VbCrLf & Str_temp

End If

If Not FindBool and sesstion_temp=MySession

Then

FindBool=True

MyString=MyString & VbCrLf & MyItem &

"=" & MyValue

End If

End if

Wend

Mytextfile.Close

Set MytextFile=MyfileObject.CreateTextFile(Server.MapPath

(FilePath_Name))

MytextFile.WriteLine(MyString)

MytextFile.Close

Set MyfileObject=Nothing

Set MytextFile=Nothing

End Function

%>

当然如果不要节点,只要项也能修改的,把上面的函数精简一下就行了

也就是文件格式直接为:

MyItem=

也给你改个读的例子吧,写你只要稍做更改就行了:

<%

'=============读TXT文件=============

'参数:FilePath_Name 文件相对路径;MyItem 项名称

'返回值:找到给定项返回其值,找不到则返回空字符串

Function ReadTxt(FilePath_Name,MyItem)

Dim MyString, MyArray,str_temp,sesstion_temp

Set MyfileObject=Server.CreateObject

("Scripting.FileSystemObject")

Set MytextFile=MyfileObject.OpenTextFile(Server.MapPath

(FilePath_Name))

While Not MytextFile.AtendOfStream

Str_temp= MytextFile.ReadLine

If Trim(Str_temp)<>"" and InStr(Trim(Str_temp),";")<>1

Then

MyArray = Split(Trim(Str_temp), "=")

If Trim(MyArray(0))=MyItem then

ReadTxt= Trim(MyArray(1))

Exit Function

End if

End if

Wend

Mytextfile.Close

ReadTxt=""

Set MyfileObject=Nothing

Set MytextFile=Nothing

End Function

%>

把以上的代码另外保存成一个文件,如3.asp

你的2.asp就可以这样了:

<!--#include file="3.asp"-->

<%

username=request.form("username")

homepage=request.form("homepage")

email=request.form("email")

Call WriteIni("XXX.ini","ziliao","username",""&username&"")

Call WriteIni("XXX.ini","ziliao","homepage",""&homepage&"")

Call WriteIni("XXX.ini","ziliao","email",""&email&"")

%>

这个XXX.ini可以为任意文件名,文件生成的格式如下

XXX.ini

[ziliao]

username=

homepage=

email=

如果在后面要用到文件里面的内容就用下面格式调用ReadIni函数:

username=ReadIni("XXX.ini","ziliao","username")

呵呵,这样很方便吧

当然实际应用上面可以把username当做节点就更好了,那就不会有重复的了。

具体做法就是把上面的ziliao用username变量代替!

Call WriteIni("XXX.ini",""&username&"","homepage",""&homepage&"")

修改的方法就是直接写相同的节点相同的项进去就行了,跟创建时的方法是一样的。

可以用ASP中的FSO操作WORD文件吗?那位大师告诉一下,或给个教程连接。

是可以的

在ASP中,FSO的意思是File System Object,即文件系统对象。

我们将要操纵的计算机文件系统,在这里是指位于web伺服器之上。所以,确认你对此拥有合适的权限。理想情况下,你可以在自己的机器上建立一个web伺服器,这样就能方便地进行测试。如果运行于Windows平台,请试一试微软公司的免费个人Web伺服器PWS。

FSO 模型对象

Drive Object:驱动器对象 供存取磁盤或者网络驱动器

FileSystemObject Object:文件系统对象 供存取计算机的文件系统

Folder Object:文件夹对象 供存取文件夹的所有属性

TextStream Object:文本流对象 供存取文件内容

你可以使用上面的对象做计算机上的任何事情,也包括破坏活动 ;-(

所以,请小心使用FSO。在web环境中,存储信息是非常重要的,比如用户信息,日志文件,等等。FSO提供了一个强大且简单的方法高效率地保存数据。在

这篇文章里面,著重讨论FileSystemObject和TextStream对象。

FSO由微软公司提供支持,对于非Windows系统,大概不能再使用ASP。

怎么样使用FSO?

为了使用FSO来执行所有的工作,首先要创建对象,代码就象下面这样:

< % Set fso = Server.CreateObject("Scripting.FileSystemObject") % >

这样就建立了FSO并且赋予变量fso,接著就可以使用熟悉的object.method语法来执行文件系统的操作〔查看Visual

Basic文档,获取更多的关于对象和对象向导编程的知识〕。在这里,我们可以使用fso.method 或者

fso.property,这些将在下面的例子中看到。

FSO模型位于由微软提供的脚本运行时间DLL文件中,它是scrrun.dll。你可以在任何应用程序中引用这个DLL文件,比如MS ACCESS,Word。 就是说,并非仅仅*在ASP中应用它。

这里有一个简要的FSO方法列表:

FSO方法

CopyFile 拷贝一个或者多个文件到新路径

CreateTextFile 创建文件并且返回一个TextStream对象

DeleteFile 删除一个文件

OpenTextFile 打开文件并且返回TextStream对象,以便读取或者追加

如果想了解完整的FSO方法与属性,请查阅微软MSDN。下面来看几个例子。

假设你想创建一个简单的留言簿,你可以建立一个数据库,在其中存储用户的信息。然而,如果并不需要数据库的强大功能,使用FSO来存储信息将节省你的时间和金钱。并且,一些ISP也许*了web上的数据库应用。

假设你在一个表单中收集了一些用户信息,这里是一个简单表单HTML代码:

以下为引用的内容:

< html>

< body>

< form action="formhandler.asp" method="post">

< input type="text" size="10" name="username">

< input type="text" size="10" name="homepage">

< input type="text" size="10" name="Email">

< /form>

< /body>

< /html>

再看看formhandler.asp中处理表单的代码:

以下为引用的内容:

< %

' Get form info

strName = Request.Form("username")

strHomePage = Request.Form("homepage")

strEmail = Request.Form("Email")

' create the fso object

Set fso = Server.CreateObject("Scripting.FileSystemObject")

迄今为止,还没有新鲜的东西,无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分 - 写文件:

以下为引用的内容:

path = "c: emp est.txt"

ForReading = 1, ForWriting = 2, ForAppending = 3

' open the file

set file = fso.opentextfile(path, ForAppending, TRUE)

' write the info to the file

file.write(strName) & VBcrlf

file.write(strHomePage) & VBcrlf

file.write(strEmail) & VBcrlf

' close and clean up

file.close

set file = nothing

set fso = nothing

回想一下,OpenTextFile方法返回一个TextStream对象,它是FSO模型中的另外一个对象。TextStream对象揭示了操作文件内容的方法,比如写、读一行、跳过一行。VB常量VBcrlf产生一个换行符。

在OpentextFile的命令参数中定义了TRUE,这就告诉了系统,如果文件不存在,就创建它。如果文件不存在,并且没有定义TRUE参数,就会出错。

现在转到目录c: emp,打开test.txt,你可以看到如下的信息:

以下为引用的内容:

User's name

User's home page

User's email

当然,这些单词可以被输入在表单中的任何内容所替换。

现在已经有了一些用户信息保存在文件中,就像一个简单的数据库。假设有一个用户想了解所有的访问者,就要从登记的信息中分离出相关部分,因为没有象数据库一样拥有结构化的列。

我们知道,在所创建的文件中,第1行是用户名,第2行是他们的主页,第3行是他们的电子邮件地址。随后登记的用户也是按照这样的结构存储他们的信息,所以每3行将包含一个用户的登记信息。知道了这些,就可以编写下面的代码来显示信息:

以下为引用的内容:

< %

' create the fso object

set fso = Server.Createobject("Scripting.FileSystemObject")

path = "c: emp est.txt"

' open the file

set file = fso.opentextfile(path, 1) < -- For

reading

接著,分析每一行,并且格式化数据:

以下为引用的内容:

do until file.AtEndOfStream

Response.write("Name: " & file.ReadLine & " ")

Response.write("Home Page: " & file.ReadLine & " ")

Response.write("Email: " & file.ReadLine & "< p>")

loop

' close and clean up

file.close

set file = nothing

set fso = nothing

%>

这里仅仅做了一个非常简单的输出,但是你可以根据情况包含表格或者DHTML表单信息。

如果已经正确地建立并写入了文件,上面的小小循环将合适地列出数据库中的每一个人的信息。ReadLine方法读取1行内容,直到遇到换行符,随后

的ReadLine调用将读取下一行。AtEndOfStream是TextStream对象的属性,它告诉我们何时遇到文件的尾部。

假设由于某种原因,我们没有正确地形成文件,如果一个用户只有2行信息而不是3行,那么就会产生一些错误。我们这里的循环取回文件中的下3行信息,如果没有3行多的信息,就将出现如下的错误信息:

Server object error 'ASP 0177 : 800a003e'

所以,一定要添加一些错误处理代码,以防文件中插入了多余的行或者少了必要的行信息。

上面讨论了基本知识,然后说说权限许可的问题。FSO以创建它的用户帐户权限运行,换言之,如果有人从Internet上访问你的页面,那么这个

internet帐户就创建FSO。如果以administrator的身份登录计算机,并且登录页面,那么administrator帐户就创建了

FSO。这是非常重要的,因为一定的帐户拥有一定的权限,并且FSO需要一些权限从而能完整的执行功能。

internet帐户(IUSER_MachineName,MachineName是伺服器的名字)一般只拥有读权限,这意味著用户将不能写入留言簿文件。然而,有几个选择可以绕过这个问题。

首先,也是很困难的,是要求用户在填写留言簿前登录到伺服器。然而,留言簿的要点是从匿名用户处收集信息,如果要求用户登录,就必须要知道他们是谁。因此,跳过这个选择,看下一个。

第2个方法是创建一个目录或者文件,IUSER_MachineName用户对此有写权限。这样做可能开放了一些潜在的安全漏洞,因为任何知道正确

目录并具备一定web技巧的人就能在伺服器上填充内容。这是一个很严重的禁忌。所以你必须确认在隐藏的场所保存了这些可写目录的信息,并且尽可能地将这些

目录设置在web目录结构以外(比如在Windows下,这是一个不在inetpub目录下的一个目录)。

你也许想:好,现在我知道如何写入文件了。但能做到更多一些吗?下面来试一试为web站点建立一个搜索功能。

建立搜索引擎的关键是递归。主要地,编写一段代码搜索目录下的文件,然后对所有的目录循环执行同样的代码。因为不能确定总共有多少个子目录,所以必须一遍又一遍地执行搜索代码,直到结束。递归调用非常好!

下面来创建搜索页面。假设已经建立了一个HTML表单,用户在其中输入一个搜索字符串。

以下为引用的内容:

Dim objFolder

Dim strSearchText

Dim objFSO

strSearchText = Request.Form("SearchText") < -- The search string

' create the FSO and Folder objects

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath("/"))

Search objFolder

上面的代码简单地初始化变量,Search函数执行搜索功能,描述如下:

以下为引用的内容:

Function Search(objFolder)

Dim objSubFolder

'loop through every file in the current

folder

For Each objFile in objFolder.Files

Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) < -- For Reading

'read the file's contents into a

variable

strFileContents = objTextStream.ReadAll

'if the search string is in the file, then

write a link

' to the file

If InStr(1, strFileContents, strSearchText, 1) then

Response.Write "< A HREF=""/" & objFile.Name & _

""">" & objFile.Name & "< /A>< BR>"

bolFileFound = True

End If

objTextStream.Close

Next

'Here's the recursion part - for each

' subfolder in this directory, run the Search function again

For Each objSubFolder in objFolder.SubFolders

Search objSubFolder

Next

End Function

为了能打开文件,FSO需要实际的文件路径,而不是web路径。比如,是c:inetpubwwwroot empindex.html,

而不是www.enfused.com/temp/index.html 或者 /temp/index.html。

为了将后者转换为前者,使用Server.MapPath("filename"), filename表示web路径名。

上面的代码将在你指定的初始目录下的文件夹的每一个子目录中执行,在这里,初始目录是指web根目录“/”。然后就简单地打开目录下的每一个文件,看看其中是否包含指定的字符串,如果找到字符串就显示那个文件的链接。

注意,随著文件和子目录数量的增加,搜索花费的时间也将增加。如果需要繁重的搜索工作,建议你采取其他的方法,比如微软公司的索引伺服器Index Server。

到此,你对FSO可能已经有了很好的体会。让我们再深入研究一步,来解决更复杂的难题。

首先,你可能希望对文件改名。为了跟踪所有的文档,你将要重新命名它们以便唯一,这样就可以被系统容易地区别。很不幸,FSO不允许简单的文件改名操作,所以我们不得不修改一下。

以下为引用的内容:

< %

' create the fso object

set fso = Server.Createobject("Scripting.FileSystemObject")

path = "c: emp est.txt"

strDate = Replace(Date(), "/", "")

strDir = "c:inetpubwwwrootarticles" & strDate

strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &

second(Now) & ".html"

' open the old file

set file = fso.opentextfile(path, 1) < -- For reading

strText = file.readall

set file = nothing

' check for and/or create folder

if not fso.folderexists(Server.MapPath(strDir)) then

set f = fso.CreateFolder(Server.MapPath(strDir))

else

set f = fso.GetFolder(Server.MapPath(strDir))

end if

' create and write new file

set file = fso.Createtextfile(f.path & "" & strNewFileName)

file.write(strText)

set f = nothing

file.close

set file = nothing

' delete the old file

fso.DeleteFile(path & "" & rst("FileName") & i)

' clean up

set fso = nothing

%>

FSO能力的不足在这里却成了优势,我们可以一次执行2步。首先,打开文件并读入文件的内容。假设这里要创建一个唯一的文件夹和一个唯一的文件来存

储文章。然而,因为文件夹的路径每天都将改变,所以必须首先检查是否文件夹已经存在,如果不存在,就创建它。这在if not

fso.folderexists代码段完成。然后,取得那个路径,创建一个新的文件。新文件建立完成后,删除掉旧文件,这通过

fso.DeleteFile来完成。

这2步就是:对文件改名,然后移动到一个更合适的目录下。注意,在这里还可以对文件进行更多地操作,比如在写入新文件前进行一下内容的编辑。

FSO确实存在一些弱点 - 比如,它很难处理二进制文件,这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 - 移动它们、删除它们,等等。你不能做的就是对它们进行打开或者写操作。

另外一个*是对于文件长度的问题。当立刻读写一些内容时,所有的信息都存储在内存中 -

内容越多,消耗的内存就越大。这将使每个工作都变得慢起来。所以,如果需要操作非常大的文件,或者大量的小文件时,考虑将文件分割成小块,并且经常的清除

内存。将应用程序融入进COM对象组件,也能大大地提高程序的速度。

同样,你也不能使用FSO来管理权限以及文件、文件夹的属性,执行安全加密的一个很好方法就是将前面提到的留言簿文件设置为只读,在需要时再设置为可写,然后再修改回来。这个方法经常在CGI和Perl使用,但是很不幸,还没有令人满意的方法来用FSO实现。

还能用FSO做什么?

在FSO中还有许多很棒的功能,但许多人没有意识到。这些功能常常是在你感到做某些事情很难后才发现的,这时你经常要感叹到:要是我早知道这个方法就好了!

下面列举一下这些不常用但是却非常酷的功能:

很少被了解的FSO功能

GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录;Windows系统目录;Windows临时目录

FSO.GetSpecialFolder([0, 1, or 2]) GetTempName Method

返回一个随机产生的文件或者目录名字,用于需要存储临时数据时GetAbsolutePathName Method

返回文件夹的绝对路径(类似于Server.MapPath)。

比如,FSO.GetAbsolutePathName("region") 将返回类似于下面的结果:"c:mydocsmyfolder egion"

GetExtensionName Method 返回路径中最后部分的扩展名(比如:FSO.GetExtensionName("c:docs

est.txt") 将返回txt) GetBaseName and GetParentFolder Methods

返回路径中最后部分的父文件夹

(比如:FSO.GetParentFolder ("c:docsmydocs") 将返回'docs') Drives Property 返回所有本地可用驱动器的集合,用于建立资源浏览器样的用户接口。

使用上面的功能时,最好建立好出错处理的代码。因为如果需要的参数不存在,将会产生麻烦的信息。

总结

如我们所见,FSO非常有用,这里介绍的仅仅是冰山一角。你可以使用FSO建立功能强大的应用程序,简单地完成许多任务。

asp复制一个文件到指定文件夹,

用FSO对象的copy方法来进行复制

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)

MyFile.WriteLine("This is a test.")

MyFile.Close

Set MyFile = fso.GetFile("c:\testfile.txt")

MyFile.Copy ("c:\windows\desktop\test2.txt")

这样就可以了。

ASP中FSO的写文件功能怎么实现

假设你在一个表单中收集了一些用户信息,这里是一个简单表单HTML代码:

< html>

< body>

< form action="formhandler.asp" method="post">

< input type="text" size="10" name="username">

< input type="text" size="10" name="homepage">

< input type="text" size="10" name="Email">

< /form>

< /body>

< /html>

   再看看formhandler.asp中处理表单的代码:

< %

Get form info

strName = Request.Form("username")

strHomePage = Request.Form("homepage")

strEmail = Request.Form("Email")

create the fso object

Set fso = Server.CreateObject("Scripting.FileSystemObject")

   迄今为止,还没有新鲜的东西,无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分 - 写文件:

path = "c: emp est.txt"

ForReading = 1, ForWriting = 2, ForAppending = 3

open the file

set file = fso.opentextfile(path, ForAppending, TRUE)

write the info to the file

file.write(strName) & vbcrlf

file.write(strHomePage) & vbcrlf

file.write(strEmail) & vbcrlf

close and clean up

file.close

set file = nothing

set fso = nothing

   回想一下,OpenTextFile方法返回一个TextStream对象,它是FSO模型中的另外一个对象。TextStream对象揭示了操作文件内容的方法,比如写、读一行、跳过一行。VB常量vbcrlf产生一个换行符。

   在OpentextFile的命令参数中定义了TRUE,这就告诉了系统,如果文件不存在,就创建它。如果文件不存在,并且没有定义TRUE参数,就会出错。

   现在转到目录c: emp,打开test.txt,你可以看到如下的信息:

Users name

Users home page

Users email

asp删除指定文件夹下的指定文件

ASP删除文件,必须要使用服务器的FileSystemObject对象

1、创建删除文件函数:

'删除文件(适合所有文件) 

Function Deltextfile(fileurl)'参数为相对路径 

 Set objFSO = CreateObject("Scripting.FileSystemObject") 

  fileurl = Server.MapPath(fileurl) 

  if objFSO.FileExists(fileurl) then '检查文件是否存在 

   objFSO.DeleteFile(fileurl) 

  end if 

 Set objFSO = nothing 

End Function

2、调用删除文件函数:'删除网站根目录下的a.txt文件

Deltextfile "\a.txt"

  • 本文相关:
  • asp fso文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)
  • windows.vbs.fso.文件操作信息.磁盘驱动信息.文件夹操作信息全集
  • vbscript脚本编程教程2利用fso来进行文件操作
  • asp编程入门进阶(十八):fso组件之文件操作(下)
  • asp编程入门进阶(十八):fso组件之文件操作(中)
  • asp编程入门进阶(十八):fso组件之文件操作(上)
  • asp常用函数:xmlencode
  • javascript asp教程第十课--global asa
  • 整理了一个editplus的剪辑文件(asp方面的内容)
  • 在asp编程中nothing代表什么意思?
  • asp datepart 函数的语法详解(用于计算日期并返回指定的时间间隔
  • asp操作excel技术总结
  • asp显示日历效果
  • asp编程入门进阶(二十):ado组件之查询数据记录
  • 对象标记具有无效的 ''mswc.myinfo'' progid
  • sql语句的一些集合
  • ASP中使用fso创建,修改TXT文本
  • 可以用ASP中的FSO操作WORD文件吗?那位大师告诉一下,或给个教程连接。
  • asp复制一个文件到指定文件夹,
  • ASP中FSO的写文件功能怎么实现
  • asp删除指定文件夹下的指定文件
  • ASP怎么用FSO读取文件夹下所有文件夹
  • 请问一下有关asp的fso组件如何开启?
  • ASP 利用 FSO 或者STREAM 方式替换ASP文档中的某行内容
  • ASP如何删除文件?
  • 在asp里,怎么获取一个文件夹内的文件数量?
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved