Asp把文章内容中涉及到的图片自动保存到本地服务器

最新推荐文章于 2024-09-15 22:36:10 发布

useruse

最新推荐文章于 2024-09-15 22:36:10 发布

阅读量263

点赞数

文章标签： asp url 服务器

本文链接：https://blog.csdn.net/useruse/article/details/3522672

版权

 
 <%
    const savepath="tempfile/"
    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(str)
    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
    end if
    set xmlhttp=nothing
    end function
%>
 