内容摘要：本文介绍了asp使用正则表达式自动解析远程图片地址并下载保存的方法，值得收藏！

一、使用正则表达式Regexp匹配取得原页中的图片的地址

（1）先获取：http://图片的地址

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

 （2）获取准确的图片地址

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

当然你也可以一步到位直接获取图片地址。

如果您对正则表达式不是很了解可以这篇文章看：ASP中RegExp对象正则表达式语法及相关例子

下一页将介绍如何自动下载并保存图片