asp用正则解析远程图片地址,用XMLHTTP将其保存(2)
时间:2007-10-26 12:34:00
二,使用XMLHTTP下载图片并保存在服务器上。这个又可以分为两个步骤:一个是取得图片的内容,另一个是保存在服务器上。取得图片的内容是通过下面的函数来实现的:
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")‘使用xmlhttp的方法来获得图片的内容
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
取得了图片的内容要保存,给人一种感觉是用FSO来作就可以了,但实际上不行,这样保存程序就会出错,因为FSO不支持流式的文件,所以我们要调用另一个对象:ADO.STREM。具体的过程如下:
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)'取得图片的具休内容的过程
Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象,必须要ADO 2.5以上版本
objStream.Type =1'以二进制模式打开
objStream.Open
objstream.write imgs'将字符串内容写入缓冲
objstream.SaveToFile server.mappath(tofile),2'-将缓冲的内容写入文件
objstream.Close()'关闭对象
set objstream=nothing
end function
所以只要用一个循环来把刚才取得的地址中的图片全部保存下来,具体过程如下:
arrimg=split(retstr,"||")'分割字串,取得里面地址列表
allimg=""
newimg=""
for i=1 to ubound(arrimg)
if arrimg(i)<>"" and instr(allimg,arrimg(i))<1 then'看这个图片是否已经下载过
fname=baseurl&cstr(i&mid(arrimg(i),instrrev(arrimg(i),".")))
saveimage(arrimg(i),fname)‘保存地址的函数,过程见上面
allimg=allimg&"||"&arrimg(i)'把保存下来的图片的地址串回起来,以确定要替换的地址
newimg=newimg&"||"&fname'把本地的地址串回起来
end if
next
第三步就是替换原来的地址了。具体的过程就是下面了:
arrnew=split(newimg,"||")'取得原来的图片地址列表
arrall=split(allimg,"||")'取得已经保存下来的图片的地址列表
for i=1 to ubound(arrnew)'执行循环替换原来的地址
strs=replace(strs,arrall(i),arrnew(i))
next
cctv=strs
讲到这里,这个函数的基本过程就是这样了,当然可以对它进行改造就可以实现更多的功能,如:加上图片大小的限制,加上对本地机上的图片下载的限制,以免造成重复下载图片。同时也应该看到这个函数的不足之处是只能处理静态的图片文件,不能适用程序生成的图片。
标签:远程,图片,正则,XMLHTTP
0
投稿
猜你喜欢
python实现书法碑帖图片分割
2023-09-12 16:08:02
Python使用pycharm导入pymysql教程
2024-01-17 22:47:49
利用XMLHTTP批量生成静态页的函数
2008-09-10 11:07:00
Python+Matplotlib实现给图像添加文本标签与注释
2022-05-02 12:40:16
python网络爬虫基于selenium爬取斗鱼直播信息
2023-03-05 09:33:19
python sys.stdin和sys.stdout的用法说明
2022-04-05 07:35:29
python求解三角形第三边长实例
2021-08-24 06:16:28
python虚拟环境的安装配置图文教程
2023-09-23 09:03:04
Python命令行解析器argparse详解
2023-06-14 01:08:14
Python光学仿真理解Jones矩阵学习
2022-03-10 21:11:39
Python面向对象实现方法总结
2022-03-11 08:50:41
Python全栈之列表数据类型详解
2023-05-05 15:27:10
Kubernetes上使用Jaeger分布式追踪基础设施详解
2024-05-29 22:08:52
Python实现LRU算法的2种方法
2021-10-19 11:30:32
网页中常用数字/字母序号与代码对照表
2009-03-19 14:00:00
mysql myisam 优化设置设置
2024-01-15 11:04:52
Oracle 数据库优化实战心得总结
2024-01-18 22:05:54
SQL2005 四个排名函数(row_number、rank、dense_rank和ntile)的比较
2024-01-18 02:47:08
go语言开发环境安装及第一个go程序(推荐)
2024-05-05 09:34:22
Python实现自动装机功能案例分析
2022-05-16 12:35:48