الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

استبدال ASP وحفظ رمز تنفيذ الصورة عن بُعد

الكاتب：Eve Cole وقت التحديث：2025-03-12 17:48:02

تشارك هذه المقالة بشكل أساسي رمز الوظيفة لاستبدال ASP وحفظ الصور عن بُعد.

يستخدم ASP وظائف لاستبدال الصور عن بُعد وحفظها ، وإكمال وظائف جمع الصور واستخراجها تلقائيًا ، والحكم تلقائيًا على تكرار الصور في الوظيفة ، وتحليل مسار الارتباط بذكاء ، وتحويلها إلى عنوان صورة نسبي وحفظه في دليل الموقع المحدد. في الوقت نفسه ، يعد هذا الرمز أيضًا وظيفة معالجة مهمة في برنامج المجموعة.

  1. FunctionReplacesavereMoteFile (Const ، Strinstalldir ، Strchanneldir ، Savetf ، Tisturl)
  2. ifconstr = $ false $ orconstr = orstrinstalldir = orstrchanneldir = ثم
  3. استبدال avereMoteFile = constr
  4. exitfunction
  5. Endif
  6. DimTempstr ، TempStr2 ، TempStr3 ، Re ، Matches ، Match ، Temppi ، Temparray ، Temparray2
  7. setre = newregexp
  8. re.ignorecase = صحيح
  9. re.global = صحيح
  10. re.pattern =]>
  11. setMatches = re.execute (const)
  12. foreachMatchinMatches
  13. iftempstr <> ثم
  14. TEMPSTR = TEMPSTR & $ ARRAY $ & match.value
  15. آخر
  16. tempstr = match.value
  17. Endif
  18. التالي
  19. iftempstr <> ثم
  20. Temparray = Split (TempStr ، $ Array $)
  21. tempstr =
  22. Fortempi = 0Toubound (Temparray)
  23. re.pattern = src/s*=/s*.+؟/.
  24. setMatches = re.execute (temparray (tempi))
  25. foreachMatchinMatches
  26. iftempstr <> ثم
  27. TEMPSTR = TEMPSTR & $ ARRAY $ & match.value
  28. آخر
  29. tempstr = match.value
  30. Endif
  31. التالي
  32. التالي
  33. Endif
  34. iftempstr <> ثم
  35. re.pattern = src/s*=/s*
  36. tempstr = re.replace (tempstr ،)
  37. Endif
  38. setMatches = لا شيء
  39. setre = لا شيء
  40. iftempstr = orisnull (tempstr) = truethen
  41. استبدال avereMoteFile = constr
  42. exitfunction
  43. Endif
  44. tempstr = استبدال (tempstr ،،)
  45. tempstr = استبدال (tempstr ، '،)
  46. tempstr = استبدال (tempstr ،،)
  47. dimremotefileurl ، SavePath ، Pathtemp ، dtnow ، strfilename ، strfiletype ، arrsavefilename ، rannum ، arr_path
  48. dtnow = الآن ()
  49. IFSAVETF = truethen
  50. SavePath = Strchanneldir &/& Year (dtnow) & right (0 والشهر (dtnow) ، 2) و/
  51. Response.write Rink Path: & SavePath &
  52. arr_path = split (SavePath ،/)
  53. pathtemp =
  54. Fortempi = 0Toubound (ARR_PATH)
  55. iftempi = 0then
  56. pathtemp = arr_path (0) و/
  57. elseiftempi = ubound (arr_path) ثم
  58. الخروج
  59. آخر
  60. pathtemp = pathtemp & arr_path (tempi) و/
  61. Endif
  62. ifcheckdir (pathtemp) = falsethen
  63. ifmakenewsdir (pathtemp) = falsethen
  64. savetf = خطأ
  65. الخروج
  66. Endif
  67. Endif
  68. التالي
  69. Endif
  70. "إزالة الصور المكررة
  71. Temparray = Split (TempStr ، $ Array $)
  72. tempstr =
  73. Fortempi = 0Toubound (Temparray)
  74. IFINST (LCASE (TEMPSTR) ، LCASE (Temparray (Temppi))) <1th
  75. Tempster = TempStr & $ Array $ & Temparray (Temppi)
  76. Endif
  77. التالي
  78. Tempster = يمين (Tempstr ، Len (TempSt) -7)
  79. Temparray = Split (TempStr ، $ Array $)
  80. "تحويل عنوان الصورة النسبية
  81. tempstr =
  82. Fortempi = 0Toubound (Temparray)
  83. TempStr = TempStr & $ Array $ & definiteUrl (Temparray (Temppi) ، tisturl)
  84. التالي
  85. Tempster = يمين (Tempstr ، Len (TempSt) -7)
  86. tempstr = استبدال (tempstr ، chr (0) ،)
  87. temparray2 = split (tempstr ، $ $ $)
  88. tempstr =
  89. استبدال الصورة/حفظ
  90. setre = newregexp
  91. re.ignorecase = صحيح
  92. re.global = صحيح
  93. Fortempi = 0Toubound (Temparray2)
  94. RemoteFileUrl = temparray2 (tempi)
  95. ifremotefileurl <> $ false $ andsavetf = truethen'save صورة
  96. Arrsavefilename = split (RemoteFileurl ،.)
  97. strfiletype = lace (arrsavefilename (ubound (arrsavefilename))) 'نوع الملف
  98. ifstrfileType = aspoStrfileType = asaorstrfileType = aspxorStrfileType = cerorstrfileType = cdxorstrfileType = exeOrstRfileType = raroStrfileType = zipthen
  99. التحميل =
  100. استبدال avereMoteFile = constr
  101. exitfunction
  102. Endif
  104. عشوائي
  105. rannum = int (900*rnd) +100
  106. strfilename = year (dtnow) & right (0 والشهر (dtnow) ، 2) واليمين (0 و day (dtnow) ، 2) واليمين (0 و hour (dtnow) ، 2) & relite (0 & minute (dtnow) ، 2) & right (0 & second (dtnow) ، 2 ) & Right (0 & Second (dtnow) ، 2) & Rannum &. & StrfileType
  107. re.pattern = temparray (tempi)
  108. ifSavereMoteFile (SavePath & Strfilename ، RemoteFileUrl) = truethen
  109. '************************************
  110. Pathtemp = SavePath & Strfilename
  111. const = re.replace (connt ، pathtemp)
  112. re.pattern = strinstalldir & strchanneldir و/
  113. UploadFiles = UploadFiles & | & re.replace (SavePath & Strfilename ،)
  114. آخر
  115. pathtemp = RemoteFileurl
  116. const = re.replace (connt ، pathtemp)
  117. 'UploadFiles = UploadFiles & | & RemoteFileurl
  118. Endif
  119. elseifremotefileurl <> $ false $ andsavetf = falsethen 'لا يحفظ الصورة
  120. re.pattern = temparray (tempi)
  121. const = re.replace (connt ، RemoteFileUrl)
  122. UploadFiles = UploadFiles & | & RemoteFileUrl
  123. Endif
  124. التالي
  125. setre = لا شيء
  126. ifuploadfiles <> ثم
  127. UploadFiles = Right (UploadFiles ، Len (UploadFiles) -1)
  128. Endif
  129. استبدال avereMoteFile = constr
  130. الوظيفية

الوصف المعلمة الوظيفية:

Const: السلسلة لاستبدالها

المعلمات: SavetF: ما إذا كان لحفظ الملف ، FALSE لا يحفظ ، حفظ صحيح

المعلمات: Tisturl: عنوان صفحة الويب الحالي

ما سبق هو رمز استبدال ASP وحفظ وظيفة الصورة عن بُعد ، وآمل أن يكون ذلك مفيدًا لتعلم الجميع.

مقالات ذات صلة