asp 如何使用正则表达式给图片加上超链接？

[xu2008b]

一段html代码
例如：

这是第一张图片：<br /> <img alt="图片1" src="123.jpg" /> <br /><br /><br />
这是第二张图片：<br /> <img alt="图片2" src="456.jpg" /> <br /><br /><br />
这是第三张图片：<br /> <img alt="图片3" src="789.jpg" /> <br /><br /><br />

如何使用asp代码替换？
最终效果：

这是第一张图片：<br /> <a class="pics" href="123.jpg" target="_blank" rel="pics"><img alt="图片1" src="123.jpg" /></a> <br /><br /><br />
这是第二张图片：<br /> <a class="pics" href="456.jpg" target="_blank" rel="pics"><img alt="图片2" src="456.jpg" /></a> <br /><br /><br />
这是第三张图片：<br /> <a class="pics" href="789.jpg" target="_blank" rel="pics"><img alt="图片3" src="789.jpg" /></a> <br /><br /><br />

希望能够帮我解答下，在线等，谢谢

[xu2008b]

拜托了

[hefeng_aspnet]

<% '*************************************************** '*函数名 : GetImgFromContent '*参数说明 ： html 被提取的html 代码 '*功能简介 ： 提取这部分html代码中的图片 '*程序作者 : evio http://www.backci.cn/code '*http://www.knowsky.com/ '*************************************************** function GetImgFromContent(html) Dim Re, match, matchs, htm, t htm = "" set Re = new RegExp re.IgnoreCase =True re.Global = True re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[^>]*> Set matchs = re.Execute(html) for each match in matchs htm = htm + (match.SubMatches(0)) & "|$|" next set matchs = nothing t = split(htm, "|$|")(0) if len(t) = 0 or t = "" then t = "_template_Images/PRive.jpg" end if ze = "<img src='" & t & "' width='191' height='119' />" end function %> 匹配Img标签 然后替换为带超链接的img

[xu2008b]

多谢两位解答 不过showbo版主的正则表达式 好像有点bug ，不过修改成这样就居然可以替换成功了,问题成功解决，再次感谢!

s="这是第一张图片：<br /> <img alt=""图片1"" src=""123.jpg""> <br /><br /><br />"&_
"这是第二张图片：<br /> <img alt=""图片2"" src=""456.jpg"" /> <br /><br /><br />"&_
"这是第三张图片：<br /> <img alt=""图片3"" src=""789.jpg"" /> <br /><br /><br />"
set rx=new RegExp
rx.IgnoreCase=true
rx.Global=true
rx.Pattern="(<img [^<]*src=""(.*?)""[^>]*>)"
s=rx.Replace(s,"<a class=""pics"" href=""$2"" target=""_blank"" rel=""pics"">$1</a>")
response.Write s
set rx=nothing

[斯洛文尼亚旅游]

s="这是第一张图片：<br /> <img alt=""图片1"" src=123.jpg> <br /><br /><br />"&_
"这是第二张图片：<br /> <img alt=""图片2"" src='456.jpg' /> <br /><br /><br />"&_
"这是第三张图片：<br /> <img alt=""图片3"" src=""789.jpg"" /> <br /><br /><br />"

set rx=new RegExp
rx.IgnoreCase=true
rx.Global=true
rx.Pattern="(<img[^>]+?src=(['""])?([^'"" />]+?)(['""])?[^>]+>)"
s=rx.Replace(s,"<a class=""pics"" href=""$3"" target=""_blank"" rel=""pics"">$1</a>")

response.Write s

set rx=nothing