Inicio>Tutorial de programación de red>Tutorial ASP

Reemplazo de ASP y ahorro de código de implementación de imagen remota

Autor：Eve Cole Fecha de actualización：2025-03-12 17:48:02

Este artículo comparte principalmente el código de funciones para el reemplazo de ASP y el ahorro de imágenes remotas.

ASP utiliza funciones para reemplazar y guardar imágenes remotas, completar las funciones de recopilar y extraer imágenes automáticamente, juzgar automáticamente repetir imágenes en la función, analizar de manera inteligente la ruta del enlace y convertirla en una dirección relativa y guardarla en el directorio de sitios web usted. especificado. Al mismo tiempo, este código también es una función de procesamiento importante en el programa de colección.

  1. FunctionRePlacesSaveremoteFile (Constr, StrinStallDir, Strchanneldir, Savetf, Tisturl)
  2. Ifconstr = $ false $ orconstr = orstrinstallDir = orstrchanneldir = entonces entonces
  3. ReemplazarveremoteFile = constructor
  4. Extinción
  5. Endif
  6. DimTempstr, Temptr2, Temptr3, RE, Matches, Match, Tempppi, TempArray, TempArray2
  7. Setre = newregexp
  8. Re.ignorecase = True
  9. Re.global = verdadero
  10. Re.pattern =]>>
  11. SetMatches = re.execute (construcción)
  12. Foreachmatchinmatches
  13. Iftempstr <> entonces
  14. Temptr = tempttr & $ array $ & match.Value
  15. Demás
  16. Tempttr = match.Value
  17. Endif
  18. Próximo
  19. Iftempstr <> entonces
  20. TempArray = Split (Temptrtr, $ Array $)
  21. Tempttr =
  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 <> entonces
  27. Temptr = tempttr & $ array $ & match.Value
  28. Demás
  29. Tempttr = match.Value
  30. Endif
  31. Próximo
  32. Próximo
  33. Endif
  34. Iftempstr <> entonces
  35. Re.pattern = src/s*=/s*
  36. Tempttr = re.replace (tempttr,)
  37. Endif
  38. SetMatches = nada
  39. Setre = nada
  40. Iftempstr = orisNull (tempttr) = trueThen
  41. ReemplazarveremoteFile = constructor
  42. Extinción
  43. Endif
  44. Tempttr = reemplazar (tempttr ,,)
  45. Tempttr = reemplazar (tempttr, ',)
  46. Tempttr = reemplazar (tempttr ,,)
  47. DIMREMOTFILEURL, SAVEPATH, PATHTemp, DTNOW, STRFILENAME, STRFILETYPE, ARRSAVEFILENAME, RANNUM, ARR_PATH
  48. Dtnow = ahora ()
  49. Ifsavetf = Truethen
  50. SavePath = strchanneldir &/y año (dtnow) y derecha (0 y mes (dtnow), 2) &////
  51. Respuesta. Ruta de enlace de escritura: & SavePath &
  52. Arr_path = split (savePath,/)
  53. Pathtemp =
  54. Fortempi = 0toUbound (arr_path)
  55. Iftempi = 0then
  56. Pathtemp = arr_path (0) &/
  57. A lourfeMpi = Ubound (arr_path) entonces
  58. Salir
  59. Demás
  60. Pathtemp = pathtemp & arr_path (tempi) &//
  61. Endif
  62. Ifcheckdir (pathtemp) = falsethen
  63. IfMakenewsDir (Pathtemp) = falsethen
  64. Savetf = falso
  65. Salir
  66. Endif
  67. Endif
  68. Próximo
  69. Endif
  70. 'Eliminar imágenes duplicadas
  71. TempArray = Split (Temptrtr, $ Array $)
  72. Tempttr =
  73. Fortempi = 0toubound (temparray)
  74. Ifinstr (lcase (tempttr), lcase (tempray (temppi))) <1Then
  75. TEMPRTR = TEMPRESTR & $ ARRAY $ & TEMPARRAY (TEMPPI)
  76. Endif
  77. Próximo
  78. Tempttr = right (temptr, len (temptr) -7)
  79. TempArray = Split (Temptrtr, $ Array $)
  80. 'Convertir la dirección de la imagen relativa
  81. Tempttr =
  82. Fortempi = 0toubound (temparray)
  83. TEMPRTR = TEMPREST & $ Array $ y definititeUrl (TempArray (Temppi), Tisturl)
  84. Próximo
  85. Tempttr = right (temptr, len (temptr) -7)
  86. Tempttr = reemplazar (tempttr, chr (0),)
  87. TEMPArray2 = Split (TEMPRTR, $ Array $)
  88. Tempttr =
  89. 'Reemplazo/guardado de la imagen
  90. Setre = newregexp
  91. Re.ignorecase = True
  92. Re.global = verdadero
  93. Fortempi = 0toubound (temparray2)
  94. RemoteFileUrl = TempArray2 (Tempi)
  95. IfremoteFileUrl <> $ false $ andsavetf = TRUETHEN'SAVE Imagen
  96. ArrsaveFileName = Split (RemoteFileUrl ,.)
  97. strfileType = lcase (arrsaveFileName (Ubound (arrsaveFileName))) 'Tipo de archivo
  98. IfstrFileType = AspostrFileType = AsaorStrfileType = AspxorStrfileType = cerorStrfileType = cdxorStrfileType = exeorStrfileType = rarostrfileType = Zipthen
  99. Subeadfiles =
  100. ReemplazarveremoteFile = constructor
  101. Extinción
  102. Endif
  104. Aleatorizar
  105. Rannum = int (900*rnd) +100
  106. strfilename = año (dtnow) y derecha (0 y mes (dtnow), 2) & derecha (0 & día (dtnow), 2) y derecha (0 y hora (dtnow), 2) y derecha (0 & minuto (dtnow), 2) y derecha (0 y segundo (dtnow), 2 ) & Right (0 y segundo (dtnow), 2) & rannum &. & strfiletype
  107. Re.pattern = TempArray (Tempi)
  108. IfsaveremoteFile (SavePath & strfileName, RemoteFileUrl) = Truethen
  109. '**************************************
  110. Pathtemp = savePath & strfilename
  111. Constr = re.replace (Constr, Pathtemp)
  112. Re.pattern = strinstalldir & strchanneldir &/
  113. UploadFiles = uploadFiles & | & re.replace (SavePath & strFileName,)
  114. Demás
  115. Pathtemp = RemoteFileUrl
  116. Constr = re.replace (Constr, Pathtemp)
  117. 'UploadFiles = uploadFiles & | & RemoteFileUrl
  118. Endif
  119. ElsefremotefileUrl <> $ false $ ysavetf = falsethen 'no guarda la imagen
  120. Re.pattern = TempArray (Tempi)
  121. Constr = re.replace (construye, remoteFileUrl)
  122. UploadFiles = uploadFiles & | & RemoteFileUrl
  123. Endif
  124. Próximo
  125. Setre = nada
  126. Ifuploadfiles <> entonces
  127. UploadFiles = right (uploadfiles, len (uploadfiles) -1)
  128. Endif
  129. ReemplazarveremoteFile = constructor
  130. Función final

Descripción del parámetro de la función:

Construye: la cadena para reemplazar

Parámetros: saveTF: si se debe guardar el archivo, falso no se guarda, verdadero guardar

Parámetros: Tisturl: dirección actual de la página web

Lo anterior es el código para el reemplazo de ASP y el guardado de la función de imagen remota, espero que sea útil para el aprendizaje de todos.

Artículos relacionados