Startseite>ASP-Quellcode>Dateidaten
Keine Ressourcen verfügbar
Dies ist ein FSO-Dateibrowser, der mit FSO-Sammlungsobjekten geschrieben wurde (wenn Sie darauf bestehen, dass es sich um einen Trojaner handelt, habe ich keine Einwände. Funktionell imitiert er das Design des „Top-Trojaners des Ozeans“, aber der Code wurde komplett neu geschrieben). . Verwendung von Komponenten wie Shell.Application, die leicht zu einer versehentlichen Tötung durch Antivirensoftware führen können. Es gibt viele ähnliche Tools im Internet. Der Nutzen dieses Tools ist nicht sehr groß, aber viele der darin enthaltenen Codes gelten als gut geschrieben.

Zu den Hauptmerkmalen gehören:

Zeigen Sie Festplatteninformationen an, durchsuchen Sie Festplattendateien und führen Sie ähnliche Aktionen wie im Windows Explorer aus, z. B. Erstellen, Löschen, Umbenennen, Kopieren, Verschieben und andere grundlegende Bearbeitungen von Textdateien.
Der Datei-Download im Stream-Modus vereinfacht und optimiert das komponentenlose Hochladen von Dateien. Ein Ordner kann vollständig gepackt/entpackt werden.

Codeausschnitt:

