欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

自动获得远程图片 #Writ

程序员文章站 2022-08-10 20:33:40
程序实现功能:自动将远程页面的文件中的图片下载到本地服务器 将下文保存为 save2local.测试:save2local.asp?url=https://ent.sina.com.cn/s/m/2...

程序实现功能:自动将远程页面的文件中的图片下载到本地服务器

将下文保存为 save2local.
测试:save2local.asp?url=https://ent.sina.com.cn/s/m/2003-11-11/1411231388.html

<%
参数设置开始
url =  request("url")
localaddr = server.mappath("images_remote/") 保存到本地的目录
localdir = "images_remote/" http 访问的相对路径
allowfileext = "jpg|bmp|png|gif" 支持的文件名格式
参数设置完毕

if createdir(localaddr) = false then
 response.write "创建目录失败,请检查目录权限"
 response.end
end if
response.write convert2localaddr(url,localaddr,localdir)

function convert2localaddr(url,localaddr,localdir)
  参数说明
  url 页面地址
  localaddr 保存本地的物理地址
  localdir 相对路径
 strcontent = gethttppage(url)
 set objregexp = new regexp
 objregexp.ignorecase = true
 objregexp.global = true
 objregexp.pattern = "<img.+?>"
 set matches =objregexp.execute(strcontent)
 for each match in matches
  retstr = retstr & getremoteimages(match.value)
 next
 imagesarray=split(retstr,"||")
 remoteimage=""
 localimage=""
 for i=1 to ubound(imagesarray)
  if imagesarray(i)<>"" and instr(remoteimage,imagesarray(i))<1 then
   fname=baseurl&cstr(i&mid(imagesarray(i),instrrev(imagesarray(i),".")))
   imagesfilename = imagesarray(i)
   allowfileextarray = split(allowfileext,"|")
   isgetfile = false
   for tmp = 0 to ubound(allowfileextarray)
    if lcase(getfileext(imagesfilename)) = allowfileextarray(tmp) then
     isgetfile=true
    end if
   next
   if isgetfile = true then
    newfilename =  generaterandomfilename(fname)
    call save2local(imagesfilename,localaddr & "/" & newfilename)
    remoteimage=remoteimage&"||"& imagesfilename
    localimage=localimage&"||" & localdir & newfilename
   end if
  end if
 next
 arrnew=split(localimage,"||")
 arrall=split(remoteimage,"||")
 for i=1 to ubound(arrnew)
  strcontent=replace(strcontent,arrall(i),arrnew(i))
 next
 convert2localaddr = strcontent
end function

function getremoteimages(str)
 set objregexp1 = new regexp
 objregexp1.ignorecase = true
 objregexp1.global = true
 objregexp1.pattern = "https://.+? "
 set mm=objregexp1.execute(str)
 for each match1 in mm
  tmpaddr = left(match1.value,len(match1.value)-1)
  getremoteimages=getremoteimages&"||" & replace(replace(tmpaddr,"""",""),"","")
 next
end function

function gethttppage(url)
 on error resume next
 dim http
 set http=server.createobject("msxml2.xmlhttp")
 http.open "get",url,false
 http.send()
 if http.readystate<>4 then exit function
 gethttppage=bytes2bstr(http.responsebody)
 set http=nothing
 if err.number<>0 then err.clear 
end function

function bytes2bstr(vin)
 dim strreturn
 dim i,thischarcode,nextcharcode
 strreturn = ""
 for i = 1 to lenb(vin)
  thischarcode = ascb(midb(vin,i,1))
  if thischarcode < &h80 then
   strreturn = strreturn & chr(thischarcode)
  else
   nextcharcode = ascb(midb(vin,i+1,1))
   strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
   i = i + 1
  end if
 next
 bytes2bstr = strreturn
end function

function gethttpimg(url)
 on error resume next
 dim http
 set http=server.createobject("msxml2.xmlhttp")
 http.open "get",url,false
 http.send()
 if http.readystate<>4 then  exit function
 gethttpimg=http.responsebody
 set http=nothing
 if err.number<>0 then err.clear
end function

function save2local(from,tofile)
 dim geturl,objstream,imgs
 geturl=trim(from)
 imgs=gethttpimg(geturl)
 set objstream = server.createobject("adodb.stream")
 objstream.type =1
 objstream.open
 objstream.write imgs
 objstream.savetofile tofile,2
 objstream.close()
 set objstream=nothing
end function

function geturlencodel(byval url)中文文件名转换
 dim i,code
 geturlencodel=""
 if trim(url)="" then exit function
 for i=1 to len(url)
  code=asc(mid(url,i,1))
  if code<0 then code = code + 65536
  if code>255 then
   geturlencodel=geturlencodel&"%"&left(hex(code),2)&"%"&right(hex(code),2)
  else
   geturlencodel=geturlencodel&mid(url,i,1)
  end if
 next
end function

function generaterandomfilename(byval szfilename) 根据原文件名,自动以日期yyyy-mm-dd-random格式生成新文件名
    randomize
    rannum = int(90000 * rnd) + 10000
    if month(now) < 10 then c_month = "0" & month(now) else c_month = month(now)
    if day(now) < 10 then c_day = "0" & day(now) else c_day = day(now)
    if hour(now) < 10 then c_hour = "0" & hour(now) else c_hour = hour(now)
    if minute(now) < 10 then c_minute = "0" & minute(now) else c_minute = minute(now)
    if second(now) < 10 then c_second = "0" & second(now) else c_second = minute(now)
    fileext_a = split(szfilename, ".")
    fileext = lcase(fileext_a(ubound(fileext_a)))
    generaterandomfilename = year(now) & c_month & c_day & c_hour & c_minute & c_second & "_" & rannum & "." & fileext
end function

function createdir(byval localpath) 建立目录的程序,如果有多级目录,则一级一级的创建
    on error resume next
    localpath = replace(localpath, "", "/")
    set fileobject = server.createobject("scripting.filesystemobject")
    patharr = split(localpath, "/")
    path_level = ubound(patharr)
    for i = 0 to path_level
        if i = 0 then pathtmp = patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
        cpath = left(pathtmp, len(pathtmp) - 1)
        if not fileobject.folderexists(cpath) then fileobject.createfolder cpath
    next
    set fileobject = nothing
    if err.number <> 0 then
        createdir = false
        err.clear
    else
        createdir = true
    end if
end function

function getfileext(byval filename)
 fileext_a=split(filename,".")
 getfileext=lcase(fileext_a(ubound(fileext_a)))
end function
%>