Page d'accueil>Code source ASP>données de fichier
Aucune ressource disponible
Il s'agit d'un navigateur de fichiers FSO écrit à l'aide d'objets de collection FSO (si vous insistez pour dire qu'il s'agit d'un cheval de Troie, je n'ai aucune objection sur le plan fonctionnel, il imite le design du "Top Trojan of the Ocean", mais le code est complètement réécrit). . Utilisation de composants tels que Shell.Application qui peuvent facilement provoquer une destruction accidentelle par un logiciel antivirus. Il existe de nombreux outils similaires sur Internet. La valeur d'usage de cet outil n'est pas très grande, mais de nombreux codes qu'il contient sont considérés comme bien écrits.

Les principales fonctionnalités incluent :

Affichez les informations sur le disque, parcourez les fichiers du disque et effectuez des opérations similaires à celles de l'Explorateur Windows, telles que la création, la suppression, le renommage, la copie, le déplacement et d'autres opérations de base sur les fichiers texte.
Le téléchargement de fichiers en mode flux simplifie et optimise le packaging/déballage de fichiers de téléchargement sans composants. Un dossier peut être complètement packagé/décompressé.

Extrait de code :

1. Classer la pièce d'emballage/déballage

  1. ============================ Processus d'empaquetage et de déballage des fichiers ================= = ============
  2. Emballage de fichiers
  3. Sous- pack ( ByVal FPath, ByVal sDbPath)
  4. Serveur.ScriptTimeOut=900
  5.      Faible DbPath
  6.      Si c'est vrai(sDbPath,4)= ".mdb"   Alors
  7. CheminDb=sCheminDb
  8.      Autre
  9. DbPath=sDbPath ".mdb"
  10.      Fin   Si
  12.      Si oFso.FolderExists (DbPath) Alors
  13. EchoBack "Impossible de créer le fichier de base de données !" &Replace(DbPath, ""," \")
  14.          Sortie   Sous
  15.      Fin   Si
  16.      Si oFso.FileExists(DbPath) Alors
  17. oFso.DeleteFile DbPath
  18.      Fin   Si
  20.      Si IsFolder (FPath) Alors
  21. RootPath=GetParentFolder(FPath)
  22.          Si Right(RootPath,1)<> "" Then RootPath=RootPath&" "
  23.      Autre
  24. EchoBack "Veuillez entrer le chemin du dossier !"
  25.          Sortie   Sous
  26.      Fin   Si
  28.      Dim oCatalog, connStr, DataName
  29.      Définir conn=Server.CreateObject( "ADODB.Connection" )
  30.      Définir oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Définir oCatalog=Server.CreateObject( "ADOX.Catalog" )
  32.      Définir rs=Server.CreateObject( "ADODB.RecordSet" )
  33.      Sur   Erreur   CV   Suivant
  34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Source de données=" & DbPath
  35. oCatalog.Créer connStr
  36.      Si erreur alors
  37. EchoBack "Impossible de créer le fichier de base de données !" &Replace(DbPath, ""," \")
  38.          Sortie   Sous
  39.      Fin   Si
  40.      Définir oCatalog = Rien
  41. conn.Ouvrir connStr
  42. conn.Execute( "Créer des fichiers de table (ID int IDENTITY (0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Ouvrir
  44. oStream.Type=1
  45. rs.Ouvrez "Fichiers" , conn, 3,3
  46. DataName=Gauche(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=Remplacer(NoPackFiles, "<$datafile>" , DataName)
  49. FailFileList = ""          Liste des fichiers dont le package n'a pas pu être effectué
  50. PackFolderFPath
  51.      Si FailFilelist = ""   Alors
  52. EchoClose "Emballage du dossier réussi !"
  53.      Autre
  54. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  55. Response.Write "<Script Language= JavaScript >alert( Package du dossier terminé !nVoici la liste des fichiers dont le package n'a pas pu être package : );</Script>"
  56. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.      Fin   Si
  58. oStream.Fermer
  59. rs.Fermer
  60. conn.Fermer
  61. Fin   Sous
  62. Ajouter un dossier (récursivement)
  63. Sous- PackFolder (FolderPath)
  64.      Si   Pas IsFolder (FolderPath) alors   Sortie   Sous
  65.      Dim oDossier, sFichier, sDossier
  66.      Définir oFolder=oFso.GetFolder(FolderPath)
  67.      Pour   Chaque sFile dans oFolder.Files
  68.          Si InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Alors
  69. PackFile sFile.Path
  70.          Fin   Si
  71.      Suivant
  72.      Définir sFile = Rien
  73.      Pour   Chaque sFolder dans oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      Suivant
  76.      Définir sFolder = Rien
  77. Fin   Sous
  78. Ajouter des fichiers
  79. Sous -packFichier (Chemin du fichier)
  80.      Dim RelPath
  81. RelPath=Remplacer(FilePath,RootPath, "" )
  82.      Réponse.Écrivez RelPath & "<br>"
  83.      Sur   Erreur   CV   Suivant
  84. Err.Effacer
  85. Err = Faux
  86. oStream.LoadFromFile Chemin du fichier
  87. rs.AddNew
  88. rs( "CheminFichier" )=CheminRel
  89. rs( "FileData" )=oStream.Read()
  90. rs.Mise à jour
  91.      Si erreur alors
  92.          L'empaquetage d'un fichier a échoué
  93. FailFilelist=FailFilelist&FilePath "|"
  94.      Fin   Si
  95. Fin   Sous
  97. =================================================== =========================
  98. Déballage du fichier
  99. Sous- décompression (vFolderPath, DbPath)
  100. Serveur.ScriptTimeOut=900
  101.      Dim FilePath, FolderPath, sFolderPath
  102. FolderPath=vFolderPath
  103. Chemin du dossier = Couper (Chemin du dossier)
  104.      Si Mid(FolderPath,2,1)<> ":"   Alors
  105. EchoBack "Le format du chemin est incorrect et le répertoire ne peut pas être créé !"
  106.          Sortie   Sous
  107.      Fin   Si
  109.      Si c'est vrai(FolderPath,1)= ""   Puis FolderPath=Left(FolderPath,Len(FolderPath)-1)
  110.      Dim connStr
  111.      Définir conn=Server.CreateObject( "ADODB.Connection" )
  112.      Définir oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Définir rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Source de données=" & DbPath
  115.      Sur   Erreur   CV   Suivant
  116. Err = Faux
  117. conn.Ouvrir connStr
  118.      Si erreur alors
  119. EchoBack "Erreur d'ouverture de la base de données !"
  120.          Sortie   Sous
  121.      Fin   Si
  122. Err = Faux
  123. oStream.Ouvrir
  124. oStream.Type=1
  125. rs.Ouvrez "Fichiers" , conn, 1,1
  126. FailFilelist = ""          Effacer la liste des fichiers ayant échoué
  127.      Faire   Jusqu'à rs.EOF
  128. Err.Effacer
  129. Err = Faux
  130. FilePath=Chemin du dossier ""&rs(" FilePath")
  131. FilePath=Remplacer(FilePath, "\"," ")
  132. sFolderPath=Gauche(FilePath,InStrRev(FilePath, "" ))
  133.          Si   Pas oFso.FolderExists(sFolderPath) Alors
  134. Créer un dossier (sFolderPath)
  135.          Fin   Si
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          Si erreur alors          Ajouter un élément de fichier ayant échoué
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Valeur "|"
  142.          Fin   Si
  144. rs.MoveNext
  145.      Boucle
  146. rs.Fermer
  147.      Définir rs = Rien
  148. conn.Fermer
  149.      Définir conn= Rien
  150.      Définir oStream = Rien
  151.      Si FailFilelist = ""   Alors
  152. EchoClose "Déballage du fichier réussi !"
  153.      Autre
  154. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  155. Response.Write "<Script Language= JavaScript >alert(Emballage du dossier terminé !nCe qui suit est une liste de fichiers dont l'empaquetage n'a pas pu être empaqueté, veuillez vérifier) ​​;</Script>"
  156. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.      Fin   Si
  158. Fin   Sous
  159. =================================================== =========================

2. Partie téléchargement de fichier (fichier unique) :

  1. Enregistrez le fichier téléchargéSub
  2. Saveupload ( ByVal FolderName)
  3.      Si   Not IsFolder(FolderName) Then
  4. EchoClose "Aucun dossier de téléchargement spécifié !"
  5.          Sortie   Sous
  6.      Fin   Si
  7.      Dim Path, IsOverWrite
  8. Path=FolderName
  9.      Si Right(Path,1)<> "" Then Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""," ")
  11.      Si Len(FileName)<1 Then
  12. EchoBack "Veuillez sélectionner le fichier et saisir le nom du fichier !"
  13.          Sortie   Sous
  14.      Fin   Si
  15. Chemin=Chemin
  16.      Si LCase(Request( "overwrite" ))= "true"   Alors
  17. IsOverWrite = True
  18.      Sinon
  19. IsOverWrite = False
  20.      Fin   Si
  21.      Sur   Erreur   CV   Suivant
  22.      Appeler MyUpload (Chemin, IsOverWrite)
  23.      If Err Then
  24. EchoBack "Le téléchargement du fichier a échoué ! (Le fichier existe peut-être déjà)"
  25.      Else
  26. EchoClose "Fichier téléchargé avec succès !n" & Remplacer(fileName, "", " \")
  27.      Fin   Si
  28. fin  
  29. Code principal de téléchargement de
  30. sous
    31. -fichier
  31. Sub MyUpload(FilePath,IsOverWrite)
  32.      Dim oStream, tStream, FileName, sData, sSpace, sInfo, iSpaceEnd, iInfoStart, iInfoEnd, iFileStart, iFileEnd, iFileSize, RequestSize, bCrLf
  33. RequestSize=Request.TotalBytes
  34.      Si RequestSize <1 alors   Sortie   Sous
  35.      Définir oStream=Server.CreateObject( "ADODB.Stream" )
  36.      Définir le tStream=Server.CreateObject( "ADODB.Stream" )
  37.      Avec oStream
  38. .Type=1
  39. .Mode=3
  40. .Open
  41. .Write=Request.BinaryRead(RequestSize)
  42. .Position=0
  43. sData=.Read
  44. bCrLf=ChrB(13)&ChrB(10)
  45. iSpaceEnd=InStrB(sData,bCrLf)-1
  46. sSpace =LeftB(sData,iSpaceEnd)
  47. iInfoStart=iSpaceEnd+3
  48. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
  49. iFileStart=iInfoEnd+5
  50. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
  51. sData= ""      Effacer les données du fichier
  52. iFileSize=iFileEnd-iFileStart+1
  53. tStream.Type=1
  54. tStream.Mode=3
  55. tStream.Open
  56. .Position=iFileStart-1
  57. .CopyTo tStream,iFileSize
  58.          Si IsOverWrite Alors
  59. tStream.SaveToFile FilePath,2
  60.          Sinon
  61. tStream.SaveToFile FilePath
  62.          Fin   Si
  63. tStream.Close
  64. .Close
  65.      Fin   Avec
  66.      SettStream = Rien
  67.      Définir oStream = Rien de
  68. fin   Sous

 
Développer
Informations supplémentaires
Applications connexes
Recommandé pour vous
Actualités connexes Tout