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

ASP通過函數(shù)來實現(xiàn)替換、保存遠程圖片，完成自動采集圖片、提取圖片的功能，函數(shù)中自動判斷重復(fù)圖片，智能分析鏈接路徑，并轉(zhuǎn)成成相對的圖片地址保存在你指定的網(wǎng)站目錄中，我們可將此函數(shù)用在后臺的編輯器中，當你復(fù)制了含有圖片的內(nèi)容后，本代碼會自動幫你上傳圖片。同時本代碼也是采集程序中的重要處理函數(shù)，函數(shù)代碼如下：

1. Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl) 
2. If ConStr="$False$" or ConStr="" or strInstallDir="" or strChannelDir="" Then 
3. ReplaceSaveRemoteFile=ConStr 
4. Exit Function 
5. End If 
6. Dim TempStr,TempStr2,TempStr3,Re,Matches,Match,Tempi,TempArray,TempArray2 
7. Set Re = New Regexp 
8. Re.IgnoreCase = True 
9. Re.Global = True 
10. Re.Pattern ="]>" 
11. Set Matches =Re.Execute(ConStr) 
12. For Each Match in Matches 
13. If TempStr<>"" then 
14. TempStr=TempStr & "$Array$" & Match.Value 
15. Else 
16. TempStr=Match.Value 
17. End if 
18. Next 
19. If TempStr<>"" Then 
20. TempArray=Split(TempStr,"$Array$") 
21. TempStr="" 
22. For Tempi=0 To Ubound(TempArray) 
23. Re.Pattern ="src/s*=/s*.+?/.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)" 
24. Set Matches =Re.Execute(TempArray(Tempi)) 
25. For Each Match in Matches 
26. If TempStr<>"" then 
27. TempStr=TempStr & "$Array$" & Match.Value 
28. Else 
29. TempStr=Match.Value 
30. End if 
31. Next 
32. Next 
33. End if 
34. If TempStr<>"" Then 
35. Re.Pattern ="src/s*=/s*" 
36. TempStr=Re.Replace(TempStr,"") 
37. End If 
38. Set Matches=nothing 
39. Set Re=nothing 
40. If TempStr="" or IsNull(TempStr)=True Then 
41. ReplaceSaveRemoteFile=ConStr 
42. Exit function 
43. End if 
44. TempStr=Replace(TempStr,"""","") 
45. TempStr=Replace(TempStr,"'","") 
46. TempStr=Replace(TempStr," ","") 
47. Dim RemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path 
48. DtNow=Now() 
49. If SaveTf=True then 
50. SavePath= strChannelDir & "/" & year(DtNow) & right("0" & month(DtNow),2) & "/" 
51. response.write "鏈接路徑：" & savepath & "" 
52. Arr_Path=Split(SavePath,"/") 
53. PathTemp="" 
54. For Tempi=0 To Ubound(Arr_Path) 
55. If Tempi=0 Then 
56. PathTemp=Arr_Path(0) & "/" 
57. ElseIf Tempi=Ubound(Arr_Path) Then 
58. Exit For 
59. Else 
60. PathTemp=PathTemp & Arr_Path(Tempi) & "/" 
61. End If 
62. If CheckDir(PathTemp)=False Then 
63. If MakeNewsDir(PathTemp)=False Then 
64. SaveTf=False 
65. Exit For 
66. End If 
67. End If 
68. Next 
69. End If 
70. '去掉重復(fù)圖片 
71. TempArray=Split(TempStr,"$Array$") 
72. TempStr="" 
73. For Tempi=0 To Ubound(TempArray) 
74. If Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1 Then 
75. TempStr=TempStr & "$Array$" & TempArray(Tempi) 
76. End If 
77. Next 
78. TempStr=Right(TempStr,Len(TempStr)-7) 
79. TempArray=Split(TempStr,"$Array$") 
80. '轉(zhuǎn)換相對圖片地址 
81. TempStr="" 
82. For Tempi=0 To Ubound(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. Set Re = New Regexp 
91. Re.IgnoreCase = True 
92. Re.Global = True 
93. For Tempi=0 To Ubound(TempArray2) 
94. RemoteFileUrl=TempArray2(Tempi) 
95. If RemoteFileUrl<>"$False$" And SaveTf=True Then'保存圖片 
96. ArrSaveFileName = Split(RemoteFileurl,".") 
97. strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))'文件類型 
98. If strFileType="asp" or strFileType="asa" or strFileType="aspx" or strFileType="cer" or strFileType="cdx" or strFileType="exe" or strFileType="rar" or strFileType="zip" then 
99. UploadFiles="" 
100. ReplaceSaveRemoteFile=ConStr 
101. Exit Function 
102. End If 
103.  
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. If SaveRemoteFile(SavePath & strFileName,RemoteFileUrl)=True Then 
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. End If 
119. ElseIf RemoteFileurl<>"$False$" and SaveTf=False Then'不保存圖片 
120. Re.Pattern =TempArray(Tempi) 
121. ConStr=Re.Replace(ConStr,RemoteFileUrl) 
122. UploadFiles=UploadFiles & "|" & RemoteFileUrl 
123. End If 
124. Next 
125. Set Re=nothing 
126. If UploadFiles<>"" Then 
127. UploadFiles=Right(UploadFiles,Len(UploadFiles)-1) 
128. End If 
129. ReplaceSaveRemoteFile=ConStr 
130. End function 

函數(shù)參數(shù)說明：

ConStr：要替換的字符串

參 數(shù)：SaveTf：是否保存文件，F(xiàn)alse不保存，True保存

參 數(shù): TistUrl：當前網(wǎng)頁地址

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