首页>网络编程教程>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替换、保存远程图片函数代码，希望对大家的学习有所帮助。

相关文章