主頁 > 知識庫 > ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼

ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼

熱門標(biāo)簽:重慶外呼電銷系統(tǒng)費(fèi)用 微信地圖標(biāo)注有什么用 電銷機(jī)器人一個(gè)多少錢 地圖標(biāo)注不完整被罰款 北京大興區(qū)地圖標(biāo)注 地圖標(biāo)注中心多少錢注冊 不封卡外呼系統(tǒng)一般多少錢 鄭州語音電銷機(jī)器人官網(wǎng) 濰坊呼叫中心外呼系統(tǒng)供應(yīng)商

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

Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)
If ConStr="$False$" or ConStr="" or strInstallDir="" or strChannelDir="" Then
ReplaceSaveRemoteFile=ConStr
Exit Function
End If
Dim TempStr,TempStr2,TempStr3,Re,Matches,Match,Tempi,TempArray,TempArray2
Set Re = New Regexp
Re.IgnoreCase = True
Re.Global = True
Re.Pattern ="]>"
Set Matches =Re.Execute(ConStr)
For Each Match in Matches
If TempStr>"" then
TempStr=TempStr  "$Array$"  Match.Value
Else
TempStr=Match.Value
End if
Next
If TempStr>"" Then
TempArray=Split(TempStr,"$Array$")
TempStr=""
For Tempi=0 To Ubound(TempArray)
Re.Pattern ="src\s*=\s*.+?\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)"
Set Matches =Re.Execute(TempArray(Tempi))
For Each Match in Matches
If TempStr>"" then
TempStr=TempStr  "$Array$"  Match.Value
Else
TempStr=Match.Value
End if
Next
Next
End if
If TempStr>"" Then
Re.Pattern ="src\s*=\s*"
TempStr=Re.Replace(TempStr,"")
End If
Set Matches=nothing
Set Re=nothing
If TempStr="" or IsNull(TempStr)=True Then
ReplaceSaveRemoteFile=ConStr
Exit function
End if
TempStr=Replace(TempStr,"""","")
TempStr=Replace(TempStr,"'","")
TempStr=Replace(TempStr," ","")
Dim RemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path
DtNow=Now()
If SaveTf=True then
SavePath= strChannelDir  "/"  year(DtNow)  right("0"  month(DtNow),2)  "/"
  response.write "鏈接路徑:"  savepath  ""
Arr_Path=Split(SavePath,"/")
PathTemp=""
For Tempi=0 To Ubound(Arr_Path)
If Tempi=0 Then
PathTemp=Arr_Path(0)  "/"
ElseIf Tempi=Ubound(Arr_Path) Then
Exit For
Else
PathTemp=PathTemp  Arr_Path(Tempi)  "/"
End If
If CheckDir(PathTemp)=False Then
If MakeNewsDir(PathTemp)=False Then
SaveTf=False
Exit For
End If
End If
Next
End If
'去掉重復(fù)圖片
TempArray=Split(TempStr,"$Array$")
TempStr=""
For Tempi=0 To Ubound(TempArray)
If Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))1 Then
TempStr=TempStr  "$Array$"  TempArray(Tempi)
End If
Next
TempStr=Right(TempStr,Len(TempStr)-7)
TempArray=Split(TempStr,"$Array$")
'轉(zhuǎn)換相對圖片地址
TempStr=""
For Tempi=0 To Ubound(TempArray)
TempStr=TempStr  "$Array$"  DefiniteUrl(TempArray(Tempi),TistUrl)
Next
TempStr=Right(TempStr,Len(TempStr)-7)
TempStr=Replace(TempStr,Chr(0),"")
TempArray2=Split(TempStr,"$Array$")
TempStr=""
'圖片替換/保存
Set Re = New Regexp
Re.IgnoreCase = True
Re.Global = True
For Tempi=0 To Ubound(TempArray2)
RemoteFileUrl=TempArray2(Tempi)
If RemoteFileUrl>"$False$" And SaveTf=True Then'保存圖片
ArrSaveFileName = Split(RemoteFileurl,".")
  strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))'文件類型
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
UploadFiles=""
ReplaceSaveRemoteFile=ConStr
Exit Function
End If

Randomize
RanNum=Int(900*Rnd)+100
  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
Re.Pattern =TempArray(Tempi)
  If SaveRemoteFile(SavePath  strFileName,RemoteFileUrl)=True Then
'********************************
PathTemp=SavePath  strFileName
ConStr=Re.Replace(ConStr,PathTemp)
Re.Pattern=strInstallDir  strChannelDir  "/"
UploadFiles=UploadFiles  "|"  Re.Replace(SavePath strFileName,"")
Else
PathTemp=RemoteFileUrl
ConStr=Re.Replace(ConStr,PathTemp)
'UploadFiles=UploadFiles  "|"  RemoteFileUrl
End If
ElseIf RemoteFileurl>"$False$" and SaveTf=False Then'不保存圖片
Re.Pattern =TempArray(Tempi)
ConStr=Re.Replace(ConStr,RemoteFileUrl)
UploadFiles=UploadFiles  "|"  RemoteFileUrl
End If
Next
Set Re=nothing
If UploadFiles>"" Then
UploadFiles=Right(UploadFiles,Len(UploadFiles)-1)
End If
ReplaceSaveRemoteFile=ConStr
End function

函數(shù)參數(shù)說明:
ConStr:要替換的字符串
參 數(shù):SaveTf:是否保存文件,F(xiàn)alse不保存,True保存
參 數(shù): TistUrl:當(dāng)前網(wǎng)頁地址

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

您可能感興趣的文章:
  • asp常用的正則表達(dá)式實(shí)現(xiàn)字符串的替換
  • asp+Access通用的自動替換數(shù)據(jù)庫中的字符串
  • ASP正則函數(shù)替換分頁后的參數(shù)
  • asp 圖片正則 替換,替換前檢查圖片是不是本地地址的方法
  • asp.net高效替換大容量字符實(shí)現(xiàn)代碼
  • asp.net(c#)判斷遠(yuǎn)程圖片是否存在
  • asp.net保存遠(yuǎn)程圖片的代碼
  • ASP保存遠(yuǎn)程圖片到本地 同時(shí)取得第一張圖片并創(chuàng)建縮略圖的代碼

標(biāo)簽:撫州 唐山 佛山 鶴崗 汕頭 攀枝花 揭陽 海南

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼》,本文關(guān)鍵詞  ASP,替換,保存,遠(yuǎn)程,圖片,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章