Página Inicial>Tutorial de programação de redes>Tutorial ASP

Substituição ASP e Salvar Código de Implementação de Imagem Remota

Autor：Eve Cole Data da Última Atualização：2025-03-12 17:48:02

Este artigo compartilha principalmente o código da função para a substituição e salvamento de imagens remotas.

O ASP usa funções para substituir e salvar figuras remotas, completar as funções de coleta e extrair imagens automaticamente, julgar automaticamente repetir imagens na função, analisar de forma inteligente o caminho do link e convertê -lo em um endereço de imagem relativo e salvá -lo no diretório do site que você Especificado. Ao mesmo tempo, esse código também é uma função de processamento importante no programa de coleta.

  1. FunctionReplacesveroteroteFile (Constr, Strinstalldir, Strchanneldir, Savetf, Tisturl)
  2. IfConstr = $ false $ orconstr = orStrInstalldir = orstrchanneldir = então
  3. SubstituaveroteroteFile = Constr
  4. Saída de saída
  5. Endif
  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 (constr)
  12. ForeachMatchinMatches
  13. Iftempstr <> então
  14. Tempstr = tempstr & $ array $ & match.value
  15. Outro
  16. Tempstr = match.value
  17. Endif
  18. Próximo
  19. Iftempstr <> então
  20. Temparray = split (tempstr, $ array $)
  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 <> então
  27. Tempstr = tempstr & $ array $ & match.value
  28. Outro
  29. Tempstr = match.value
  30. Endif
  31. Próximo
  32. Próximo
  33. Endif
  34. Iftempstr <> então
  35. Re.pattern = src/s*=/s*
  36. Tempstr = re.Replace (tempstr,)
  37. Endif
  38. SetMatches = nada
  39. Setre = nada
  40. Iftempstr = orisnull (tempstr) = truethen
  41. SubstituaveroteroteFile = Constr
  42. Saída de saída
  43. Endif
  44. Tempstr = substituir (tempstr ,,)
  45. Tempstr = substituir (tempstr, ',)
  46. Tempstr = substituir (tempstr ,,)
  47. DimRemoteFileurl, SavePath, PathTemp, dtnow, strfilename, strfileType, arsaveFileName, rannum, ARR_PATH
  48. Dtnow = agora ()
  49. IfSavetf = Truethen
  50. SavePath = strChanneldir &/& Year (dtnow) & Right (0 e mês (dtnow), 2) &/
  51. Caminho do link da resposta.write: & salvath &
  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) então
  58. Exitfor
  59. Outro
  60. PathTemp = PathTemp & ARR_Path (Tempi) &/
  61. Endif
  62. Ifcheckdir (pathTemp) = falseten
  63. Ifmakenewsdir (pathtemp) = falseten
  64. Savetf = false
  65. Exitfor
  66. Endif
  67. Endif
  68. Próximo
  69. Endif
  70. 'Remova as imagens duplicadas
  71. Temparray = split (tempstr, $ array $)
  72. Tempstr =
  73. Fortempi = 0Toubound (Temparray)
  74. Ifinstr (lcase (tempstr), lcase (temparray (temppi))) <1then
  75. Tempstr = tempstr & $ array $ & temparray (temppi)
  76. Endif
  77. Próximo
  78. Tempstr = direita (tempstr, len (tempstr) -7)
  79. Temparray = split (tempstr, $ array $)
  80. 'Converter endereço de imagem relativa
  81. Tempstr =
  82. Fortempi = 0Toubound (Temparray)
  83. Tempstr = tempstr & $ array $ e definitário (temparray (temppi), tisturl)
  84. Próximo
  85. Tempstr = direita (tempstr, len (tempstr) -7)
  86. Tempstr = substituir (tempstr, chr (0),)
  87. Temparray2 = split (tempstr, $ array $)
  88. Tempstr =
  89. 'Substituição de imagem/salvar
  90. Setre = newRegexp
  91. Re.IGNORECASE = true
  92. Re.global = true
  93. Fortempi = 0Toubound (Temparray2)
  94. RemoteFileurl = Temparray2 (Tempi)
  95. IfRemoteFileurl <> $ false $ eSavetf = imagem de Truethen
  96. ArrSaveFilename = Split (RemoteFileurl ,.)
  97. strFileType = lcase (arsaveFileName (ubound (arsaveFileName))) 'tipo de arquivo
  98. Ifstrfiletype = aspostrfiletype = ASAORSTRFILETYPE = ASPXORSTRFILETYPE = CERORSTRFILETYPE = CDXORSTRFILETYPE = exEorStrFilEType = rarostrFilEType = zipthen
  99. Uploadfiles =
  100. SubstituaveroteroteFile = Constr
  101. Saída de saída
  102. Endif
  104. Randomizar
  105. Rannum = int (900*rnd) +100
  106. strfilename = ano (dtnow) e direita (0 e mês (dtnow), 2) e direita (0 & dia (dtnow), 2) e direita (0 & hour (dtnow), 2) e direita (0 & minuto (dtnow), 2) e direita (0 & segundo (dtnow), 2 ) & Right (0 & Second (dtnow), 2) e Rannum &. & strfileType
  107. Re.pattern = temparray (tempi)
  108. IfsaveRemoteFile (SAVEPATH & STRFILENAME, RemoteFileurl) = Truethen
  109. '************************************
  110. PathTemp = SavePath & StrfileName
  111. Construção = re.Replace (construt, pathtemp)
  112. Re.pattern = strinstalldir & strchanneldir &//////////////
  113. Uploadfiles = uploadfiles & | & re.Replace (salvApath & strfileName,)
  114. Outro
  115. PathTemp = RemoteFileurl
  116. Construção = re.Replace (construt, pathtemp)
  117. 'Uploadfiles = uploadfiles & | & remotefileurl
  118. Endif
  119. ElseifRemoteFileurl <> $ false $ eSavetf = falsethen 'não salva a imagem
  120. Re.pattern = temparray (tempi)
  121. Constr = re.Replace (construt, remotefileurl)
  122. Uploadfiles = uploadfiles & | & remotefileurl
  123. Endif
  124. Próximo
  125. Setre = nada
  126. Ifuploadfiles <> então
  127. Uploadfiles = à direita (Filme de upload, len (uploadfiles) -1)
  128. Endif
  129. SubstituaveroteroteFile = Constr
  130. Função final

Função Parâmetro Descrição:

Construt: a string para substituir

Parâmetros: Savetf: Se deve salvar o arquivo, False não salva, verdadeiro salvar

Parâmetros: Tisturl: endereço da página atual

O exposto acima é o código para a substituição do ASP e salvar a função de imagem remota, espero que seja útil para o aprendizado de todos.

Artigos Relacionados