Asp 對文件操作問題總結-C#.Net教程-PHP中文網

首頁

後端開發

C#.Net教程

Asp 對文件操作問題總結

怪我咯

Mar 30, 2017 pm 01:56 PM

读取一个文件相关信息的范例<br><br>
"
     Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
     Response.Write "文件的大小："&objFile.Size&"<br>"
     Response.Write "文件的类型："&objFile.Type&"<br>"
   Else
     Response.Write Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"
   End If
  Set objFile = Nothing
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
%>

动网论坛的代码，你参考一下吧
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->

<title>--管理页面</title>
<!--#include file=inc/forum_css.asp-->
<meta>
>
"+"

本页面为管理员专用，请登陆后进入。

您没有管理本页面的权限。" call dvbbs_error() response.end end if on error resume next Sub ShowSpaceInfo(drvpath) dim fso,d,size,showsize set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size showsize=size & " Byte" if size>1024 then size=(size/1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "" & showsize & "" End Sub Sub Showspecialspaceinfo(method) dim fso,d,fc,f1,size,showsize,drvpath set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath("pic") drvpath=left(drvpath,(instrrev(drvpath,"/")-1)) set d=fso.getfolder(drvpath) if method="All" then size=d.size elseif method="Program" then set fc=d.Files for each f1 in fc size=size+f1.size next end if showsize=size & " Byte" if size>1024 then size=(size/1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "" & showsize & "" end sub Function Drawbar(drvpath) dim fso,drvpathroot,d,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size barsize=cint((size/totalsize)*400) Drawbar=barsize End Function Function Drawspecialbar() dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size set fc=d.files for each f1 in fc size=size+f1.size next barsize=cint((size/totalsize)*400) Drawspecialbar=barsize End Function %>

系统空间占用情况
法规数据占用空间： height=10> 备份数据占用空间： height=10> 程序文件占用空间： height=10> 心情图片占用空间： height=10> 系统图片占用空间： height=10> 上传头像占用空间： height=10> 上传图片占用空间： height=10> 系统占用空间总计：本功能已经被关闭" end if %>

ASP--文件操作类 设计版

'====================================================
'Version: AspFile 1.0
'Data: 2006.6.20
'CopyRight: (C) 2006 Evan.cn All Rights Reserved
'====================================================
'文件操作类
'文件名称
'文件大小
'文件创建
'FileName--文件名称
'DestinationFile--目标文件名称
'FileSize--获得文件大小
'FileCreatedDate--获得文件创建日期
'FileAttributes--获得文件属性
'ShowFileAccessInfo(InfoType)--获得文件属性
'CreateTxtFile()--创建文本文件
'WriteTxtFile(TextStr,WriteORAppendType)==写文本文件
'ReadTxtFile()--读取文本文件
'DeleteFile()--删除文件
'CopyFile()--拷贝文件
'MoveFile()--移动文件
'
'
Class Cls_FSO
Private o_Fso,s_FileName,s_FolderName,s_DestinationFile
Private s_FolderName,s_DestinationFolder

Private Sub Class_Initialize()
Set o_Fso = CreateObject("Scripting.FileSystemObject")
End Sub

Private Sub Class_Terminate()
Set o_Fso = Nothing
End Sub

'===============================================文件操作

'设置文件名字
Public Property Let FileName(Byval Values)
s_FileName=Values
'checkFile '检查文件
End Property

'设置目标文件名
Public Property Let DestinationFile(Byval Values)
s_DestinationFile=Values
End Property

'取文件大小
Public Property Get FileSize()
If fileExist Then
Dim f
Set f = o_Fso.Getfile(s_FileName)
FileSize = f.Size
Else
FileSize=0
End if
End Property

'取文件
Public Property Get FileCreatedDate()
If fileExist Then
Dim f
Set f = o_Fso.GetFile(s_FileName)
FileCreatedDate = f.DateCreated
Else
FileCreatedDate="1900-1-1"
End if

