asp获取文章内的图片

<%

‘获取所有图片
function GetImgS(str)'获取所有图片
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
%>

<img src="<%=GetImgS(rs("content"))%>" />