Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP Remplacement et enregistrement du code d'implémentation d'image à distance

Auteur：Eve Cole Date de mise à jour：2025-03-12 17:48:02

Cet article partage principalement le code de fonction pour le remplacement d'ASP et la sauvegarde des images distantes.

ASP utilise des fonctions pour remplacer et enregistrer des images distantes, remplir les fonctions de la collecte et de l'extraction automatiquement des images, jugez automatiquement les images répétitives dans la fonction, analysez intelligemment le chemin de liaison et convertissez-la en une adresse d'image relative et enregistrez-la dans le répertoire du site Web vous spécifié. Nous pouvons utiliser cette fonction dans l'éditeur d'arrière-plan. En même temps, ce code est également une fonction de traitement importante dans le programme de collecte.

  1. FunctionReplaceSavelemotefile (CONSTR, strinstalldir, strChanneldir, Savetf, Tisturl)
  2. IfConstr = $ false $ oronstr = orstrinstalldir = orstrChanneldir = puis
  3. ReplaceSeemotefile = CONSTRAL
  4. Sortie
  5. Endire
  6. Dimtemptr, Temptr2, Temptr3, Re, Matches, Match, Temppi, Temparray, Temparray2
  7. SetRe = newRegexp
  8. Re.ignorecase = true
  9. Re.global = true
  10. Re.Pattern =]>
  11. Setmatches = re.execute (hent)
  12. Foreachmatchinmatches
  13. IfTemptr <> puis
  14. TEMPSTR = TEMPSTR & $ Array $ & Match.Value
  15. Autre
  16. Temptr = Match.Value
  17. Endire
  18. Suivant
  19. IfTemptr <> puis
  20. Temparray = Split (temptr, $ array $)
  21. Temptr =
  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. IfTemptr <> alors
  27. TEMPSTR = TEMPSTR & $ Array $ & Match.Value
  28. Autre
  29. Temptr = Match.Value
  30. Endire
  31. Suivant
  32. Suivant
  33. Endire
  34. IfTemptr <> alors
  35. Re.Pattern = src / s * = / s *
  36. Temptr = re.replace (TEMPSTR,)
  37. Endire
  38. Setmatches = rien
  39. Setdre = rien
  40. IfTemptr = orisnull (Temptr) = truethen
  41. ReplaceSeemotefile = CONSTRAL
  42. Sortie
  43. Endire
  44. Temptr = remplacer (temptr ,,)
  45. Temptr = remplacer (temptr, ',)
  46. Temptr = remplacer (temptr ,,)
  47. DimRemoteFileUrl, SavePath, PathTemp, Dtnow, StrFilename, StrFileType, ArrsaveFilename, Rannum, Arr_Path
  48. DtNow = maintenant ()
  49. Ifsavetf = truethen
  50. SavePath = strChanneldir & / & Year (dtnow) & droite (0 & mois (dtnow), 2) & / /
  51. Response.Write Link Path: & SavePath &
  52. Arr_path = split (sauvegarde, /)
  53. Pathtemp =
  54. Fortempi = 0Toubound (arr_path)
  55. IfTempi = 0Then
  56. PathTemp = arr_path (0) & /
  57. Elseitempi = ubound (ar_path) puis
  58. Sortie
  59. Autre
  60. PathTemp = pathTemp & ar_path (tempi) & /
  61. Endire
  62. IFCHECKDIR (PathTemp) = falsethhen
  63. IfMakenewsdir (pathtemp) = falsethhen
  64. SaveTf = false
  65. Sortie
  66. Endire
  67. Endire
  68. Suivant
  69. Endire
  70. 'Supprimer les images en double
  71. Temparray = Split (temptr, $ array $)
  72. Temptr =
  73. Fortempi = 0Toubound (temparray)
  74. IFinstr (lcase (temptr), lcase (temparray (temppi))) <1 the
  75. TEMPSTR = TEMPSTR & $ Array $ & temparray (Temppi)
  76. Endire
  77. Suivant
  78. Temptr = à droite (Temptr, Len (Temptr) -7)
  79. Temparray = Split (temptr, $ array $)
  80. 'Convertir l'adresse d'image relative
  81. Temptr =
  82. Fortempi = 0Toubound (temparray)
  83. TEMPSTR = TEMPSTR & $ Array $ & DefiteUrl (Temparray (Temppi), Tisturl)
  84. Suivant
  85. Temptr = à droite (Temptr, Len (Temptr) -7)
  86. TEMPSTR = remplacer (Temptr, Chr (0),)
  87. Temparray2 = Split (temptr, $ array $)
  88. Temptr =
  89. 'Remplacement d'image / sauvegarde
  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 Image
  96. ArrsaveFileName = Split (RemoteFileUrl ,.)
  97. strFileType = lCase (ArrsaveFileName (UBound (ArrsaveFileName))) 'Type de fichier
  98. IfStrfileType = aspostrFileType = asaorstrFileType = ASPXORSTRFILETYPE = CERORSTRFILETYPE = CDXORSTRFILETYPE = EXEORSTRFILETYPE = RAROSTRFILETYPE = ZIPTHEN
  99. Uploadfiles =
  100. ReplaceSeemotefile = CONSTRAL
  101. Sortie
  102. Endire
  104. Randomiser
  105. Rannum = int (900 * rnd) +100
  106. strFileName = Year (dtnow) & right (0 & mois (dtnow), 2) & droite (0 & day (dtnow), 2) & droite (0 & hour (dtnow), 2) & droite (0 & minute (dtnow), 2) & droite (0 & second (dtnow), 2 ) & à droite (0 & second (dtnow), 2) & rannum &. & strfiletype
  107. Re.Pattern = temparray (tempi)
  108. Ifsavelemotefile (SavePath & StrFilename, RemoteFileUrl) = truethen
  109. '************************************
  110. PathTemp = SavePath & strfilename
  111. Contr = Re.replace (CONSTR, PATHTEMP)
  112. Re.Pattern = strinstalldir & strChanneldir & /
  113. UploadFiles = uploadFiles & | & re.replace (SavePath & StrFileName,)
  114. Autre
  115. PathTemp = RemoteFileUrl
  116. Contr = Re.replace (CONSTR, PATHTEMP)
  117. 'UploadFiles = uploadFiles & | & RemoteFileUrl
  118. Endire
  119. ElseifremotefileUrl <> $ false $ andsavetf = falshehen 'n'économise pas l'image
  120. Re.Pattern = temparray (tempi)
  121. Contr = Re.replace (CONSTR, RemoteFileUrl)
  122. UploadFiles = uploadFiles & | & RemoteFileUrl
  123. Endire
  124. Suivant
  125. Setdre = rien
  126. Ifuploadfiles <> puis
  127. UploadFiles = Right (uploadFiles, Len (uploadFiles) -1)
  128. Endire
  129. ReplaceSeemotefile = CONSTRAL
  130. Finition de fin

Description du paramètre de fonction:

CONSTR: La chaîne à remplacer

Paramètres: SAVETF: Que ce soit pour enregistrer le fichier, False ne sauve pas, vrai sauvegarde

Paramètres: TISTURL: Adresse actuelle de la page Web

Ce qui précède est le code pour le remplacement ASP et l'enregistrement de la fonction d'image distante, j'espère que cela sera utile à l'apprentissage de tout le monde.

Articles connexes