首页 > > 网络编程 > Asp编程 >

用asp自动解析网页中的图片地址

2018-06-22 00:58:13来源：未知阅读 ()

一，取得原页中的图片的地址。

function PicStr(str)
?Set objRegExp = New Regexp '设置配置对象
?objRegExp.IgnoreCase = True '忽略大小写
?objRegExp.Global = True '设置为全文搜索
?objRegExp.Pattern = "" '为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
?strs=trim(str)
?Set Matches =objRegExp.Execute(strs) '开始执行配置
?For Each Match in Matches
?PicStr = PicStr &getimgs( Match.Value ) '执行第二轮的匹配
?Next
?'所有的图片在里面都是这样的src="http://图片的地址"，所以可以这样来取得确切的图片地址
end function

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
%>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有