End Property

'取文件大小
Public Property Get FileAttributes()
If fileExist Then
Dim f,Str
Set f = o_Fso.GetFile(s_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
FileAttributes=Str
Else
FileAttributes="文件不存在或不可预测地属性"
End if

End Property

Public Function ShowFileAccessInfo(InfoType)
'//功能：显示文件创建时信息
'//形参：文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
'判断参数是否是数字
If fileExist Then
Dim f, s
Set f = o_Fso.GetFile(s_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    Case 5
s = f.Name   ## Case 6
s = f.Type '// 6 -----檔案類型
Case 7
s = f   Case 8
s = f. ParentFolder '// 8 -----父目錄
Case 9
s = f.RootFolder  End ## ShowFileAccessInfo=s
Else
ShowFileAccessInfo="文件不存在:("
End if

End Function

Private Function fileExist
fileExist = True
'檢查文件路徑

'檢查檔案是否有
If Not(o_Fso.FileExists(s_FileName)) Then
fileExist = False
# End If
End Function

#Func_Function Func

Munc_Func. )
Response.Write(s_Msg)
Set Fso=Nothing
Response.End()
End Function

# Public Function CreateTxtFile()
'//建立空白檔案

Public Function CreateTxtFile()
'//建立空白檔案檔案」。
If fileExist Then
showErr "檔案已經存在:("
Else
Dim f
Set f=o_Fso.CreateTextFile(s_FileName)
f.Close# f.Close## # End Function

Public Function WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Case 1 : '檔案進行寫入作業
Set f = o_Fso.OpenTextFile(s_FileName, ForWriting, True)# ose
If Not fileExist Then
showErr "檔案寫入失敗"
End if
Case 2: '檔案結尾與選擇作業 #   Set f = o_Fso.OpenTextFile(s_FileName, ForAppending)
f.Write TextStr
  .Close
Else
showErr 「 ReadTxtFile()
Const ForReading = 1, ForWriting = 2
Dim f, m
If fileExist Then
Set f = o_F.OpenTextFile(s_FileName, ForRe ## 'm = f.ReadAll
' f.SkipLine
ReadTxtFile = m
f.Close
  Else## c f.Close##    End if
End Function

# Public Function DeleteFile()
If fileExist Then
o_Fso.DeleteFile(s_FileName)
Else
showErr "檔案已經不存在:("#p
## Public Function CopyFile()
'//功能：原始檔案存在時，才能複製檔案，目的檔案無影響
'//SourceFile=s_FileName
If fileExist Then
Dim MyFile
If s_FileName=s_DestinationFile Then
showErr "禁止一相同檔案名稱拷貝到同一目錄下:("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)#. Copy (s_DestinationFile)
Else
showErr "檔案已經不存在"
End if

End Function

# Public Function MoveFile()
If fileExist Then
Dim SourceFile
If s_FileName=s_DestinationFile Then
showErr "禁止一相同檔案名稱移動到相同目錄下:("
End IF
o_Fstination_Destin o_Fstination_De o_Fstination_De o_Fstination。 # Else
showErr "檔案已經不存在:("
End If

End Function

# '================== ===============================目錄動作

'設定目錄名稱
Public Property Let FolderName (Byval Values)
s_FolderName=Values
'checkFolder '檢查檔案
End Property

'設定目標目錄名稱
Public Property Let DestinationFolder(Byval Values)
s_DestinationFolder= Values
End Property

'取得目錄大小

'取得目錄建立資訊

'判斷目錄是否存在
## '建立目錄

'刪除目錄

'拷貝目錄

'移動目錄

'重新命名目錄

# '========= ======================================遍歷操作

End Class

Set myFile=new Cls_FSO
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile.WriteTxtFile "Test",2
myFile .DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile.FileSize)
for i =0 to 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
next

%>

以上是Asp 對文件操作問題總結的詳細內容。更多資訊請關注PHP中文網其他相關文章！

陳述

