Home>Network programming tutorial>ASP tutorial

ASP replacement and saving remote image implementation code

Author：Eve Cole Update Time：2025-03-12 17:48:02

This article mainly shares the function code for ASP replacement and saving remote pictures. Friends who need it can refer to it

ASP uses functions to replace and save remote pictures, complete the functions of automatically collecting and extracting pictures, automatically judge repeating pictures in the function, intelligently analyze the link path, and convert it into a relative picture address and save it in the website directory you specified. We can use this function in the background editor. When you copy the content containing the picture, this code will automatically upload the picture for you. At the same time, this code is also an important processing function in the collection program. The function code is as follows:

  1. FunctionReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)
  2. IfConStr=$False$orConStr=orstrInstallDir=orstrChannelDir=Then
  3. ReplaceSaveRemoteFile=ConStr
  4. ExitFunction
  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<>then
  14. TempStr=TempStr&$Array$&Match.Value
  15. Else
  16. TempStr=Match.Value
  17. Endif
  18. Next
  19. IfTempStr<>Then
  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<>then
  27. TempStr=TempStr&$Array$&Match.Value
  28. Else
  29. TempStr=Match.Value
  30. Endif
  31. Next
  32. Next
  33. Endif
  34. IfTempStr<>Then
  35. Re.Pattern=src/s*=/s*
  36. TempStr=Re.Replace(TempStr,)
  37. EndIf
  38. SetMatches=nothing
  39. SetRe=nothing
  40. IfTempStr=orIsNull(TempStr)=TrueThen
  41. ReplaceSaveRemoteFile=ConStr
  42. Exitfunction
  43. Endif
  44. TempStr=Replace(TempStr,,)
  45. TempStr=Replace(TempStr,',)
  46. TempStr=Replace(TempStr,,)
  47. DimRemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path
  48. DtNow=Now()
  49. IfSaveTf=Truethen
  50. SavePath=strChannelDir&/&year(DtNow)&right(0&month(DtNow),2)&/
  51. response.write link path: &savepath&
  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)Then
  58. ExitFor
  59. Else
  60. PathTemp=PathTemp&Arr_Path(Tempi)&/
  61. EndIf
  62. IfCheckDir(PathTemp)=FalseThen
  63. IfMakeNewsDir(PathTemp)=FalseThen
  64. SaveTf=False
  65. ExitFor
  66. EndIf
  67. EndIf
  68. Next
  69. EndIf
  70. 'Remove duplicate pictures
  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. Next
  78. TempStr=Right(TempStr,Len(TempStr)-7)
  79. TempArray=Split(TempStr,$Array$)
  80. 'Convert relative picture address
  81. TempStr=
  82. ForTempi=0ToUbound(TempArray)
  83. TempStr=TempStr&$Array$&DefiniteUrl(TempArray(Temppi),TistUrl)
  84. Next
  85. TempStr=Right(TempStr,Len(TempStr)-7)
  86. TempStr=Replace(TempStr,Chr(0),)
  87. TempArray2=Split(TempStr,$Array$)
  88. TempStr=
  89. 'Image replacement/save
  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)))' file type
  98. IfstrFileType=aspostrFileType=asaorstrFileType=aspxorstrFileType=cerorstrFileType=cdxorstrFileType=exeorstrFileType=rarostrFileType=zipthen
  99. UploadFiles=
  100. ReplaceSaveRemoteFile=ConStr
  101. ExitFunction
  102. EndIf
  104. Randomize
  105. RanNum=Int(900*Rnd)+100
  106. strFileName=year(DtNow)&right(0&month(DtNow),2)&right(0&day(DtNow),2)&right(0&hour(DtNow),2)&right(0&minute(DtNow),2)&right(0&second(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. ConStr=Re.Replace(ConStr,PathTemp)
  112. Re.Pattern=strInstallDir&strChannelDir&/
  113. UploadFiles=UploadFiles&|&Re.Replace(SavePath&strFileName,)
  114. Else
  115. PathTemp=RemoteFileUrl
  116. ConStr=Re.Replace(ConStr,PathTemp)
  117. 'UploadFiles=UploadFiles&|&RemoteFileUrl
  118. EndIf
  119. ElseIfRemoteFileurl<>$False$andSaveTf=FalseThen' does not save the image
  120. Re.Pattern=TempArray(Tempi)
  121. ConStr=Re.Replace(ConStr,RemoteFileUrl)
  122. UploadFiles=UploadFiles&|&RemoteFileUrl
  123. EndIf
  124. Next
  125. SetRe=nothing
  126. IfUploadFiles<>Then
  127. UploadFiles=Right(UploadFiles,Len(UploadFiles)-1)
  128. EndIf
  129. ReplaceSaveRemoteFile=ConStr
  130. Endfunction

Function parameter description:

ConStr: The string to replace

Parameters: SaveTf: Whether to save the file, False does not save, True save

Parameters: TistUrl: Current web page address

The above is the code for ASP replacement and saving remote picture function, I hope it will be helpful to everyone's learning.

Related Articles