ASP网页设计Asp中一些FSO方面的函数

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了fso|函数   Asp中一些FSO方面的函数

'//==================================文件操作================================== '取文件巨细
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
'文件删除
Function deleteAFile(filespec)
'//功效：文件删除
'//形参：文件名
'//前往值：胜利为1，掉败为-1
'//
If ReportFileStatus(filespec) = 1 Then
fso.deleteFile(filespec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
'显示文件列表
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
'!!!
'文件复制
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
'文件挪动
'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
'文件是不是存在？
'Response.Write ReportFileStatus("G:\soft\delphi\my_pro\代码库.exe")
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

'文件创立日期
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\代码库.exe")
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\复件 代码库.exe")
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
'文件属性
'Response.Write GetAttributes("G:\soft\delphi\my_pro\复件 代码库.exe")
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
'最初一次会见/最初一次修正工夫
'Response.Write ShowFileAccessInfo("G:\soft\delphi\my_pro\复件 代码库.exe")
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
'写文本文件
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
'读文本文件
Function ReadTxtFile(FileName)
Const
  Active Server Page技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。