Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP -Ersatz und Speichern von Remote -Image -Implementierungscode

Autor：Eve Cole Aktualisierungszeit：2025-03-12 17:48:02

Dieser Artikel teilt hauptsächlich den Funktionscode für ASP -Ersatz und Speichern von Remote -Bildern.

ASP verwendet Funktionen, um Remote -Bilder zu ersetzen und zu speichern, die Funktionen des automatischen Sammelns und Extrahierens von Bildern zu vervollständigen, die Wiederholungsbilder in der Funktion automatisch zu beurteilen, den Linkpfad intelligent zu analysieren und sie in eine relative Bildadresse umzuwandeln und im Website -Verzeichnis, das Sie haben angegeben. Gleichzeitig ist dieser Code auch eine wichtige Verarbeitungsfunktion im Sammelprogramm.

  1. FunktionReplaceSaveremoteFile (Const, Strinstalldir, StrChanneldir, Savetf, Tisturl)
  2. Ifconst = $ false $ orconstr = orstrinstalldir = orstrCanneldir = dann
  3. ErsetzteremoteFile = Const
  4. Ausgangsfunktion
  5. Endif
  6. Dimtempstr, tempstr2, tempstr3, re, Matches, Match, Temppi, Temparray, Temparray2
  7. Setre = newRegexp
  8. Re.Innorecase = true
  9. Re.global = true
  10. Re.Pattern =]>
  11. SetMatches = re.execute (Const)
  12. ForeachMatchInmatches
  13. Iftempstr <> dann
  14. Tempstr = tempstr & $ array $ & match.value
  15. Anders
  16. Tempstr = match.Value
  17. Endif
  18. Nächste
  19. Iftempstr <> dann
  20. Temparray = split (tempstr, $ array $)
  21. Tempstr =
  22. Fortempi = 0Toubund (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 <> dann
  27. Tempstr = tempstr & $ array $ & match.value
  28. Anders
  29. Tempstr = match.Value
  30. Endif
  31. Nächste
  32. Nächste
  33. Endif
  34. Iftempstr <> dann
  35. Re.Pattern = src/s*=/s*
  36. Tempstr = re.Replace (tempstr,)
  37. Endif
  38. SetMatches = nichts
  39. Setre = nichts
  40. Iftempstr = orisnull (tempstr) = truethen
  41. ErsetzteremoteFile = Const
  42. Ausgangsfunktion
  43. Endif
  44. Tempstr = ersetzen (tempstr ,,)
  45. Tempstr = ersetzen (tempstr, ',)
  46. Tempstr = ersetzen (tempstr ,,)
  47. DiMremoteFileurl, SavePath, PathTemp, Dtnow, StrFileName, Strfiletype, arrsavefileName, Rannum, arr_path
  48. Dtnow = jetzt ()
  49. IfSavetf = Truethen
  50. SAVEPADE = strChanneldir &/& Jahr (dtnow) & rechts (0 & Monat (dtnow), 2) &/
  51. response.write link path: & savePath & savepath &
  52. Arr_path = split (savePath,/)
  53. PathTemp =
  54. Fortempi = 0Toubund (arr_path)
  55. Iftempi = 0Then
  56. PathTemp = arr_path (0) &/
  57. Andertiftempi = Ubound (arr_path) dann
  58. Ausgehen
  59. Anders
  60. PathTemp = pathTemp & arr_path (tempi) &/
  61. Endif
  62. Ifcheckdir (pathTemp) = falsethen
  63. IfMakenewsdir (pathTemp) = falsethen
  64. Savetf = false
  65. Ausgehen
  66. Endif
  67. Endif
  68. Nächste
  69. Endif
  70. 'Entfernen Sie doppelte Bilder
  71. Temparray = split (tempstr, $ array $)
  72. Tempstr =
  73. Fortempi = 0Toubund (Temparray)
  74. IFInstr (Lase (Tempstr), Lase (Temparray (temppi)) <1Then
  75. Tempstr = tempstr & $ array $ & temparray (temppi)
  76. Endif
  77. Nächste
  78. Tempstr = rechts (tempstr, len (tempstr) -7)
  79. Temparray = split (tempstr, $ array $)
  80. 'Konvertieren Sie die relative Bildadresse
  81. Tempstr =
  82. Fortempi = 0Toubund (Temparray)
  83. Tempstr = tempstr & $ array $ & DefiniteUrl (Temparray (Temppi), Tisturl)
  84. Nächste
  85. Tempstr = rechts (tempstr, len (tempstr) -7)
  86. Tempstr = ersetzen (tempstr, chr (0),)
  87. Temparray2 = split (tempstr, $ array $)
  88. Tempstr =
  89. 'Bildersatz/Speichern
  90. Setre = newRegexp
  91. Re.Innorecase = true
  92. Re.global = true
  93. Fortempi = 0Toubund (Temparray2)
  94. RemoteFileurl = temparray2 (tempi)
  95. IfremoteFileurl <> $ false $ und Savetf = Truethen'save Bild
  96. ArrsavefileName = split (remoteFileurl ,.)
  97. strFiletype = lase (arrsavefileName (UBOUND (arrSavefileName)) 'Dateityp
  98. IfstrFiletype = AspoStrFiletype = ASaorStrafiletype = AspxorStrafiletype = CerorStrafiletype = CDXorStrafiletype = exeorstrFiletype = raroStrafiletype = Zipthen
  99. Uploadfiles =
  100. ErsetzteremoteFile = Const
  101. Ausgangsfunktion
  102. Endif
  104. Randomisieren
  105. Rannum = int (900*rnd) +100
  106. StrFilename = Jahr (dtnow) & rechts (0 & Monat (dtnow), 2) & rechts (0 & tag (dtnow), 2) & rechts (0 & stündlich (dtnow), 2) & rechts (0 & minute (dtnow), 2) & rechts (0 & Second (dtnow), 2 ) & rechts (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 (Const, PathTemp)
  112. Re.Pattern = strinstalldir & strchanneldir &/
  113. UploadFiles = UploadFiles & | & Re.Replace (SavePath & Strafilename,)
  114. Anders
  115. PathTemp = remoteFileurl
  116. Const = Re.Replace (Const, PathTemp)
  117. 'UploadFiles = UploadFiles & | & remoteFileurl
  118. Endif
  119. ElseIfremoteFileurl <> $ false $ andSavetf = falsethen 'speichert das Bild nicht
  120. Re.Pattern = temparray (tempi)
  121. Const = Re.Replace (Const, RemoteFileurl)
  122. UploadFiles = UploadFiles & | & remoteFileurl
  123. Endif
  124. Nächste
  125. Setre = nichts
  126. IfUploadFiles <> dann
  127. Uploadfiles = rechts (Uploadfiles, Len (Uploadfiles) -1)
  128. Endif
  129. ErsetzteremoteFile = Const
  130. Endfunktion

Funktionsparameter Beschreibung:

Const: Die zu ersetzende Zeichenfolge

Parameter: Savetf: Ob die Datei speichern, false speichert, wahr, speichern

Parameter: Tisturl: Aktuelle Webseitenadresse

Das obige ist der Code für ASP -Ersatz und Speichern von Remote -Bildfunktion. Ich hoffe, er wird für das Lernen aller hilfreich sein.

Ähnliche Artikel