peramban berkas FSO

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 ""
55. Response.Tulis "alert( Pemaketan folder selesai!nBerikut daftar file yang gagal dikemas: );"
56. Respon.Tulis "" &Replace(FailFilelist, "|" , "
    " ) ""
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 & "
    "
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 ""
155. Response.Write "alert(Paket folder selesai!nBerikut daftar file yang gagal dipaket, silakan dicek);"
156. Respon.Tulis "" &Replace(FailFilelist, "|" , "
     " ) ""
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
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