用asp自动解析网页中的图片地址
一，取得原页中的图片的地址。 %
function PicStr(str)
Set objRegExp = New Regexp '设置配置对象
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = True '设置为全文搜索
objRegExp.Pattern = "IMG.+?" '为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的IMG标签，然后再取出里面的图片地址后面的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)...[ 查看全文 ]
2016-02-19
标签:
