홈페이지>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.      오른쪽(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.          If Right(RootPath,1)<> "" Then RootPath=RootPath&" "
  23.      또 다른
  24. 에코백 "폴더 경로를 입력해주세요!"
  25.          출구   보결
  26.      끝   만약에
  28.      Dim oCatalog,connStr,DataName
  29.      conn=Server.CreateObject( "ADODB.Connection" ) 설정
  30.      oStream=Server.CreateObject( "ADODB.Stream" ) 설정
  31.      oCatalog=Server.CreateObject( "ADOX.Catalog" ) 설정
  32.      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.Open "파일" , conn,3,3
  46. DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name, "." )-1)
  47. NoPackFiles=바꾸기(NoPackFiles, "<$datafile>" ,DataName)
  49. FailFileList= ""          패키징에 실패한 파일 목록
  50. PackFolderFPath
  51.      FailFilelist= "" 인 경우   그 다음에
  52. EchoClose "폴더 패키징 성공!"
  53.      또 다른
  54. Response.Write ""
  55. Response.Write ""
  56. Response.Write "" &Replace(FailFilelist, "|" , "
    "     ) ""
  57.      끝   만약에
  58. oStream.Close
  59. RS.닫기
  60. 연결.닫기
  61. 끝   보결
  62. 폴더 추가(재귀적으로)
  63. 하위 팩폴더(폴더 경로)
  64.      만약에   IsFolder(FolderPath) 가 아닌 경우   출구   보결
  65.      희미한 폴더, s파일, s폴더
  66.      oFolder=oFso.GetFolder(FolderPath) 설정
  67.      을 위한   oFolder.Files 의 각 sFile
  68.          If InStr(NoPackFiles, "|" &sFile.Name "|" )<1 그러면
  69. PackFile sFile.Path
  70.          끝   만약에
  71.      다음
  72.      sFile = 없음 설정
  73.      을 위한   oFolder.SubFolders 의 각 sFolder
  74. 팩폴더 sFolder.Path
  75.      다음
  76.      sFolder= 아무것도 설정하지 않음
  77. 끝   보결
  78. 파일 추가
  79. 하위 팩파일(파일 경로)
  80.      희미한 RelPath
  81. RelPath=바꾸기(파일 경로, 루트 경로, "" )
  82.      응답.RelPath & "
    " 쓰기
  83.      ~에   오류   재개하다   다음
  84. Err.Clear
  85. 오류= 거짓
  86. oStream.LoadFromFile 파일 경로
  87. rs.새로 추가
  88. rs( "파일 경로" )=RelPath
  89. rs( "FileData" )=oStream.Read()
  90. RS.업데이트
  91.      오류가 발생한 경우
  92.          파일 패키징에 실패했습니다.
  93. FailFilelist=FailFilelist&파일 경로 "|"
  94.      끝   만약에
  95. 끝   보결
  97. ================================================= =========================
  98. 파일 압축 풀기
  99. 하위 압축 해제(vFolderPath,DbPath)
  100. Server.ScriptTimeOut=900
  101.      희미한 파일 경로, 폴더 경로, sFolderPath
  102. 폴더 경로=vFolderPath
  103. FolderPath=트림(폴더 경로)
  104.      Mid(FolderPath,2,1)<> ":" 인 경우   그 다음에
  105. EchoBack "경로 형식이 잘못되어 디렉터리를 생성할 수 없습니다!"
  106.          출구   보결
  107.      끝   만약에
  109.      오른쪽(FolderPath,1)= "" 인 경우   그러면 FolderPath=Left(FolderPath,Len(FolderPath)-1)
  110.      희미한 연결 강도
  111.      conn=Server.CreateObject( "ADODB.Connection" ) 설정
  112.      oStream=Server.CreateObject( "ADODB.Stream" ) 설정
  113.      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.Open "파일" ,conn,1,1
  126. FailFilelist= ""          실패한 파일 목록 지우기
  127.      하다   RS.EOF 까지
  128. Err.Clear
  129. 오류= 거짓
  130. FilePath=폴더 경로 ""&rs(" FilePath")
  131. FilePath=바꾸기(파일 경로, "\"," ")
  132. sFolderPath=왼쪽(파일 경로, InStrRev(파일 경로, "" ))
  133.          만약에   oFso.FolderExists(sFolderPath) 가 아님
  134. 폴더 생성(sFolderPath)
  135.          끝   만약에
  136. oStream.SetEos()
  137. oStream.Write rs( "파일데이터" )
  138. oStream.SaveToFile 파일 경로,2
  140.          오류가 발생한 경우          실패한 파일 항목 추가
  141. FailFilelist=FailFilelist&rs( "파일 경로" ).값 "|"
  142.          끝   만약에
  144. rs.이동다음
  145.      고리
  146. RS.닫기
  147.      rs = 없음으로 설정
  148. 연결.닫기
  149.      conn= 없음으로 설정
  150.      oStream = 없음으로 설정
  151.      FailFilelist= "" 인 경우   그 다음에
  152. EchoClose "파일 압축 해제 성공!"
  153.      또 다른
  154. Response.Write ""
  155. Response.Write "<스크립트 언어= JavaScript >alert(폴더 패키징 완료!n다음은 패키징에 실패한 파일 목록입니다. 확인해주세요);"
  156. Response.Write "" &Replace(FailFilelist, "|" , "
    "     ) ""
  157.      끝   만약에
  158. 끝   보결
  159. ================================================= =========================

2. 파일 업로드 부분(단일 파일):

  1. 업로드된 파일을 저장합니다.Sub
  2. Saveupload ( ByVal FolderName)
  3.      만약에   Not IsFolder(FolderName) 그러면
  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(요청( "덮어쓰기" ))= "true" 인 경우   그런 다음
  18. IsOverWrite= True
  19.      그렇지 않으면
  20. IsOverWrite= False
  21.      끝   만약에
  22.      ~에   오류   재개하다   다음
  23.      MyUpload(Path, IsOverWrite) 호출
  24.      오류가 발생 하면
  25. EchoBack "파일 업로드에 실패했습니다! (파일이 이미 존재할 수 있습니다.)"
  26.      Else
  27. EchoClose "파일이 성공적으로 업로드되었습니다!n" & 바꾸기(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.      oStream=Server.CreateObject( "ADODB.Stream" ) 설정
  38.      tStream=Server.CreateObject( "ADODB.Stream" ) 설정
  39.      oStream .Type
  40. =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 이면 tStream.SaveToFile
  61. FilePath,2
  62.          그렇지 않으면
  63. tStream.SaveToFile FilePath
  64.          끝  
  65. tStream.Close
  66. .Close
  67. 인 경우
  68.      끝   와 함께
  69.      SettStream = 없음
  70.     
    71. oStream=아무것도
  71. 끝
  72. 이 없도록 설정
  73.   보결

 
확장하다
추가 정보
관련 애플리케이션
추천
관련 정보 전체
사용자 리뷰