Главная страница>Учебник по сетевому программированию>Учебное пособие по ASP

Замена ASP и сохранение кода реализации удаленного изображения

Автор：Eve Cole Время обновления：2025-03-12 17:48:02

Эта статья в основном разделяет код функции для замены ASP и сохранения удаленных картинок.

ASP использует функции для замены и сохранения удаленных изображений, выполнения функций автоматического сбора и извлечения изображений, автоматически судить о повторяющихся изображениях в функции, разумно проанализировать путь ссылки и преобразовать его в относительный адрес картин и сохранить его в каталоге веб -сайта, который вы Указано. В то же время этот код также является важной функцией обработки в программе сбора.

  1. FunctionReplacesAvereMotefile (Constry, Strinstalldir, Strchanneldir, Savetf, Tisturl)
  2. Ifconstr = $ false $ orconstr = orstrinstalldir = orstrchanneldir = then
  3. Заменяет avereMotefile = constr
  4. Выходная функция
  5. Эндиф
  6. Dimtempstr, Tempstr2, Tempstr3, Re, Matches, Match, Temppi, Temparray, Temparray2
  7. Setre = newRegexp
  8. Re.ignorecase = true
  9. Re.global = true
  10. Re.pattern =]>
  11. Setmatches = re.execute (constry)
  12. Foreachmatchinmatches
  13. Iftempstr <> then
  14. Tempstr = Tempstr & $ Array $ & Match.value
  15. Еще
  16. Tempstr = match.value
  17. Эндиф
  18. Следующий
  19. Iftempstr <> then
  20. Temparray = split (tempstr, $ ray $)
  21. Tempstr =
  22. Fortempi = 0toubound (Temparray)
  23. Re.pattern = src/s*=/s*.+?/. (Gif | jpg | bmp | jpeg | psd | png | svg | dxf | wmf | tiff)
  24. SetMatches = re.execute (temparray (tempi))
  25. Foreachmatchinmatches
  26. Iftempstr <> then
  27. Tempstr = Tempstr & $ Array $ & Match.value
  28. Еще
  29. Tempstr = match.value
  30. Эндиф
  31. Следующий
  32. Следующий
  33. Эндиф
  34. Iftempstr <> then
  35. Re.pattern = src/s*=/s*
  36. Tempstr = re.replace (tempstr,)
  37. Эндиф
  38. SetMatches = ничего
  39. Setre = ничего
  40. Iftempstr = orisnull (tempstr) = truethen
  41. Заменяет avereMotefile = constr
  42. Выходная функция
  43. Эндиф
  44. Tempstr = заменить (Tempstr ,,)
  45. Tempstr = reply (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. Ответ.
  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) и//// /e
  61. Эндиф
  62. Ifcheckdir (pathtemp) = falsethen
  63. Ifmakenewsdir (pathtemp) = falsethen
  64. Savetf = false
  65. Выход
  66. Эндиф
  67. Эндиф
  68. Следующий
  69. Эндиф
  70. 'Удалите дубликаты изображений
  71. Temparray = split (tempstr, $ ray $)
  72. Tempstr =
  73. Fortempi = 0toubound (Temparray)
  74. Ifinstr (Lcase (Tempstr), Lcase (Temparray (Temppi))) <1then
  75. Tempstr = Tempstr & $ Array $ & Temparray (Temppi)
  76. Эндиф
  77. Следующий
  78. Tempstr = справа (Tempstr, Len (Tempstr) -7)
  79. Temparray = split (tempstr, $ ray $)
  80. 'Преобразовать относительный адрес картинки
  81. Tempstr =
  82. Fortempi = 0toubound (Temparray)
  83. Tempstr = Tempstr & $ Array $ & DepaniteUrl (Temparray (Temppi), Tisturl)
  84. Следующий
  85. Tempstr = справа (Tempstr, Len (Tempstr) -7)
  86. Tempstr = reply (tempstr, chr (0),)
  87. Temparray2 = Split (Tempstr, $ Array $)
  88. Tempstr =
  89. 'Замена изображения/Сохранить
  90. Setre = newRegexp
  91. Re.ignorecase = true
  92. Re.global = true
  93. Fortempi = 0toubound (temparray2)
  94. Remotefileurl = temparray2 (tempi)
  95. Ifremotefileurl <> $ false $ andsavetf = truethen'save -образ
  96. Arrsavefilename = split (remotefileurl ,.)
  97. strfiletype = lcase (arrsavefilename (ubound (arrsavefilename))) тип файла
  98. IfstrfileType = aspoStrfileType = asaorstrfileType = aspxorStrfileType = cerorStrfileType = cdxorStrfileType = exeorStrfileType = raroStrfileType = Zipthen
  99. Uploadfiles =
  100. Заменяет avereMotefile = constr
  101. Выходная функция
  102. Эндиф
  104. Рандомизировать
  105. Rannum = int (900*rnd) +100
  106. strfilename = Год (dtnow) и справа (0 и месяц (dtnow), 2) и справа (0 и день (dtnow), 2) и справа (0 и час (dtnow), 2) и справа (0 & minday (dtnow), 2) и справа (0 и второе (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. Constra = re.replace (constry, pathtemp)
  112. Re.pattern = strinstalldir & strchanneldir &//
  113. Uploadfiles = uploadfiles & | & re.replace (SavePath & Strfilename,)
  114. Еще
  115. Pathtemp = remotefileurl
  116. Constra = re.replace (constry, pathtemp)
  117. 'Uploadfiles = uploadfiles & | & remotefileurl
  118. Эндиф
  119. Elseifremotefileurl <> $ false $ andsavetf = falsethen 'не сохраняет изображение
  120. Re.pattern = temparray (tempi)
  121. Constr = re.replace (constr, remotefileurl)
  122. Uploadfiles = uploadfiles & | & remotefileurl
  123. Эндиф
  124. Следующий
  125. Setre = ничего
  126. Ifuploadfiles <> then
  127. Uploadfiles = right (uploadfiles, len (uploadfiles) -1)
  128. Эндиф
  129. Заменяет avereMotefile = constr
  130. Конечная функция

Описание параметра функции:

Стройте: строка для замены

Параметры: savetf: Сохранить файл, false не сохраняет, истинно сохранить

Параметры: Tisturl: текущий адрес веб -страницы

Приведенное выше код для замены ASP и сохранения функции удаленного изображения, я надеюсь, что это будет полезно для каждого обучения.

Связанные статьи