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

xu2008b 2015-01-22 04:18:48
一段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 />

希望能够帮我解答下,在线等,谢谢
...全文
215 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Go 旅城通票 2015-01-23
  • 打赏
  • 举报
回复

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
xu2008b 2015-01-23
  • 打赏
  • 举报
回复
多谢两位解答 不过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
csdn_aspnet 2015-01-23
  • 打赏
  • 举报
回复
<% '*************************************************** '*函数名 : 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 2015-01-22
  • 打赏
  • 举报
回复
拜托了

28,398

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