您正在使用IPV4(34.204.180.223)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建军节 3
2021年 七夕节 16
2022年 元 旦 156
2022年 春 节 187
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    ASP替换、保存远程图片实现代码
    内容摘要: FunctionReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)IfConStr='$False$'orConStr=''orstrInstallDir=''orstrChannelDir=''ThenReplaceSaveRemoteFile=ConStrExi......
    FunctionReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)

    IfConStr="$False$"orConStr=""orstrInstallDir=""orstrChannelDir=""Then

    ReplaceSaveRemoteFile=ConStr

    ExitFunction

    EndIf

    DimTempStr,TempStr2,TempStr3,Re,Matches,Match,Tempi,TempArray,TempArray2

    SetRe=NewRegexp

    Re.IgnoreCase=True

    Re.Global=True

    Re.Pattern="]>"

    SetMatches=Re.Execute(ConStr)

    ForEachMatchinMatches

    IfTempStr<>""then

    TempStr=TempStr&"$Array$"&Match.Value

    Else

    TempStr=Match.Value

    Endif

    Next

    IfTempStr<>""Then

    TempArray=Split(TempStr,"$Array$")

    TempStr=""

    ForTempi=0ToUbound(TempArray)

    Re.Pattern="src\s*=\s*.+?\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)"

    SetMatches=Re.Execute(TempArray(Tempi))

    ForEachMatchinMatches

    IfTempStr<>""then

    TempStr=TempStr&"$Array$"&Match.Value

    Else

    TempStr=Match.Value

    Endif

    Next

    Next

    Endif

    IfTempStr<>""Then

    Re.Pattern="src\s*=\s*"

    TempStr=Re.Replace(TempStr,"")

    EndIf

    SetMatches=nothing

    SetRe=nothing

    IfTempStr=""orIsNull(TempStr)=TrueThen

    ReplaceSaveRemoteFile=ConStr

    Exitfunction

    Endif

    TempStr=Replace(TempStr,"""","")

    TempStr=Replace(TempStr,"'","")

    TempStr=Replace(TempStr,"","")

    DimRemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path

    DtNow=Now()

    IfSaveTf=Truethen

    SavePath=strChannelDir&"/"&year(DtNow)&right("0"&month(DtNow),2)&"/"

    response.write"链接路径:"&savepath&""

    Arr_Path=Split(SavePath,"/")

    PathTemp=""

    ForTempi=0ToUbound(Arr_Path)

    IfTempi=0Then

    PathTemp=Arr_Path(0)&"/"

    ElseIfTempi=Ubound(Arr_Path)Then

    ExitFor

    Else

    PathTemp=PathTemp&Arr_Path(Tempi)&"/"

    EndIf

    IfCheckDir(PathTemp)=FalseThen

    IfMakeNewsDir(PathTemp)=FalseThen

    SaveTf=False

    ExitFor

    EndIf

    EndIf

    Next

    EndIf

    '去掉重复图片

    TempArray=Split(TempStr,"$Array$")

    TempStr=""

    ForTempi=0ToUbound(TempArray)

    IfInstr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1Then

    TempStr=TempStr&"$Array$"&TempArray(Tempi)

    EndIf

    Next

    TempStr=Right(TempStr,Len(TempStr)-7)

    TempArray=Split(TempStr,"$Array$")

    '转换相对图片地址

    TempStr=""

    ForTempi=0ToUbound(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=""

    '图片替换/保存

    SetRe=NewRegexp

    Re.IgnoreCase=True

    Re.Global=True

    ForTempi=0ToUbound(TempArray2)

    RemoteFileUrl=TempArray2(Tempi)

    IfRemoteFileUrl<>"$False$"AndSaveTf=TrueThen'保存图片

    ArrSaveFileName=Split(RemoteFileurl,".")

    strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))'文件类型

    IfstrFileType="asp"orstrFileType="asa"orstrFileType="aspx"orstrFileType="cer"orstrFileType="cdx"orstrFileType="exe"orstrFileType="rar"orstrFileType="zip"then

    UploadFiles=""

    ReplaceSaveRemoteFile=ConStr

    ExitFunction

    EndIf


    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)

    IfSaveRemoteFile(SavePath&strFileName,RemoteFileUrl)=TrueThen

    '********************************

    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

    EndIf

    ElseIfRemoteFileurl<>"$False$"andSaveTf=FalseThen'不保存图片

    Re.Pattern=TempArray(Tempi)

    ConStr=Re.Replace(ConStr,RemoteFileUrl)

    UploadFiles=UploadFiles&"|"&RemoteFileUrl

    EndIf

    Next

    SetRe=nothing

    IfUploadFiles<>""Then

    UploadFiles=Right(UploadFiles,Len(UploadFiles)-1)

    EndIf

    ReplaceSaveRemoteFile=ConStr

    Endfunction

    函数参数说明:

    ConStr:要替换的字符串

    参数:SaveTf:是否保存文件,False不保存,True保存

    参数:TistUrl:当前网页地址

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:asp读取xml实例代码 下一篇:asp导出excel文件最简单方便的方法
    发布日期:2021/7/21
    手机扫二维码直达本页
    发布时间:15:41:40
    点击:93
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021