Home>ASP source code>File data
No Resources Available
This is an FSO file browser written using FSO collection objects (if you insist on saying it is a Trojan, I have no objection). Functionally, it imitates the design of the "Top Trojan of the Ocean", but the code is completely rewritten. Using components such as Shell.Application that can easily cause accidental killing by anti-virus software. There are many similar tools on the Internet. The use value of this tool is not very great, but many of the codes in it are considered to be well written.

Key features include:

View disk information, browse disk files, and operate in a manner similar to Windows Explorer, such as creating, deleting, renaming, copying, moving, and other basic file operations. Text file editing.
Stream mode file download simplifies and optimizes component-free upload file packaging/unpacking. A folder can be completely packaged/unpacked.

Code snippet:

1. File packaging/unpacking part

  1. ============================ File packaging and unpacking process ================ =============
  2. File packaging
  3. Sub Pack( ByVal FPath, ByVal sDbPath)
  4. Server.ScriptTimeOut=900
  5.      Dim DbPath
  6.      If Right(sDbPath,4)= ".mdb"   Then
  7. DbPath=sDbPath
  8.      Else
  9. DbPath=sDbPath ".mdb"
  10.      End   If
  12.      If oFso.FolderExists(DbPath) Then
  13. EchoBack "Cannot create database file!" &Replace(DbPath, ""," \")
  14.          Exit   Sub
  15.      End   If
  16.      If oFso.FileExists(DbPath) Then
  17. oFso.DeleteFile DbPath
  18.      End   If
  20.      If IsFolder(FPath) Then
  21. RootPath=GetParentFolder(FPath)
  22.          If Right(RootPath,1)<> "" Then RootPath=RootPath&" "
  23.      Else
  24. EchoBack "Please enter the folder path!"
  25.          Exit   Sub
  26.      End   If
  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.      On   Error   Resume   Next
  34. connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath
  35. oCatalog.Create connStr
  36.      If Err Then
  37. EchoBack "Cannot create database file!" &Replace(DbPath, ""," \")
  38.          Exit   Sub
  39.      End   If
  40.      Set oCatalog= Nothing
  41. conn.Open connStr
  42. conn.Execute( "Create Table Files(ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)" )
  43. oStream.Open
  44. oStream.Type=1
  45. rs.Open "Files" ,conn,3,3
  46. DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=Replace(NoPackFiles, "<$datafile>" ,DataName)
  49. FailFileList= ""          List of files that failed to be packaged
  50. PackFolderFPath
  51.      If FailFilelist= ""   Then
  52. EchoClose "Folder packaging successful!"
  53.      Else
  54. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  55. Response.Write "<Script Language= JavaScript >alert( Folder packaging completed!nThe following is a list of files that failed to be packaged: );</Script>"
  56. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.      End   If
  58. oStream.Close
  59. rs.Close
  60. conn.Close
  61. End   Sub
  62. Add folder (recursively)
  63. Sub PackFolder(FolderPath)
  64.      If   Not IsFolder(FolderPath) Then   Exit   Sub
  65.      Dim oFolder,sFile,sFolder
  66.      Set oFolder=oFso.GetFolder(FolderPath)
  67.      For   Each sFile In oFolder.Files
  68.          If InStr(NoPackFiles, "|" &sFile.Name "|" )<1 Then
  69. PackFile sFile.Path
  70.          End   If
  71.      Next
  72.      Set sFile = Nothing
  73.      For   Each sFolder In oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      Next
  76.      Set sFolder= Nothing
  77. End   Sub
  78. Add files
  79. Sub PackFile(FilePath)
  80.      Dim RelPath
  81. RelPath=Replace(FilePath,RootPath, "" )
  82.      Response.Write RelPath & "<br>"
  83.      On   Error   Resume   Next
  84. Err.Clear
  85. Err= False
  86. oStream.LoadFromFile FilePath
  87. rs.AddNew
  88. rs( "FilePath" )=RelPath
  89. rs( "FileData" )=oStream.Read()
  90. rs.Update
  91.      If Err Then
  92.          Packaging of a file failed
  93. FailFilelist=FailFilelist&FilePath "|"
  94.      End   If
  95. End   Sub
  97. ================================================== =========================
  98. File unpacking
  99. Sub UnPack(vFolderPath,DbPath)
  100. Server.ScriptTimeOut=900
  101.      Dim FilePath,FolderPath,sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=Trim(FolderPath)
  104.      If Mid(FolderPath,2,1)<> ":"   Then
  105. EchoBack "The path format is incorrect and the directory cannot be created!"
  106.          Exit   Sub
  107.      End   If
  109.      If Right(FolderPath,1)= ""   Then 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 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath
  115.      On   Error   Resume   Next
  116. Err= False
  117. conn.Open connStr
  118.      If Err Then
  119. EchoBack "Database opening error!"
  120.          Exit   Sub
  121.      End   If
  122. Err= False
  123. oStream.Open
  124. oStream.Type=1
  125. rs.Open "Files" ,conn,1,1
  126. FailFilelist= ""          Clear failed file list
  127.      Do   Until rs.EOF
  128. Err.Clear
  129. Err= False
  130. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=Replace(FilePath, "\"," ")
  132. sFolderPath=Left(FilePath,InStrRev(FilePath, "" ))
  133.          If   Not oFso.FolderExists(sFolderPath) Then
  134. CreateFolder(sFolderPath)
  135.          End   If
  136. oStream.SetEos()
  137. oStream.Write rs( "FileData" )
  138. oStream.SaveToFile FilePath,2
  140.          If Err Then          Add failed file item
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Value "|"
  142.          End   If
  144. rs.MoveNext
  145.      Loop
  146. rs.Close
  147.      Set rs = Nothing
  148. conn.Close
  149.      Set conn= Nothing
  150.      Set oStream = Nothing
  151.      If FailFilelist= ""   Then
  152. EchoClose "File unpacking successful!"
  153.      Else
  154. Response.Write "<link rel= stylesheet type= text/css href= ?page=css >"
  155. Response.Write "<Script Language= JavaScript >alert(Folder packaging completed!nThe following is a list of files that failed to be packaged, please check);</Script>"
  156. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.      End   If
  158. End   Sub
  159. ================================================== =========================

2. File upload part (single file):

  1. Save the uploaded fileSub
  2. Saveupload ( ByVal FolderName)
  3.      If   Not IsFolder(FolderName) Then
  4. EchoClose "No upload folder specified!"
  5.          Exit   Sub
  6.      End   If
  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 "Please select the file and enter the file name!"
  13.          Exit   Sub
  14.      End   If
  15. Path=Path
  16.      If LCase(Request( "overwrite" ))= "true"   Then
  17. IsOverWrite= True
  18.      Else
  19. IsOverWrite= False
  20.      End   If
  21.      On   Error   Resume   Next
  22.      Call MyUpload(Path,IsOverWrite)
  23.      If Err Then
  24. EchoBack "File upload failed! (The file may already exist)"
  25.      Else
  26. EchoClose "File uploaded successfully!n" & Replace(fileName, "", " \")
  27.      End   If
  28. End   Sub
  29. file upload core code
  30. Sub MyUpload(FilePath,IsOverWrite)
  31.      Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
  32. RequestSize=Request.TotalBytes
  33.      If RequestSize<1 Then   Exit   Sub
  34.      Set oStream=Server.CreateObject( "ADODB.Stream" )
  35.      Set tStream=Server.CreateObject( "ADODB.Stream" )
  36.      With oStream
  37. .Type=1
  38. .Mode=3
  39. .Open
  40. .Write=Request.BinaryRead(RequestSize)
  41. .Position=0
  42. sData=.Read
  43. bCrLf=ChrB(13)&ChrB(10)
  44. iSpaceEnd=InStrB(sData,bCrLf)-1
  45. sSpace =LeftB(sData,iSpaceEnd)
  46. iInfoStart=iSpaceEnd+3
  47. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
  48. iFileStart=iInfoEnd+5
  49. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
  50. sData= ""      Clear file data
  51. iFileSize=iFileEnd-iFileStart+1
  52. tStream.Type=1
  53. tStream.Mode=3
  54. tStream.Open
  55. .Position=iFileStart-1
  56. .CopyTo tStream,iFileSize
  57.          If IsOverWrite Then
  58. tStream.SaveToFile FilePath,2
  59.          Else
  60. tStream.SaveToFile FilePath
  61.          End   If
  62. tStream.Close
  63. .Close
  64.      End   With
  65.      SettStream = Nothing
  66.      Set oStream= Nothing
  67. End   Sub

 
Expand
Additional Information
Related Applications
Recommended for You
Related Information All