本文內容由網友自願投稿，版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容，請聯絡admin@php.cn

PHP8.0中的文件操作：文件监控May 14, 2023 pm 02:21 PM

随着Web应用程序的不断发展，PHP已经成为了Web开发中最重要的编程语言之一。作为一门灵活性极强的编程语言，PHP的每个版本都带来了新的功能和优化，为了满足不同的需求应用场景。在PHP8.0版本中，新增了一个非常实用的文件操作功能，即文件监控。这个功能非常适用于那些需要对文件变化进行监控和处理的应用场景，比如文件备份、文件同步、日志监控等等。本文将带大家

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Jul 29, 2023 pm 10:37 PM

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Go语言是一种开源的静态类型编程语言，它以其高效性能和简洁的语法在开发领域广受欢迎。在Go语言的标准库中，提供了丰富的文件操作函数，使得对文件进行读写、加密压缩、上传下载等操作变得非常简单。本文将介绍如何使用Go语言中的文件操作函数，实现对文件进行加密压缩、上传下载的功能。首先，我们需要导入相关的三

PHP文件操作实例：读取CSV文件Jun 20, 2023 am 11:42 AM

PHP是一种广泛应用于Web开发的流行编程语言。在Web应用程序中，文件操作是一个基本而常见的功能。本文将介绍如何使用PHP读取CSV文件并将其显示在HTML表格中。CSV是一种常见的文件格式，用于将表格数据导入到电子表格软件中（如Excel）。csv文件通常由许多行组成，每行由逗号分隔的值组成。第一行通常包含列头，它们描述各列值的含义。这里我们将使用PHP

php如何使用SplFileInfo进行文件操作？Jun 01, 2023 pm 07:01 PM

作为一种广泛使用的服务器端编程语言，PHP不仅提供了许多方便的文件处理函数，而且还提供了一些更为高级的文件操作类。其中一个比较有用的类就是SplFileInfo，它能够让我们更加灵活、高效地进行文件读写操作。本文将介绍如何使用PHP中的SplFileInfo类进行文件操作。一、SplFileInfo类的概述SplFileInfo类是PHP中的一个内置类（不需

php如何使用fopen、fwrite和fclose进行文件操作？Jun 01, 2023 am 08:46 AM

在PHP开发中，对文件的操作是非常常见的。一般情况下，我们需要进行文件的读取、写入、删除等操作。其中，文件的读取可以使用fopen函数和fread函数，文件的写入可以使用fopen函数、fwrite函数和fclose函数。本文将介绍php如何使用fopen、fwrite和fclose进行文件操作。一、fopen函数fopen函数用于打开文件，它的语法如下：r

PHP中的安全文件操作技术解析Jul 02, 2023 pm 04:48 PM

PHP是一种广泛应用于Web开发的脚本语言，众所周知，网络环境中存在着各种各样的安全风险。在PHP文件操作过程中，保证安全性显得尤为重要。本文将对PHP中的安全文件操作技术进行详细解析，以帮助开发人员加强对文件操作的安全防护。一、文件路径注入（PathTraversal）文件路径注入是指攻击者通过输入恶意参数，成功地绕过文件系统的访问控制，访问不在预期访问

如何使用Java中的Files函数进行文件操作Jun 26, 2023 pm 04:21 PM

在Java编程语言中，经常需要进行文件的读取、写入、复制、删除等操作。Java提供了一组Files类的函数来进行文件操作。本文将介绍如何使用Java中的Files函数进行文件操作。导入所需的包在进行文件操作之前，首先要导入Java的io包和nio包：importjava.io.File;importjava.io.IOException;import

asp内置对象有哪些Nov 09, 2023 am 11:32 AM

asp内置对象有Request、Response、Session、Application、Server、Session.Contents、Application.Contents、Server.CreateObject、Server.MapPath、Server.Execute、Server.Transfer等。详细介绍：1、Request：表示HTTP请求对象等等。

See all articles