Beranda>Kode sumber ASP>data berkas
Sumber Tidak Tersedia
Ini adalah browser file FSO yang ditulis menggunakan objek koleksi FSO (jika Anda bersikeras mengatakan itu adalah Trojan, saya tidak keberatan). Secara fungsional, ini meniru desain "Trojan Top of the Ocean", tetapi kodenya sepenuhnya ditulis ulang . Menggunakan komponen seperti Shell.Aplikasi yang dapat dengan mudah menyebabkan pembunuhan tidak disengaja oleh perangkat lunak anti-virus. Ada banyak alat serupa di Internet. Nilai guna alat ini tidak terlalu bagus, tetapi banyak kode di dalamnya yang dianggap ditulis dengan baik.

Fitur utama meliputi:

Melihat informasi disk, menelusuri file disk, dan mengoperasikan dengan cara yang mirip dengan Windows Explorer, seperti membuat, menghapus, mengganti nama, menyalin, memindahkan, dan operasi file teks dasar lainnya.
Pengunduhan file mode streaming menyederhanakan dan mengoptimalkan pengemasan/pembongkaran file unggahan bebas komponen. Folder dapat dikemas/dibongkar sepenuhnya.

Cuplikan kode:

1. Bagian pengemasan/pembongkaran file

  1. ============= Proses pengemasan dan pembongkaran file = = ============
  2. Pengemasan berkas
  3. Sub Paket ( ByVal FPath, ByVal sDbPath)
  4. Server.ScriptTimeOut=900
  5.      Redupkan DbPath
  6.      Jika Benar(sDbPath,4)= ".mdb"   Kemudian
  7. DbPath=sDbPath
  8.      Kalau tidak
  9. DbPath=sDbPath ".mdb"
  10.      Akhir   Jika
  12.      Jika oFso.FolderExists(DbPath) Lalu
  13. EchoBack "Tidak dapat membuat file basis data!" &Ganti(DbPath, ""," \")
  14.          KELUAR   Sub
  15.      Akhir   Jika
  16.      Jika oFso.FileExists(DbPath) Lalu
  17. oFso.DeleteFile DbPath
  18.      Akhir   Jika
  20.      Jika IsFolder(FPath) Lalu
  21. RootPath=DapatkanParentFolder(FPath)
  22.          Jika Benar(RootPath,1)<> "" Maka RootPath=RootPath&" "
  23.      Kalau tidak
  24. EchoBack "Silakan masukkan jalur folder!"
  25.          KELUAR   Sub
  26.      Akhir   Jika
  28.      Redupkan oCatalog,connStr,DataName
  29.      Setel samb=Server.CreateObject( "ADODB.Connection" )
  30.      Setel oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Setel oCatalog=Server.CreateObject( "ADOX.Catalog" )
  32.      Setel rs=Server.CreateObject( "ADODB.RecordSet" )
  33.      Pada   Kesalahan   Melanjutkan   Berikutnya
  34. connStr = "Penyedia=Microsoft.Jet.OLEDB.4.0; Sumber Data=" & DbPath
  35. oKatalog.Buat koneksi
  36.      Jika Salah Lalu
  37. EchoBack "Tidak dapat membuat file basis data!" &Ganti(DbPath, ""," \")
  38.          KELUAR   Sub
  39.      Akhir   Jika
  40.      Setel oKatalog= Tidak ada
  41. samb.Buka samb.Str
  42. conn.Execute( "Buat File Tabel(ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Buka
  44. oStream.Jenis=1
  45. rs.Buka "File" , samb.3,3
  46. NamaData=Kiri(oFso.GetFile(DbPath).Nama,InstrRev(oFso.GetFile(DbPath).Nama, "." )-1)
  47. NoPackFiles=Ganti(NoPackFiles, "<$datafile>" ,NamaData)
  49. Daftar File Gagal= ""          Daftar file yang gagal dikemas
  50. PaketFolderFPath
  51.      Jika Daftar File Gagal= ""   Kemudian
  52. EchoClose "Pengemasan folder berhasil!"
  53.      Kalau tidak
  54. Respon.Tulis "<link rel= stylesheet type= text/css href= ?page=css >"
  55. Response.Tulis "<Bahasa Skrip= JavaScript >alert( Pemaketan folder selesai!nBerikut daftar file yang gagal dikemas: );</Script>"
  56. Respon.Tulis "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.      Akhir   Jika
  58. oStream.Tutup
  59. rs.Tutup
  60. samb.Tutup
  61. Akhir   Sub
  62. Tambahkan folder (secara rekursif)
  63. Sub PaketFolder(Jalur Folder)
  64.      Jika   Bukan IsFolder(FolderPath) Lalu   KELUAR   Sub
  65.      Redupkan Folder,sFile,sFolder
  66.      Setel oFolder=oFso.GetFolder(FolderPath)
  67.      Untuk   Setiap sFile Di oFolder.Files
  68.          Jika InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Lalu
  69. PackFile sFile.Jalur
  70.          Akhir   Jika
  71.      Berikutnya
  72.      Setel sFile = Tidak Ada
  73.      Untuk   Setiap sFolder Di oFolder.SubFolder
  74. PackFolder sFolder.Jalur
  75.      Berikutnya
  76.      Setel sFolder= Tidak ada
  77. Akhir   Sub
  78. Tambahkan file
  79. Sub PaketFile(Jalur File)
  80.      Redupkan RelPath
  81. RelPath=Ganti(FilePath,RootPath, "" )
  82.      Respon.Tulis RelPath & "<br>"
  83.      Pada   Kesalahan   Melanjutkan   Berikutnya
  84. Err. Jelas
  85. Salah= Salah
  86. oStream.LoadFromFile FilePath
  87. rs.TambahBaru
  88. rs( "Jalur File" )=Jalur Rel
  89. rs( "FileData" )=oStream.Baca()
  90. rs.Perbarui
  91.      Jika Salah Lalu
  92.          Pengemasan file gagal
  93. FailFilelist=FailFilelist&Jalur File "|"
  94.      Akhir   Jika
  95. Akhir   Sub
  97. ==================== ==========
  98. Membongkar file
  99. Sub Buka Paket(vFolderPath,DbPath)
  100. Server.ScriptTimeOut=900
  101.      Redupkan FilePath,FolderPath,sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=Potong(FolderPath)
  104.      Jika Tengah(FolderPath,2,1)<> ":"   Kemudian
  105. EchoBack "Format jalur salah dan direktori tidak dapat dibuat!"
  106.          KELUAR   Sub
  107.      Akhir   Jika
  109.      Jika Benar(FolderPath,1)= ""   Kemudian FolderPath=Kiri(FolderPath,Len(FolderPath)-1)
  110.      Koneksi redupStr
  111.      Setel samb=Server.CreateObject( "ADODB.Connection" )
  112.      Setel oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Setel rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "Penyedia=Microsoft.Jet.OLEDB.4.0; Sumber Data=" & DbPath
  115.      Pada   Kesalahan   Melanjutkan   Berikutnya
  116. Salah= Salah
  117. samb.Buka samb.Str
  118.      Jika Salah Lalu
  119. EchoBack "Kesalahan pembukaan basis data!"
  120.          KELUAR   Sub
  121.      Akhir   Jika
  122. Salah= Salah
  123. oStream.Buka
  124. oStream.Jenis=1
  125. rs.Buka "File" , samb.1,1
  126. Daftar File Gagal= ""          Hapus daftar file yang gagal
  127.      Melakukan   Sampai rs.EOF
  128. Err. Jelas
  129. Salah= Salah
  130. Jalur File=Jalur Folder ""&rs(" Jalur File")
  131. FilePath=Ganti(FilePath, "\"," ")
  132. sFolderPath=Kiri(FilePath,InStrRev(FilePath, "" ))
  133.          Jika   Bukan oFso.FolderExists(sFolderPath) Lalu
  134. BuatFolder(sFolderPath)
  135.          Akhir   Jika
  136. oStream.SetEos()
  137. oStream.Tulis rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          Jika Salah Lalu          Tambahkan item file yang gagal
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Nilai "|"
  142.          Akhir   Jika
  144. rs.MoveNext
  145.      Lingkaran
  146. rs.Tutup
  147.      Setel rs = Tidak ada
  148. samb.Tutup
  149.      Setel samb= Tidak ada
  150.      Setel oStream = Tidak Ada
  151.      Jika Daftar File Gagal= ""   Kemudian
  152. EchoClose "Pembongkaran file berhasil!"
  153.      Kalau tidak
  154. Respon.Tulis "<link rel= stylesheet type= text/css href= ?page=css >"
  155. Response.Write "<Bahasa Skrip= JavaScript >alert(Paket folder selesai!nBerikut daftar file yang gagal dipaket, silakan dicek);</Script>"
  156. Respon.Tulis "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.      Akhir   Jika
  158. Akhir   Sub
  159. ==================== ==========

2. Bagian unggah file (file tunggal):

  1. Simpan file yang diuploadSub
  2. Saveupload ( ByVal Nama Folder)
  3.      Jika   Bukan IsFolder (Nama Folder) Lalu
  4. EchoClose "Tidak ada folder unggahan yang ditentukan!"
  5.          KELUAR   Sub
  6.      Akhir   Jika
  7.      Jalur Redup ,
  8. Jalur IsOverWrite=Nama Folder
  9.      Jika Benar(Jalur,1)<> "" Lalu Jalan=Jalur&" "
  10. NamaFile=Ganti(Permintaan( "nama file" ), ""," ")
  11.      Jika Len(Nama File)<1 Lalu
  12. EchoBack "Silakan pilih file dan masukkan nama file!"
  13.          KELUAR   Sub
  14.      Akhir   Jika
  15. Jalur=Jalur
  16.      Jika LCase(Permintaan( "timpa" ))= "benar"   Maka
  17. IsOverWrite= Benar
  18.      Lain
  19. IsOverWrite= Salah
  20.      Akhir   Jika
  21.      Pada   Kesalahan   Melanjutkan   Berikutnya
  22.      Hubungi MyUpload(Path,IsOverWrite)
  23.      Jika Err Lalu
  24. EchoBack "Upload file gagal! (File mungkin sudah ada)"
  25.      Lain
  26. EchoClose "File berhasil diunggah!n" & Ganti(namafile, "", " \")
  27.      Akhir   Jika
  28. Berakhir  
  29. Kode inti unggah
  30. sub
    31. file
  31. Sub MyUpload (FilePath, IsOverWrite)
  32.      Redupkan oStream,tStream,NamaFile,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
  33. RequestSize=Request.TotalBytes
  34.      Jika RequestSize<1 Lalu   KELUAR   Sub
  35.      Setel oStream=Server.CreateObject( "ADODB.Stream" )
  36.      Setel tStream=Server.CreateObject( "ADODB.Stream" )
  37.      Dengan 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= ""      Hapus data file
  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.          Jika IsOverWrite Kemudian
  59. tStream.SaveToFile FilePath,2
  60.          Lain
  61. tStream.SaveToFile FilePath
  62.          Akhir   Jika
  63. tStream.Tutup
  64. .Tutup
  65.      Akhir   Dengan
  66.      SettStream = Tidak ada
  67.      Setel oStream= Tidak Ada
  68. Akhir   Sub

 
Memperluas
Informasi Tambahan
Aplikasi Terkait
Direkomendasikan untuk Anda
Informasi Terkait Semua