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

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

新老客户大回馈,云服务器低至5折

一,取得原页中的图片的地址。
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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:截取实际长度字符串,并用空格替换

下一篇:讲解下编写网页木马