首頁>網絡編程教程>ASP教程

ASP替換、保存遠程圖片實現代碼

作者：Eve Cole 更新時間：2025-03-12 17:48:02

這篇文章主要分享了ASP替換、保存遠程圖片的函數代碼，需要的朋友可以參考下

ASP通過函數來實現替換、保存遠程圖片，完成自動採集圖片、提取圖片的功能，函數中自動判斷重複圖片，智能分析鏈接路徑，並轉成成相對的圖片地址保存在你指定的網站目錄中，我們可將此函數用在後台的編輯器中，當你複製了含有圖片的內容後，本代碼會自動幫你上傳圖片。同時本代碼也是採集程序中的重要處理函數，函數代碼如下：

  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,Tempi,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鏈接路徑：&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. '去掉重複圖片
  71. TempArray=Split(TempStr,$Array$)
  72. TempStr=
  73. ForTempi=0ToUbound(TempArray)
  74. IfInstr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1Then
  75. TempStr=TempStr&$Array$&TempArray(Tempi)
  76. EndIf
  77. Next
  78. TempStr=Right(TempStr,Len(TempStr)-7)
  79. TempArray=Split(TempStr,$Array$)
  80. '轉換相對圖片地址
  81. TempStr=
  82. ForTempi=0ToUbound(TempArray)
  83. TempStr=TempStr&$Array$&DefiniteUrl(TempArray(Tempi),TistUrl)
  84. Next
  85. TempStr=Right(TempStr,Len(TempStr)-7)
  86. TempStr=Replace(TempStr,Chr(0),)
  87. TempArray2=Split(TempStr,$Array$)
  88. TempStr=
  89. '圖片替換/保存
  90. SetRe=NewRegexp
  91. Re.IgnoreCase=True
  92. Re.Global=True
  93. ForTempi=0ToUbound(TempArray2)
  94. RemoteFileUrl=TempArray2(Tempi)
  95. IfRemoteFileUrl<>$False$AndSaveTf=TrueThen'保存圖片
  96. ArrSaveFileName=Split(RemoteFileurl,.)
  97. strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))'文件類型
  98. IfstrFileType=asporstrFileType=asaorstrFileType=aspxorstrFileType=cerorstrFileType=cdxorstrFileType=exeorstrFileType=rarorstrFileType=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 )&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'不保存圖片
  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

函數參數說明：

ConStr：要替換的字符串

參數：SaveTf：是否保存文件，False不保存，True保存

參數: TistUrl：當前網頁地址

以上就是ASP替換、保存遠程圖片函數代碼，希望對大家的學習有所幫助。

相關文章