1. Teil zum Verpacken/Auspacken der Datei

  1. =========================== Prozess zum Packen und Entpacken von Dateien ================ = ============
  2. Dateiverpackung
  3. Unterpaket ( ByVal FPath, ByVal sDbPath)
  4. Server.ScriptTimeOut=900
  5.      DbPath dimmen
  6.      Wenn Right(sDbPath,4)= ".mdb"   Dann
  7. DbPath=sDbPath
  8.      Anders
  9. DbPath=sDbPath „.mdb“
  10.      Ende   Wenn
  12.      Wenn oFso.FolderExists(DbPath) dann
  13. EchoBack „Datenbankdatei kann nicht erstellt werden!“ &Replace(DbPath, „“, „ \“)
  14.          Ausfahrt   Sub
  15.      Ende   Wenn
  16.      Wenn oFso.FileExists(DbPath) Dann
  17. oFso.DeleteFile DbPath
  18.      Ende   Wenn
  20.      Wenn IsFolder(FPath) Dann
  21. RootPath=GetParentFolder(FPath)
  22.          Wenn Right(RootPath,1)<> "" Then RootPath=RootPath&" "
  23.      Anders
  24. EchoBack „Bitte geben Sie den Ordnerpfad ein!“
  25.          Ausfahrt   Sub
  26.      Ende   Wenn
  28.      Dimmen Sie oCatalog,connStr,DataName
  29.      Setze conn=Server.CreateObject( "ADODB.Connection" )
  30.      Setze oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Legen Sie oCatalog=Server.CreateObject( "ADOX.Catalog" ) fest.
  32.      Setze rs=Server.CreateObject( "ADODB.RecordSet" )
  33.      An   Fehler   Wieder aufnehmen   Nächste
  34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath
  35. oCatalog.Create connStr
  36.      Wenn Sie sich irren , dann
  37. EchoBack „Datenbankdatei kann nicht erstellt werden!“ &Replace(DbPath, „“, „ \“)
  38.          Ausfahrt   Sub
  39.      Ende   Wenn
  40.      Setzen Sie oCatalog= Nothing
  41. conn.Open connStr
  42. conn.Execute( "Tabellendateien erstellen (ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Open
  44. oStream.Type=1
  45. rs.Öffnen Sie „Dateien“ ,conn,3,3
  46. DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=Replace(NoPackFiles, "<$datafile>" ,DataName)
  49. FailFileList= ""          Liste der Dateien, die nicht gepackt werden konnten
  50. PackFolderFPath
  51.      Wenn FailFilelist= ""   Dann
  52. EchoClose „Ordnerverpackung gelungen!“
  53.      Anders
  54. Response.Write „“
  55. Response.Write „“
  56. Response.Write "" &Replace(FailFilelist, "|" , "
    "     ) ""
  57.      Ende   Wenn
  58. oStream.Schließen
  59. rs.Schließen
  60. conn.Schließen
  61. Ende   Sub
  62. Ordner hinzufügen (rekursiv)
  63. Sub PackFolder(FolderPath)
  64.      Wenn   Dann nicht IsFolder(FolderPath).   Ausfahrt   Sub
  65.      oFolder, sFile, sFolder dimmen
  66.      Setze oFolder=oFso.GetFolder(FolderPath)
  67.      Für   Jede sDatei in oFolder.Files
  68.          Wenn InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Dann
  69. PackFile sFile.Path
  70.          Ende   Wenn
  71.      Nächste
  72.      Setze sFile = Nothing
  73.      Für   Jeder sFolder in oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      Nächste
  76.      Setze sFolder= Nothing
  77. Ende   Sub
  78. Dateien hinzufügen
  79. Sub PackFile(FilePath)
  80.      Dimmen Sie RelPath
  81. RelPath=Replace(FilePath,RootPath, "" )
  82.      Response.Write RelPath & „
    “
  83.      An   Fehler   Wieder aufnehmen   Nächste
  84. Fehler.Klar
  85. Fehler = Falsch
  86. oStream.LoadFromFile FilePath
  87. rs.AddNew
  88. rs( "FilePath" )=RelPath
  89. rs( "FileData" )=oStream.Read()
  90. rs.Update
  91.      Wenn Sie sich irren , dann
  92.          Das Packen einer Datei ist fehlgeschlagen
  93. FailFilelist=FailFilelist&FilePath „|“
  94.      Ende   Wenn
  95. Ende   Sub
  97. =============================================== =========================
  98. Auspacken der Datei
  99. Sub UnPack(vFolderPath,DbPath)
  100. Server.ScriptTimeOut=900
  101.      FilePath,FolderPath,sFolderPath abblenden
  102. FolderPath=vFolderPath
  103. FolderPath=Trim(FolderPath)
  104.      If Mid(FolderPath,2,1)<> :   Dann
  105. EchoBack „Das Pfadformat ist falsch und das Verzeichnis kann nicht erstellt werden!“
  106.          Ausfahrt   Sub
  107.      Ende   Wenn
  109.      Wenn Right(FolderPath,1)= ""   Dann FolderPath=Left(FolderPath,Len(FolderPath)-1)
  110.      Dimmen Sie connStr
  111.      Setze conn=Server.CreateObject( "ADODB.Connection" )
  112.      Setze oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Setze rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath
  115.      An   Fehler   Wieder aufnehmen   Nächste
  116. Fehler = Falsch
  117. conn.Open connStr
  118.      Wenn Sie sich irren , dann
  119. EchoBack „Fehler beim Öffnen der Datenbank!“
  120.          Ausfahrt   Sub
  121.      Ende   Wenn
  122. Fehler = Falsch
  123. oStream.Open
  124. oStream.Type=1
  125. rs.Öffnen Sie „Dateien“ ,conn,1,1
  126. FailFilelist= ""          Liste der fehlgeschlagenen Dateien löschen
  127.      Tun   Bis rs.EOF
  128. Fehler.Klar
  129. Fehler = Falsch
  130. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=Replace(FilePath, „\“, „ “)
  132. sFolderPath=Left(FilePath,InStrRev(FilePath, "" ))
  133.          Wenn   Nicht oFso.FolderExists(sFolderPath) Dann
  134. CreateFolder(sFolderPath)
  135.          Ende   Wenn
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          Wenn Sie sich irren , dann          Fehlgeschlagenes Dateielement hinzufügen
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Value "|"
  142.          Ende   Wenn
  144. rs.MoveNext
  145.      Schleife
  146. rs.Schließen
  147.      Setze rs = Nichts
  148. conn.Schließen
  149.      Setze conn= Nichts
  150.      Setzen Sie oStream = Nothing
  151.      Wenn FailFilelist= ""   Dann
  152. EchoClose „Datei entpacken erfolgreich!“
  153.      Anders
  154. Response.Write „“
  155. Response.Write „“
  156. Response.Write "" &Replace(FailFilelist, "|" , "
    "     ) ""
  157.      Ende   Wenn
  158. Ende   Sub
  159. =============================================== =========================

2. Datei-Upload-Teil (einzelne Datei):

  1. Speichern Sie die hochgeladene Datei.
  2. Sub Saveupload ( ByVal FolderName)
  3.      Wenn   Nicht IsFolder(FolderName) Then
  4. EchoClose „Kein Upload-Ordner angegeben!“
  5.          Ausfahrt   Sub
  6.      Ende   Wenn
  7.      Dim Path,IsOverWrite
  8. Path=FolderName
  9.      If Right(Path,1)<> "" Then Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""," ")
  11.      Wenn Len(FileName)<1 Then
  12. EchoBack „Bitte wählen Sie die Datei aus und geben Sie den Dateinamen ein!“
  13.          Ausfahrt   Sub
  14.      Ende   Wenn
  15. Pfad=Pfad
  16.      Wenn LCase(Request( "overwrite" ))= "true"   Dann
  17. ist IsOverWrite= True
  18.      Sonst
  19. IsOverWrite= False
  20.      Ende   Wenn
  21.      An   Fehler   Wieder aufnehmen   Nächste
  22.      Rufen Sie MyUpload(Path,IsOverWrite) auf.
  23.      Wenn Err Then
  24. EchoBack „Datei-Upload fehlgeschlagen! (Die Datei ist möglicherweise bereits vorhanden)“
  25.      Sonst
  26. EchoClose „Datei erfolgreich hochgeladen!n“ & Ersetzen(Dateiname, „“, „ \“)
  27.      Ende   Wenn
  28. Ende   Sub-
  29. Datei-Upload-Kerncode
  30. Sub MyUpload(FilePath,IsOverWrite)
  31.      Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
  32. RequestSize=Request.TotalBytes
  33.      Wenn RequestSize<1, dann   Ausfahrt   Sub
  34.      Setze oStream=Server.CreateObject( "ADODB.Stream" )
  35.      Setze tStream=Server.CreateObject( "ADODB.Stream" )
  36.      Mit oStream
  37. .Type=1
  38. .Mode=3
  39. .Open
  40. .Write=Request.BinaryRead(RequestSize)
  41. .Position=0
  42. sData=.Read
  43. bCrLf=ChrB(13)&ChrB(10)
  44. iSpaceEnd=InStrB(sData,bCrLf)-1
  45. sSpace =LeftB(sData,iSpaceEnd)
  46. iInfoStart=iSpaceEnd+3
  47. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
  48. iFileStart=iInfoEnd+5
  49. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
  50. sData= ""      Dateidaten löschen
  51. iFileSize=iFileEnd-iFileStart+1
  52. tStream.Type=1
  53. tStream.Mode=3
  54. tStream.Open
  55. .Position=iFileStart-1
  56. .CopyTo tStream,iFileSize
  57.          Wenn IsOverWrite , dann
  58. tStream.SaveToFile FilePath,2
  59.          Sonst
  60. tStream.SaveToFile FilePath
  61.          Ende   Wenn
  62. tStream.Close
  63. .Close
  64.      Ende   Mit
  65.      SettStream = Nichts
  66.      Setzen Sie oStream= Nothing
  67. End   Sub

 
Expandieren
Zusätzliche Informationen
Ähnliche Anwendungen
Empfohlen für Sie
Ähnliche Nachrichten Alle
Benutzerkommentare