自动将远程页面的文件中的图片下载到本地服务器

服务器|下载|页面

* written by Jaron ,2003-11-12 */
/* 原出处:CSDN文档中心 http://www.csdn.net/develop WEB技术中文网 http://www.jaron.cn */
/* 转载请注明出处和保留此版权信息 */
/* 欢迎使用SiteManager-CMS Server 网站管理系统 http://sitemanager.cnzone.net */
/* 自动创建目录,自动将原文件名更名,文件格式的限制以及其他功能的一些优化
/* 自动保存网页文件中 http://.... 格式的图片到本地

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

'将下文保存为 save2local.asp
'测试:save2local.asp?url=http://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 = "http://.+? "
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

时间: 2024-02-28 17:44:35

自动将远程页面的文件中的图片下载到本地服务器的相关文章

PPT文件中的图片和文字怎么做成一张图?

  PPT文件中的图片和文字怎么做成一张图?           1.打开ppt,在上部工具栏中,点击"插入--图片--来自文件". 2.在插入图片对话框中,按照图片存放的路径,选中图片,点击插入. 3.点击"插入--文本框--水平",在ppt页面上划出文本框,并在里面输入文字. 4.选中图片,右击鼠标,选择"叠放次序--置于底层",将文本框移动到图片上面. 5.调整好文字,再调整好图片和文字的关系,然后按住Ctrl键,选中文本框和图片,右击鼠标

excel图片-C# 获取Excel文件中的图片。是否需要第三方类库

问题描述 C# 获取Excel文件中的图片.是否需要第三方类库 要用C#程序做一个商品资料导入功能. Excel文件中有商品图片.商品图片所在的列是固定的,如何获取第一行的图片呢. 解决方案 微软的操作office的dll就行,或者NPIO 解决方案二: C#操作excel(读取excel里的图片并show在页面上) http://www.cnblogs.com/MR_ke/archive/2010/03/08/1680576.html

PHP下载CSS文件中的图片的代码

     作为一个资深并且专业的扒皮人员,在我从初三开始投入伟大的互联网中到现在积累了丰富的扒皮经验.我相信每个做web的程序员也都会有类似的经历.     在扒皮过程中,必不可少的需要下载样式文件中的图片.碰到比较庞大的样式文件,其中可能会有上百个需要下载的图片,那么使用下面这段小代码是最为合适的了. < ?php /* More & Original PHP Framwork Copyright (c) 2007 - 2008 IsMole Inc. Author: kimi Docum

PHP下载CSS文件中的图片

作为一个资深并且专业的扒皮人员,在我从初三开始投入伟大的互联网中到现在积累了丰富的扒皮经验.我相信每个做web的程序员也都会有类似的经历.在扒皮过程中,必不可少的需要下载样式文件中的图片.碰到比较庞大的样式文件,其中可能会有上百个需要下载的图片,那么使用下面这段小代码是最为合适的了. 作为一个资深并且专业的扒皮人员,在我从初三开始投入伟大的互联网中到现在积累了丰富的扒皮经验.我相信每个做web的程序员也都会有类似的经历. 在扒皮过程中,必不可少的需要下载样式文件中的图片.碰到比较庞大的样式文件,

android-无法打开asset文件中的图片

问题描述 无法打开asset文件中的图片 如题所说,无法打开asset文件夹中的图片: public static final String CONTENT_URI = "file:///android:asset/"; Uri tmp = Uri.parse(CONTENT_URI + s); holder.image.setImageURI(tmp); 用了很多语法,但是都检测不到asset .总是报resolveUri errors . s是一个字符串,比如hears.png,位

使用PHP实现下载CSS文件中的图片_php实例

作为一个资深并且专业的扒皮人员,在我从初三开始投入伟大的互联网中到现在积累了丰富的扒皮经验.我相信每个做web的程序员也都会有类似的经历. 在扒皮过程中,必不可少的需要下载样式文件中的图片.碰到比较庞大的样式文件,其中可能会有上百个需要下载的图片,那么使用下面这段小代码是最为合适的了. < ?php /* More & Original PHP Framwork Copyright (c) 2007 - 2008 IsMole Inc. Author: kimi Documentation:

我想知道怎样提取pdf文件中的图片,因为我想把pdf文件转换为doc,还有别的形式,可是利用pdfbox只能提取出文本来,希望大家提供点办法,急呀

问题描述 我想知道怎样提取pdf文件中的图片,因为我想把pdf文件转换为doc,还有别的形式,可是利用pdfbox只能提取出文本来,希望大家提供点办法,急 解决方案 解决方案二:你从网上下载个PDF转化DOC工具就得了啊,很多的,到处都是咧解决方案三:貌似使用adobe的打印到文件就可以转换成doc文件解决方案四:你从网上下载个PDF转化DOC工具

C#怎么获取DCM(DICOM)文件中的图片

问题描述 C#C#怎么获取DCM(DICOM)文件中的图片,求好心人提供下源代码参考 解决方案 解决方案二:医学影像?比较专业,百度找找看有无什么类库可以用吧.

用php实现的下载css文件中的图片的代码_php技巧

作为一个资深并且专业的扒皮人员,在我从初三开始投入伟大的互联网中到现在积累了丰富的扒皮经验.我相信每个做web的程序员也都会有类似的经历. 在扒皮过程中,必不可少的需要下载样式文件中的图片.碰到比较庞大的样式文件,其中可能会有上百个需要下载的图片,那么使用下面这段小代码是最为合适的了. 复制代码 代码如下: < ?php /* More & Original PHP Framwork Copyright (c) 2007 - 2008 IsMole Inc. Author: kimi Doc