欢迎您访问我爱IT技术网，今天小编为你分享的电脑教程是通过网络精心收集筛选的最优节选：“ASP自动解析网页中的图片地址”，请注意：文中所谈及的内容不代表本站的真正观点，也请不要相信各种联系方式。下面是关于网络上ASP自动解析网页中的图片地址的整理详细信息
本文发布时间:2016-04-14 13:42 编辑:勤奋者
精选教程
objRegExp.IgnoreCase=True’忽略大小写
objRegExp.Global=True’设置为全文搜索
objRegExp.Pattern=""'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的![]()
标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
For Each Match in Matches
?RetStr=RetStr &getimgs( Match.Value )’执行第二轮的匹配
Next
所有的图片在里面都是这样的src=http://jingyan.baidu.com/article/"http://图片的地址"，所以可以这样来取得确切的图片地址：
function getimgs(str)
getimgs=""
Set objRegExp1=New Regexp
objRegExp1.IgnoreCase=True
objRegExp1.Global=True
objRegExp1.Pattern="http://.+?"""’取出里面的地址
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&"||"&left(Match1.Value,len(Match1.Value)-1)’把里面的地址串起来备用
next
end function
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
取得了图片的内容要保存，保存过程在此不做赘述。
for i=1 to ubound(arrnew)'执行循环替换原来的地址
strs=replace(strs,arrall(i),arrnew(i))
next
cctv=strs
详细操作
取得原页中的图片的地址。正则匹配法
可以先取得所有这个标签。过程如下：
objRegExp.IgnoreCase=True’忽略大小写
objRegExp.Global=True’设置为全文搜索
objRegExp.Pattern="
strs=trim(str)
For Each Match in Matches
?RetStr=RetStr &getimgs( Match.Value )’执行第二轮的匹配
Next
所有的图片在里面都是这样的src=http://jingyan.baidu.com/article/"http://图片的地址"，所以可以这样来取得确切的图片地址：
function getimgs(str)
getimgs=""
Set objRegExp1=New Regexp
objRegExp1.IgnoreCase=True
objRegExp1.Global=True
objRegExp1.Pattern="http://.+?"""’取出里面的地址
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&"||"&left(Match1.Value,len(Match1.Value)-1)’把里面的地址串起来备用
next
end function
下载图片并保存在服务器上。
这个又可以分为两个步骤：一个是取得图片的内容，另一个是保存在服务器上。取得图片的内容是通过下面的函数来实现的：
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
取得了图片的内容要保存，保存过程在此不做赘述。
替换原来的地址
arrnew=split(newimg,"||")'取得原来的图片地址列表
for i=1 to ubound(arrnew)'执行循环替换原来的地址
strs=replace(strs,arrall(i),arrnew(i))
next
cctv=strs
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-