Asp-Zusammenfassung der Dateibetriebsprobleme
<html>
<body>读取一个文件相关信息的范例<br><br>
<%
Dim objFSO,objFile '声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("newfile.asp")) Then
Set objFile = objFSO.GetFile(Server.MapPath("newfile.asp"))
Response.Write "文件的路径："&objFile.Path&"<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 对象实例内存空间
%>
</body></html>动网论坛的代码，你参考一下吧
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=Forum_info(0)%>--管理页面</title>
<!--#include file=inc/forum_css.asp-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY <%=Forum_body(11)%>>
<%
if not master or session("flag")="" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
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 "<font face=verdana>" & showsize & "</font>"
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 "<font face=verdana>" & showsize & "</font>"
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
%>
<table align=center cellspacing=1 cellpadding=1 class=tableborder1>
<tr>
<th height=25> 系统空间占用情况</th> </th>
</tr>
<tr>
<td class=tablebody1>
<blockquote>
<%
fsoflag=1
if fsoflag=1 then
%>
<br>
法规数据占用空间： <img src="pic/bar1.gif" width=<%=drawbar("data")%> height=10> <%showSpaceinfo("data")%><br><br>
备份数据占用空间： <img src="pic/bar1.gif" width=<%=drawbar("databackup")%> height=10> <%showSpaceinfo("databackup")%><br><br>
程序文件占用空间： <img src="pic/bar1.gif" width=<%=drawspecialbar%> height=10> <%showSpecialSpaceinfo("Program")%><br><br>
心情图片占用空间： <img src="pic/bar1.gif" width=<%=drawbar("images")%> height=10> <%showSpaceinfo("face")%><br><br>
系统图片占用空间： <img src="pic/bar1.gif" width=<%=drawbar("pic")%> height=10> <%showSpaceinfo("pic")%><br><br>
上传头像占用空间： <img src="pic/bar1.gif" width=<%=drawbar("uploadFace")%> height=10> <%showSpaceinfo("uploadFace")%><br><br>
上传图片占用空间： <img src="pic/bar1.gif" width=<%=drawbar("uploadImages")%> height=10> <%showSpaceinfo("uploadImages")%><br><br>
系统占用空间总计：<br><img src="pic/bar1.gif" width=400 height=10> <%showspecialspaceinfo("All")%>
<%
else
response.write "<br><li>本功能已经被关闭"
end if
%>
</blockquote>
</td>
</tr>
</table>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
t s = f.Typ Übergeordnetes Verzeichnis 🎜> ShowFileAccessInfo="Datei existiert nicht:("
End if
End Function
Private Veranstaltung fileExist
fileExist = True
'Dateipfad prüfen
'Überprüfen Sie, ob die Datei existiert
If Not(o_Fso.FileExists(s_FileName)) Then
fileExist = False
Ende If
End Function
Private Function showErr(s_Msg )
Response.Write(s_Msg)
Set Fso=Nothing
Response.End()
End Function
Öffentliche Funktion CreateTxtFile()
'//Eine leere Datei erstellen
If fileExist Then
showErr "Die Datei existiert bereits:("
Else
Dim f
Set f =o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function
Öffentliche Funktion WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Select Case WriteORAppendType
Fall 1: zu If Not fileExist. Eingabe fehlgeschlagen"
Ende wenn
'Schreibvorgang am Ende der Datei
FileName, ForAppending)
f.Write TextStr
F.Close
Showerr „File's failed“
End If
End Select
End Function
Öffentliche Funktion ReadtXtXtXtXtXtxtXtXtXtXtXtXtXtXtxtw = 1 ForWriting = 2
Dim f, m
' s ' s ' s ' s ' s ' s ' s ' s 'm = f.ReadAll
'f.SkipLine
ReadTxtFile = m
if
End Function
Public Function DeleteFile()
If fileExist Then
o_Fso.DeleteFile(s_FileName)
Else
showErr "Die Datei existiert nicht mehr:("
End if
End Function
Public Function CopyFile( )
'//Funktion: Die Datei kann nur kopiert werden, wenn die Quelldatei vorhanden ist und die Zieldatei keine Auswirkung hat
'//SourceFile=s_FileName
If fileExist Then
Dim MyFile
If s_FileName=s_DestinationFile Then
showErr "Kopieren desselben Dateinamens in dasselbe Verzeichnis verbieten:("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy (s_DestinationFile)
Else
showErr „Die Datei existiert nicht mehr“
End if
End Function
Public Function MoveFile()
If fileExist Then
Dim SourceFile
If s_FileName=s_DestinationFile Then
showErr "Verschieben desselben Dateinamens in dasselbe Verzeichnis verbieten:("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "Die Datei existiert nicht mehr:("
End If
End Function
'=============== = ============================= Verzeichnisoperationen
'Verzeichnisnamen festlegen
Öffentliches Eigentum Let FolderName (Byval Values)
s_FolderName=Values
'checkFolder 'Datei prüfen
End Property
'Zielverzeichnisnamen festlegen
Public Property Let DestinationFolder(Byval Values)
s_DestinationFolder= Werte
Endeigenschaft
'Verzeichnisgröße abrufen
'Informationen zur Verzeichniserstellung abrufen
'Beurteilen, ob Verzeichnis vorhanden ist
'Verzeichnis erstellen
'Verzeichnis löschen
'Verzeichnis kopieren
'Verzeichnis verschieben
'Verzeichnis umbenennen
'======== == ======================================Traversaloperation
Klasse beenden
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)
für i =0 bis 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
nächstes
%>
Das obige ist der detaillierte Inhalt vonAsp-Zusammenfassung der Dateibetriebsprobleme. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!
Heiße KI -Werkzeuge
Undresser.AI Undress
KI-gestützte App zum Erstellen realistischer Aktfotos
AI Clothes Remover
Online-KI-Tool zum Entfernen von Kleidung aus Fotos.
Undress AI Tool
Ausziehbilder kostenlos
Clothoff.io
KI-Kleiderentferner
AI Hentai Generator
Erstellen Sie kostenlos Ai Hentai.
Heißer Artikel
Heiße Werkzeuge
Notepad++7.3.1
Einfach zu bedienender und kostenloser Code-Editor
SublimeText3 chinesische Version
Chinesische Version, sehr einfach zu bedienen
Senden Sie Studio 13.0.1
Leistungsstarke integrierte PHP-Entwicklungsumgebung
Dreamweaver CS6
Visuelle Webentwicklungstools
SublimeText3 Mac-Version
Codebearbeitungssoftware auf Gottesniveau (SublimeText3)
Heiße Themen
1382
52
Wie kann ich Dateien mit Golang sicher lesen und schreiben?
Jun 06, 2024 pm 05:14 PM
Das sichere Lesen und Schreiben von Dateien in Go ist von entscheidender Bedeutung. Zu den Richtlinien gehören: Überprüfen von Dateiberechtigungen, Schließen von Dateien mithilfe von Verzögerungen, Validieren von Dateipfaden, Verwenden von Kontext-Timeouts. Das Befolgen dieser Richtlinien gewährleistet die Sicherheit Ihrer Daten und die Robustheit Ihrer Anwendungen.
Kann ich Gho-Dateien löschen?
Feb 19, 2024 am 11:30 AM
Eine GHO-Datei ist eine Image-Datei, die von der NortonGhost-Software erstellt und zum Sichern und Wiederherstellen des Betriebssystems und der Daten verwendet wird. In manchen Fällen können Sie Gho-Dateien löschen, aber gehen Sie dabei vorsichtig vor. In diesem Artikel werden die Rolle von Gho-Dateien, Vorsichtsmaßnahmen zum Löschen von Gho-Dateien und das Löschen von Gho-Dateien vorgestellt. Lassen Sie uns zunächst die Rolle von Gho-Dateien verstehen. Eine GHO-Datei ist eine komprimierte System- und Datensicherungsdatei, die ein Abbild einer gesamten Festplatte oder einer bestimmten Partition speichern kann. Diese Art von Sicherungsdatei wird normalerweise für die Notfallwiederherstellung verwendet
So beheben Sie: Fehler beim Java-Dateivorgang: Das Schreiben der Datei ist fehlgeschlagen
Aug 26, 2023 pm 09:13 PM
So lösen Sie: Fehler beim Java-Dateivorgang: Beim Schreiben von Dateien ist ein Fehler aufgetreten. Bei der Java-Programmierung sind häufig Dateivorgänge erforderlich, und das Schreiben von Dateien ist eine der wichtigsten Funktionen. Manchmal treten jedoch Fehler beim Schreiben von Dateien auf, die dazu führen können, dass das Programm nicht ordnungsgemäß ausgeführt wird. In diesem Artikel werden einige häufige Ursachen und Lösungen beschrieben, die Ihnen bei der Lösung dieser Art von Problem helfen sollen. Falscher Pfad: Ein häufiges Problem ist der falsche Dateipfad. Wenn wir versuchen, eine Datei in den angegebenen Pfad zu schreiben, wird die Datei geschrieben, wenn der Pfad nicht existiert oder die Berechtigungen nicht ausreichen.
Go-Programmiertipps: Inhalte aus einer Datei löschen
Apr 04, 2024 am 10:06 AM
Die Go-Sprache bietet zwei Methoden zum Löschen von Dateiinhalten: die Verwendung von io.Seek und io.Truncate oder die Verwendung von ioutil.WriteFile. Bei Methode 1 wird der Cursor an das Ende der Datei bewegt und dann die Datei abgeschnitten. Bei Methode 2 wird ein leeres Byte-Array in die Datei geschrieben. Der praktische Fall zeigt, wie diese beiden Methoden zum Löschen von Inhalten in Markdown-Dateien verwendet werden.
Beispiel für einen PHP-Dateivorgang: Lesen einer CSV-Datei
Jun 20, 2023 am 11:42 AM
PHP ist eine beliebte Programmiersprache, die häufig in der Webentwicklung verwendet wird. In Webanwendungen sind Dateioperationen eine grundlegende und häufige Funktion. In diesem Artikel wird erläutert, wie Sie mit PHP eine CSV-Datei lesen und in einer HTML-Tabelle anzeigen. CSV ist ein gängiges Dateiformat, das zum Importieren tabellarischer Daten in Tabellenkalkulationssoftware wie Excel verwendet wird. CSV-Dateien bestehen normalerweise aus vielen Zeilen, wobei jede Zeile aus durch Kommas getrennten Werten besteht. Die erste Zeile enthält normalerweise Spaltenüberschriften, die die Bedeutung jedes Spaltenwerts beschreiben. Hier verwenden wir PHP
Lernen Sie die Dateioperationsfunktionen in der Go-Sprache und implementieren Sie die Verschlüsselungs-, Komprimierungs-, Upload- und Download-Funktionen von Dateien
Jul 29, 2023 pm 10:37 PM
Lernen Sie die Dateioperationsfunktionen in der Go-Sprache und implementieren Sie die Verschlüsselungs-, Komprimierungs-, Upload- und Download-Funktionen von Dateien. Die Go-Sprache ist eine statisch typisierte Open-Source-Programmiersprache. Sie ist im Entwicklungsbereich aufgrund ihrer effizienten Leistung und prägnanten Syntax weit verbreitet. Die Standardbibliothek der Go-Sprache bietet eine Fülle von Dateioperationsfunktionen, die das Lesen und Schreiben von Dateien, das Verschlüsseln und Komprimieren sowie das Hoch- und Herunterladen von Dateien sehr einfach machen. In diesem Artikel wird erläutert, wie Sie mithilfe der Dateioperationsfunktionen in der Go-Sprache die Funktionen zum Verschlüsseln, Komprimieren, Hochladen und Herunterladen von Dateien implementieren. Zuerst müssen wir die relevanten drei importieren
Wie füge ich mit C++ Inhalte an einer bestimmten Stelle in eine Datei ein?
Jun 04, 2024 pm 03:34 PM
Verwenden Sie in C++ die Klasse ofstream, um Inhalte an einer bestimmten Stelle in einer Datei einzufügen: Öffnen Sie die Datei und suchen Sie die Einfügemarke. verwenden
Wie verwende ich SplFileInfo für Dateioperationen in PHP?
Jun 01, 2023 pm 07:01 PM
Als weit verbreitete serverseitige Programmiersprache bietet PHP nicht nur viele praktische Dateiverarbeitungsfunktionen, sondern auch einige erweiterte Dateioperationsklassen. Eine der nützlicheren Klassen ist SplFileInfo, mit der wir Lese- und Schreibvorgänge für Dateien flexibler und effizienter durchführen können. In diesem Artikel wird erläutert, wie Sie die SplFileInfo-Klasse in PHP für Dateioperationen verwenden. 1. Überblick über die SplFileInfo-Klasse Die SplFileInfo-Klasse ist eine integrierte Klasse in PHP (keine Notwendigkeit).
