développement back-end
Tutoriel C#.Net
Résumé Asp des problèmes de fonctionnement des fichiers
Résumé Asp des problèmes de fonctionnement des fichiers
<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.Type à s = ParentFolder Annuaire des parents 🎜> e
ShowFileAccessInfo="Le fichier n'existe pas :("
Fin si
Fin de la fonction
Fonction privée fileExist
fileExist = True
'Vérifier le chemin du fichier
'Vérifier si le fichier existe
If Not(o_Fso.FileExists(s_FileName)) Then
fileExist = False
End If
Fonction de fin
Fonction privée showErr(s_Msg )
Response.Write(s_Msg)
Set Fso=Nothing
Response.End()
Fonction de fin
Public Function CreateTxtFile()
'//Créer un fichier vide
If fileExist Then
showErr "Le fichier existe déjà :("
Else
Dim f
Set f =o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function
Public Function WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Select Case WriteORAppendType
Cas 1 : à Si le fichier n'existe pas, alors
L'entrée a échoué"
Fin si
'Opération d'écriture à la fin du fichier
Nom de fichier, pour la rédaction)
f.write textstr
f.close
showrr "défaillance du fichier"
fin si
fin sélectionne
fin de fonction
Fonction publique ReadtXtXtXtXtXtxtXtXtXtXtXtXtXtXtXtxtw = 1 ForWriting = 2
Dim f, m
' s 's ' s ' s ' s ‐ ‐ ‐ ‐ ' ' s's's' s ' s ' s t ‐ ‐ 'm = f.ReadAll
'f.SkipLine
ReadTxtFile = m
if
Fin de fonction
Fonction publique DeleteFile()
If fileExist Then
o_Fso.DeleteFile(s_FileName)
Else
showErr "Le fichier n'existe plus :("
End if
End Function
Public Function CopyFile( )
'//Fonction : Le fichier ne peut être copié que lorsque le fichier source existe, et le fichier de destination n'a aucun effet
'//SourceFile=s_FileName
If fileExist Then
Dim MyFile
Si s_FileName=s_DestinationFile Then
showErr "Interdire de copier le même nom de fichier dans le même répertoire :("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy (s_DestinationFile)
Else
showErr "Le fichier n'existe plus"
End if
End Function
Fonction publique MoveFile()
If fileExist Then
Dim SourceFile
If s_FileName=s_DestinationFile Then
showErr "Interdire de déplacer le même nom de fichier vers le même répertoire :("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "Le fichier n'existe plus :("
End If
End Function
'=============== = =============================== Opérations d'annuaire
'Définir le nom du répertoire
Propriété publique Let FolderName (Byval Values)
s_FolderName=Values
'checkFolder 'Vérifier le fichier
End Property
'Définir le nom du répertoire cible
Propriété publique Let DestinationFolder(Byval Values)
s_DestinationFolder= Values
End Property
'Obtenir la taille du répertoire
'Obtenir les informations sur la création du répertoire
'Juger si le répertoire existe
'Créer un répertoire
'Supprimer le répertoire
'Copier le répertoire
'Déplacer le répertoire
'Renommer le répertoire
'======== == ======================================Opération de traversée
Fin de classe
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)
pour i =0 à 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
suivant
%>
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!
Outils d'IA chauds
Undresser.AI Undress
Application basée sur l'IA pour créer des photos de nu réalistes
AI Clothes Remover
Outil d'IA en ligne pour supprimer les vêtements des photos.
Undress AI Tool
Images de déshabillage gratuites
Clothoff.io
Dissolvant de vêtements AI
AI Hentai Generator
Générez AI Hentai gratuitement.
Article chaud
Outils chauds
Bloc-notes++7.3.1
Éditeur de code facile à utiliser et gratuit
SublimeText3 version chinoise
Version chinoise, très simple à utiliser
Envoyer Studio 13.0.1
Puissant environnement de développement intégré PHP
Dreamweaver CS6
Outils de développement Web visuel
SublimeText3 version Mac
Logiciel d'édition de code au niveau de Dieu (SublimeText3)
Comment lire et écrire des fichiers en toute sécurité avec Golang ?
Jun 06, 2024 pm 05:14 PM
Lire et écrire des fichiers en toute sécurité dans Go est crucial. Les directives incluent : Vérification des autorisations de fichiers Fermeture de fichiers à l'aide de reports Validation des chemins de fichiers Utilisation de délais d'attente contextuels Le respect de ces directives garantit la sécurité de vos données et la robustesse de vos applications.
Puis-je supprimer les fichiers gho ?
Feb 19, 2024 am 11:30 AM
Un fichier gho est un fichier image créé par le logiciel NortonGhost et utilisé pour sauvegarder et restaurer le système d'exploitation et les données. Dans certains cas, vous pouvez supprimer les fichiers gho, mais faites-le avec prudence. Cet article présentera le rôle des fichiers gho, les précautions à prendre pour supprimer les fichiers gho et comment supprimer les fichiers gho. Tout d’abord, comprenons le rôle des fichiers gho. Un fichier gho est un fichier compressé de sauvegarde du système et des données qui peut enregistrer une image d'un disque dur entier ou d'une partition spécifique. Ce type de fichier de sauvegarde est généralement utilisé pour la récupération d'urgence
Comment réparer : erreur d'opération de fichier Java : échec de l'écriture du fichier
Aug 26, 2023 pm 09:13 PM
Comment résoudre : Erreur d'opération de fichier Java : échec de l'écriture de fichier Dans la programmation Java, vous rencontrez souvent le besoin d'opérations sur les fichiers, et l'écriture de fichiers est l'une des fonctions importantes. Cependant, nous rencontrons parfois des erreurs d’échec d’écriture de fichier, qui peuvent empêcher le programme de fonctionner correctement. Cet article décrit quelques causes courantes et solutions pour vous aider à résoudre ce type de problème. Mauvais chemin : un problème courant est un mauvais chemin de fichier. Lorsque nous essayons d'écrire un fichier sur le chemin spécifié, si le chemin n'existe pas ou si les autorisations sont insuffisantes, le fichier sera écrit.
Conseils de programmation Go : suppression du contenu d'un fichier
Apr 04, 2024 am 10:06 AM
Le langage Go propose deux méthodes pour effacer le contenu d'un fichier : en utilisant io.Seek et io.Truncate, ou en utilisant ioutil.WriteFile. La méthode 1 consiste à déplacer le curseur à la fin du fichier, puis à tronquer le fichier, la méthode 2 consiste à écrire un tableau d'octets vide dans le fichier. Le cas pratique montre comment utiliser ces deux méthodes pour effacer le contenu des fichiers Markdown.
Apprenez les fonctions d'exploitation des fichiers en langage Go et implémentez les fonctions de cryptage, de compression, de téléchargement et de téléchargement des fichiers.
Jul 29, 2023 pm 10:37 PM
Apprenez les fonctions d'exploitation des fichiers dans le langage Go et implémentez les fonctions de cryptage, de compression, de téléchargement et de téléchargement des fichiers. Le langage Go est un langage de programmation open source à typage statique. Il est très populaire dans le domaine du développement pour ses performances efficaces et sa syntaxe concise. La bibliothèque standard du langage Go offre une multitude de fonctions d'exploitation de fichiers, ce qui rend très simple la lecture et l'écriture de fichiers, leur chiffrement et leur compression, leur chargement et leur téléchargement. Cet article expliquera comment utiliser les fonctions d'exploitation de fichiers dans le langage Go pour implémenter les fonctions de cryptage, de compression, de téléchargement et de téléchargement de fichiers. Tout d'abord, nous devons importer les trois
Exemple d'opération de fichier PHP : lecture d'un fichier CSV
Jun 20, 2023 am 11:42 AM
PHP est un langage de programmation populaire largement utilisé dans le développement Web. Dans les applications Web, les opérations sur les fichiers constituent une fonction basique et courante. Cet article explique comment utiliser PHP pour lire un fichier CSV et l'afficher dans un tableau HTML. CSV est un format de fichier courant utilisé pour importer des données tabulaires dans un tableur tel qu'Excel. Les fichiers CSV se composent généralement de plusieurs lignes, chaque ligne étant constituée de valeurs séparées par des virgules. La première ligne contient généralement des en-têtes de colonne, qui décrivent la signification de chaque valeur de colonne. Ici, nous utiliserons PHP
Comment insérer du contenu à un emplacement spécifié dans un fichier en utilisant C++ ?
Jun 04, 2024 pm 03:34 PM
En C++, utilisez la classe ofstream pour insérer du contenu à un emplacement spécifié dans un fichier : ouvrez le fichier et localisez le point d'insertion. utiliser
Comment utiliser SplFileInfo pour les opérations sur les fichiers en php ?
Jun 01, 2023 pm 07:01 PM
En tant que langage de programmation côté serveur largement utilisé, PHP fournit non seulement de nombreuses fonctions pratiques de traitement de fichiers, mais propose également des classes d'opérations de fichiers plus avancées. L'une des classes les plus utiles est SplFileInfo, qui nous permet d'effectuer des opérations de lecture et d'écriture de fichiers de manière plus flexible et efficace. Cet article explique comment utiliser la classe SplFileInfo en PHP pour les opérations sur les fichiers. 1. Présentation de la classe SplFileInfo La classe SplFileInfo est une classe intégrée à PHP (pas besoin
