今天编程之家想获取编辑器里面的所有图片地址，这个时候我们需要一个函数，用正则实现起来是相对简单的。下面编程之家跟大家分享：获取内容中所有图片地址的ASP函数。
一个获取内容中所有图片地址的ASP函数
<% '-------------------------------------------------- '作者：编程之家 '博客：www.qdxw.net '-------------------------------------------------- Function GetImgS(str)'获取所有图片 Dim objRegExp1,mm,Match1,imgsrc Set objRegExp1 = New Regexp objRegExp1.IgnoreCase = True '忽略大小写 objRegExp1.Global = True '全文搜索 objRegExp1.Pattern = "src=.+?.(gif|jpg|png|bmp)" set mm=objRegExp1.Execute(str) For Each Match1 in mm imgsrc=Match1.Value '也许存在不能过滤的字符，确保万一 imgsrc=replace(imgsrc,"""","") imgsrc=replace(imgsrc,"src=","") imgsrc=replace(imgsrc,"<","") imgsrc=replace(imgsrc,">","") imgsrc=replace(imgsrc,"img","") imgsrc=replace(imgsrc," ","") GetImgS=GetImgS&imgsrc'把里面的地址串起来备用 next End function %>版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
