自动保存远程图片

最新推荐文章于 2021-05-25 13:35:34 发布

aepoch

最新推荐文章于 2021-05-25 13:35:34 发布

阅读量785

点赞数

分类专栏： asp程序文章标签： function url each

本文链接：https://blog.csdn.net/aepoch/article/details/526066

版权

asp程序专栏收录该内容

1 篇文章 0 订阅

订阅专栏

<%
'设置图片保存路径
const savepath="temp/"

lnk_Count = Cint(Request.Form("xxx_COUNT"))
for i = 1 to lnk_Count
Content = Content & Request.Form("xxx" & "_" & i)
next

content=myreplace(Trim(Content))

function myreplace(str)
   newstr=str
   set objregEx = new RegExp
       objregEx.IgnoreCase = true
       objregEx.Global = true
       objregEx.Pattern = "http://(.+?)/.(jpg|gif|png|bmp)"
   set matches = objregEx.execute(newstr)
   for each match in matches
       newstr=replace(newstr,match.value,saveimg(match.value))
   next
   myreplace=newstr
end function

function saveimg(url)
temp=split(url,".")
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp))
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
    xmlhttp.open "get",url,false
    xmlhttp.send
    if xmlhttp.status<>200 then
        saveimg=""
    else
        img=xmlhttp.ResponseBody
        set objAdostream=server.createobject("ADODB.Stream")
            objAdostream.Open()
            objAdostream.type=1
            objAdostream.Write(img)
            objAdostream.SaveToFile(server.mappath(""&savepath&filename))
            objAdostream.SetEOS
        set objAdostream=nothing
        saveimg=savepath&filename
    end if
set xmlhttp=nothing
end function