今天青岛星网想获取编辑器里面的所有图片地址，这个时候我们需要一个函数，用正则实现起来是相对简单的。下面青岛星网跟大家分享：获取内容中所有图片地址的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 %>
在线QQ：
