用正则解析图片地址,并利用XMLHTTP组件将其保存_ASP技巧

现在基于WEB的HTML的编辑器在新闻系统，文章系统中用得越来越广，一个网一粘就可以保持原来的样式，同时图片也可以在这个中保持。但是在使用过程中，如果所粘贴中的图片被删除，就会在自己的面上留下一个大大的“X”，影响美观。以前只好把这个图片保存下来，再重新上传到服务器上，这样实在麻烦。能不能让服务器自动去下载图片保存在服务器并且替换面上的链接？答案是肯定的。

要实现这个功能需要经过三个步骤：

一，取得原中的图片的地址。方法很多，可以用分割字符串，也可以用正则匹配。实践证明用正则匹配最为简单。经过分析图片的地址都保存在<img>标签中。我们可以先取得所有这个标签。过程如下：

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

RetStr = RetStr &getimgs( Match.Value )’执行第二轮的匹配

Next

所有的图片在里面都是这样的src="http://图片的地址"，所以可以这样来取得确切的图片地址：

function getimgs(str)

getimgs=""

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "http://.+?"""’取出里面的地址

set mm=objRegExp.Execute(str)

For Each Match in mm

getimgs=getimgs&"||"&left(Match.Value,len(Match.Value)-)’把里面的地址串起来备用

next

end function

取得了所有的图片的地址，我们就可以进行第二步的操作了。

二，下载图片并保存在服务器上。这个又可以分为两个步骤：一个是取得图片的内容，另一个是保存在服务器上。取得图片的内容是通过下面的函数来实现的：

function getHTTPPage(url)

on error resume next

dim http

set http=server.createobject("MSXML.XMLHTTP")‘使用xmlhttp的方法来获得图片的内容

Http.open "GET",url,false